1 files changed, 15 insertions, 2 deletions

diff --git a/Handler/InventoryListing.hs b/Handler/InventoryListing.hs
index c2ec5d1..d87512a 100644
--- a/Handler/InventoryListing.hs
+++ b/Handler/InventoryListing.hs
@@ -11,8 +11,21 @@ postInventoryListingR = do
   case insertResult of 
     FormSuccess (Item{..} `WithType` t) -> runDB $ do
       upsertBy (UniqueKind itemNormKind) (Kind itemNormKind t) [ KindType =. t ]
-      insert Item{..}
-      return ()
+      newItem <- insert Item{..}
+      otherItems <- selectKeysList [ ItemNormKind ==. itemNormKind, ItemId !=. newItem ] []
+      when (not $ null otherItems) . addMessage "insertAmbiguous" $
+        [shamlet|
+                $newline never
+                There are other items of the same kind.
+                <ul>
+                  $forall other <- otherItems
+                    <li .itemId>#{humanId other}
+                |]
+      addMessage "insertSuccess" [shamlet|
+                                         $newline never
+                                         Inserted new item as #
+                                         <span .itemId>#{humanId newItem}
+                                         |]
     FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors
     _ -> return ()