Running low

1 files changed, 7 insertions, 0 deletions

diff --git a/Handler/Common.hs b/Handler/Common.hs
index 90e373a..799f692 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -70,12 +70,14 @@ itemForm proto identView = do
   (boughtRes, boughtWidget) <- dayForm (Just . fromMaybe (DateKnown today) $ itemBought <$> proto) $ DayFormConfig False True True
   (expiresRes, expiresWidget) <- dayForm (itemExpires <$> proto) $ DayFormConfig True False True
   (openedRes, openedWidget) <- dayForm (itemOpened <$> proto) $ DayFormConfig True True True
+  ((fmap $ fromMaybe False -> runningLowRes), runningLowWidget) <- mopt checkBoxField "" . Just . Just . fromMaybe False $ fmap itemRunningLow proto
 
   let itemRes = do
         itemKind <- kindRes
         itemBought <- boughtRes
         itemExpires <- expiresRes
         itemOpened <- openedRes
+        itemRunningLow <- runningLowRes
         t <- typeRes
         return $ Item{ itemNormKind = normalizeKind itemKind, ..} `WithType` t
 
@@ -87,6 +89,11 @@ itemForm proto identView = do
             <div .td>^{boughtWidget}
             <div .td>^{expiresWidget}
             <div .td>^{openedWidget}
+            <div .td>
+              <ul .status>
+                <li>^{fvInput runningLowWidget} #
+                  <label for=#{fvId runningLowWidget}>
+                    Running low
             |]
   where
     dayForm :: Maybe ItemDate -> DayFormConfig -> MForm Handler (FormResult ItemDate, Widget)