diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 19:27:49 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 19:27:49 +0100 |
| commit | 7888d76bc45caed34cb3aa10824807d01057d746 (patch) | |
| tree | 0f57665272733429097e0a94b53a133caa335e39 /Handler | |
| parent | 3cd4169e33c07b71129aafcecfb81a3b5007fa39 (diff) | |
| download | bar-7888d76bc45caed34cb3aa10824807d01057d746.tar bar-7888d76bc45caed34cb3aa10824807d01057d746.tar.gz bar-7888d76bc45caed34cb3aa10824807d01057d746.tar.bz2 bar-7888d76bc45caed34cb3aa10824807d01057d746.tar.xz bar-7888d76bc45caed34cb3aa10824807d01057d746.zip | |
Fix sorting in update view
Diffstat (limited to 'Handler')
| -rw-r--r-- | Handler/UpdateItem.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 | |||
| 28 | provideRep $ case updateResult of | 28 | provideRep $ case updateResult of |
| 29 | FormSuccess _ -> redirect $ InventoryListingR :#: fsUpdateId :: Handler Html | 29 | FormSuccess _ -> redirect $ InventoryListingR :#: fsUpdateId :: Handler Html |
| 30 | _ -> do | 30 | _ -> do |
| 31 | (sortOn (entityVal . typedVal) -> stock) <- runDB $ mapM withType =<< selectList [] [] | 31 | (stockSort -> stock) <- runDB $ mapM withType =<< selectList [] [] |
| 32 | defaultLayout $ inventoryListing InventoryState | 32 | defaultLayout $ inventoryListing InventoryState |
| 33 | { invFormState = Just UpdateForm{..} | 33 | { invFormState = Just UpdateForm{..} |
| 34 | , .. | 34 | , .. |