1 files changed, 1 insertions, 1 deletions
diff --git a/Handler/InventoryListing.hs b/Handler/InventoryListing.hs
index 6d4d8fa..cbf4eab 100644
--- a/Handler/InventoryListing.hs
+++ b/Handler/InventoryListing.hs
@@ -16,7 +16,7 @@ postInventoryListingR = do
    FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors
    _ -> return ()
-  (sortOn (entityVal . typedVal) -> stock) <- runDB $ mapM withType =<< selectList [] []
+  (stockSort -> stock) <- runDB $ mapM withType =<< selectList [] []
  selectRep $ do
    provideJson (stock :: [WithType (Entity Item)])

diff --git a/Handler/InventoryListing.hs b/Handler/InventoryListing.hs index 6d4d8fa..cbf4eab 100644 --- a/Handler/InventoryListing.hs +++ b/Handler/InventoryListing.hs
@@ -16,7 +16,7 @@ postInventoryListingR = do
16	FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors	16	FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors
17	_ -> return ()	17	_ -> return ()
18		18
19	(sortOn (entityVal . typedVal) -> stock) <- runDB $ mapM withType =<< selectList [] []	19	(stockSort -> stock) <- runDB $ mapM withType =<< selectList [] []
20		20
21	selectRep $ do	21	selectRep $ do
22	provideJson (stock :: [WithType (Entity Item)])	22	provideJson (stock :: [WithType (Entity Item)])