Implement list view

2 files changed, 13 insertions, 1 deletions

diff --git a/Handler/Common.hs b/Handler/Common.hs
index 4f02e3c..73ce9ba 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -11,7 +11,7 @@ module Handler.Common
   , FormState(..)
   , HasFormState(..)
   , stockSort, referenceSort
-  , humanId
+  , humanId, dayFormat
   ) where
 
 import Import hiding ((\\))
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")