1 files changed, 4 insertions, 6 deletions

diff --git a/Handler/Item.hs b/Handler/Item.hs
index 87030bb..0f48261 100644
--- a/Handler/Item.hs
+++ b/Handler/Item.hs
@@ -4,12 +4,10 @@ import Import
 
 getItemR :: ItemId -> Handler TypedContent
 getItemR itemId = do
-  eLookup <- runDB $ fmap (Entity itemId) <$> get itemId
-  case eLookup of
-    Nothing -> notFound
-    Just entity -> selectRep $ do
-      provideJson entity
-      provideRep (redirect $ InventoryListingR :#: itemId :: Handler Html)
+  entity <- runDB $ Entity itemId <$> get404 itemId
+  selectRep $ do
+    provideJson entity
+    provideRep (redirect $ InventoryListingR :#: itemId :: Handler Html)
 
 putItemR :: ItemId -> Handler Value
 putItemR itemId = do