diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-28 14:56:52 +0200 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2017-03-28 14:56:52 +0200 |
| commit | d28c483bdba02cf4163e99efcb07f2ee525ddda1 (patch) | |
| tree | f9becdc79bcb6495e462ec2f17762a63182dbc2a /Handler/InventoryList.hs | |
| parent | de1513a40da72632b500c710c5254c8e3639b7bd (diff) | |
| download | bar-d28c483bdba02cf4163e99efcb07f2ee525ddda1.tar bar-d28c483bdba02cf4163e99efcb07f2ee525ddda1.tar.gz bar-d28c483bdba02cf4163e99efcb07f2ee525ddda1.tar.bz2 bar-d28c483bdba02cf4163e99efcb07f2ee525ddda1.tar.xz bar-d28c483bdba02cf4163e99efcb07f2ee525ddda1.zip | |
Implement list view
Diffstat (limited to 'Handler/InventoryList.hs')
| -rw-r--r-- | Handler/InventoryList.hs | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/Handler/InventoryList.hs b/Handler/InventoryList.hs new file mode 100644 index 0000000..518d910 --- /dev/null +++ b/Handler/InventoryList.hs | |||
| @@ -0,0 +1,12 @@ | |||
| 1 | module Handler.InventoryList where | ||
| 2 | |||
| 3 | import Import | ||
| 4 | import Handler.Common | ||
| 5 | |||
| 6 | import Data.Time.Calendar | ||
| 7 | |||
| 8 | getInventoryListR :: Handler Html | ||
| 9 | getInventoryListR = do | ||
| 10 | (stockSort -> stock) <- runDB $ withTypes =<< selectList [] [] | ||
| 11 | today <- utctDay <$> liftIO getCurrentTime | ||
| 12 | defaultLayout $(widgetFile "inventoryList") | ||