From 7888d76bc45caed34cb3aa10824807d01057d746 Mon Sep 17 00:00:00 2001 From: Gregor Kleen 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') 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