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")