From 7888d76bc45caed34cb3aa10824807d01057d746 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Wed, 15 Mar 2017 19:27:49 +0100
Subject: Fix sorting in update view

---
 Handler/UpdateItem.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Handler/UpdateItem.hs')

diff --git a/Handler/UpdateItem.hs b/Handler/UpdateItem.hs
index befbe99..503d8ca 100644
--- a/Handler/UpdateItem.hs
+++ b/Handler/UpdateItem.hs
@@ -28,7 +28,7 @@ postUpdateItemR fsUpdateId = do
     provideRep $ case updateResult of
       FormSuccess _ -> redirect $ InventoryListingR :#: fsUpdateId :: Handler Html
       _ -> do
-        (sortOn (entityVal . typedVal) -> stock) <- runDB $ mapM withType =<< selectList [] []
+        (stockSort -> stock) <- runDB $ mapM withType =<< selectList [] []
         defaultLayout $ inventoryListing InventoryState
           { invFormState = Just UpdateForm{..}
           , ..
-- 
cgit v1.2.3