1 files changed, 3 insertions, 3 deletions

diff --git a/Handler/ReferenceListing.hs b/Handler/ReferenceListing.hs
index 690f3f7..9fda87f 100644
--- a/Handler/ReferenceListing.hs
+++ b/Handler/ReferenceListing.hs
@@ -11,8 +11,8 @@ postReferenceListingR = do
 
   case insertResult of 
     FormSuccess (Reference{..} `WithType` t) -> runDB $ do
-      upsertBy (UniqueKind referenceNormKind) (Kind referenceNormKind t) [ KindType =. t ]
-      insert Reference{..}
+      void $ upsertBy (UniqueKind referenceNormKind) (Kind referenceNormKind t) [ KindType =. t ]
+      void $ insert Reference{..}
       return ()
     FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors
     _ -> return ()
@@ -30,5 +30,5 @@ putReferenceListingR :: Handler Value
 putReferenceListingR = do
   (Reference{..} `WithType` referenceType) <- requireCheckJsonBody
   returnJson <=< runDB $ do
-    upsertBy (UniqueKind referenceNormKind) (Kind referenceNormKind referenceType) [ KindType =. referenceType ]
+    void $ upsertBy (UniqueKind referenceNormKind) (Kind referenceNormKind referenceType) [ KindType =. referenceType ]
     withType =<< insertEntity Reference{..}