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