Quick Action for running low

1 files changed, 11 insertions, 0 deletions

diff --git a/Handler/LowItem.hs b/Handler/LowItem.hs
new file mode 100644
index 0000000..969e62a
--- /dev/null
+++ b/Handler/LowItem.hs
@@ -0,0 +1,11 @@
+module Handler.LowItem where
+
+import Import
+
+postLowItemR :: ItemId -> Handler TypedContent
+postLowItemR itemId = do
+  result <- fmap (Entity itemId) . runDB $ updateGet itemId [ ItemRunningLow =. True
+                                                            ]
+  selectRep $ do
+    provideJson result
+    provideRep (redirect $ InventoryListingR :#: itemId :: Handler Html)