diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 20:11:41 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-15 20:11:41 +0100 |
| commit | 127d763a6a68d8fd242e093ba9f55bf769635842 (patch) | |
| tree | a864c82c0476766cb61ae6c2d009581f4ef89d1e /Handler/InventoryListing.hs | |
| parent | 7888d76bc45caed34cb3aa10824807d01057d746 (diff) | |
| download | bar-127d763a6a68d8fd242e093ba9f55bf769635842.tar bar-127d763a6a68d8fd242e093ba9f55bf769635842.tar.gz bar-127d763a6a68d8fd242e093ba9f55bf769635842.tar.bz2 bar-127d763a6a68d8fd242e093ba9f55bf769635842.tar.xz bar-127d763a6a68d8fd242e093ba9f55bf769635842.zip | |
Make typing many items more efficient
Diffstat (limited to 'Handler/InventoryListing.hs')
| -rw-r--r-- | Handler/InventoryListing.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Handler/InventoryListing.hs b/Handler/InventoryListing.hs index cbf4eab..c2ec5d1 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 | (stockSort -> stock) <- runDB $ mapM withType =<< selectList [] [] | 19 | (stockSort -> stock) <- runDB $ withTypes =<< selectList [] [] |
| 20 | 20 | ||
| 21 | selectRep $ do | 21 | selectRep $ do |
| 22 | provideJson (stock :: [WithType (Entity Item)]) | 22 | provideJson (stock :: [WithType (Entity Item)]) |