blob: 518d9106e3e5846098fcb8128b32e7fd61c0e7f5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module Handler.InventoryList where
import Import
import Handler.Common
import Data.Time.Calendar
getInventoryListR :: Handler Html
getInventoryListR = do
(stockSort -> stock) <- runDB $ withTypes =<< selectList [] []
today <- utctDay <$> liftIO getCurrentTime
defaultLayout $(widgetFile "inventoryList")
|
