Fix updating running low

6 files changed, 12 insertions, 5 deletions

diff --git a/Handler/Common.hs b/Handler/Common.hs
index 799f692..4f02e3c 100644
--- a/Handler/Common.hs
+++ b/Handler/Common.hs
@@ -91,7 +91,7 @@ itemForm proto identView = do
             <div .td>^{openedWidget}
             <div .td>
               <ul .status>
-                <li>^{fvInput runningLowWidget} #
+                <li>^{fvInput runningLowWidget}
                   <label for=#{fvId runningLowWidget}>
                     Running low
             |]
diff --git a/Handler/Item.hs b/Handler/Item.hs
index abb1b12..2530275 100644
--- a/Handler/Item.hs
+++ b/Handler/Item.hs
@@ -18,6 +18,7 @@ putItemR itemId = do
                                                   , ItemBought =. itemBought
                                                   , ItemExpires =. itemExpires
                                                   , ItemOpened =. itemOpened
+                                                  , ItemRunningLow =. itemRunningLow
                                                   ])
     update (itemFkType $ entityVal entity) [ KindType =. t ]
     withType entity
diff --git a/Handler/UpdateItem.hs b/Handler/UpdateItem.hs
index b4c8713..ce6b30d 100644
--- a/Handler/UpdateItem.hs
+++ b/Handler/UpdateItem.hs
@@ -19,6 +19,7 @@ postUpdateItemR fsUpdateId = do
                         , ItemBought =. itemBought
                         , ItemExpires =. itemExpires
                         , ItemOpened =. itemOpened
+                        , ItemRunningLow =. itemRunningLow
                         ]
       return ()
     FormFailure errors -> mapM_ (addMessage "formError" . toHtml) errors
diff --git a/Model.hs b/Model.hs
index 3554049..cf0e473 100644
--- a/Model.hs
+++ b/Model.hs
@@ -128,6 +128,7 @@ data ItemDiff = DiffKind Text
               | DiffBought ItemDate
               | DiffExpires ItemDate
               | DiffOpened ItemDate
+              | DiffRunningLow Bool
 
 newtype ItemDiffs = ItemDiffs [ItemDiff]
 
@@ -138,6 +139,7 @@ instance FromJSON ItemDiffs where
     tell =<< maybe [] (pure . DiffBought) <$> lift (obj .:! "bought")
     tell =<< maybe [] (pure . DiffExpires) <$> lift (obj .:! "expires")
     tell =<< maybe [] (pure . DiffOpened) <$> lift (obj .:! "opened")
+    tell =<< maybe [] (pure . DiffRunningLow) <$> lift (obj .:? "running-low")
 
 toUpdate :: ItemDiffs -> ([Update Item], [Update Kind])
 toUpdate (ItemDiffs ds) = mconcat $ do
@@ -150,6 +152,7 @@ toUpdate (ItemDiffs ds) = mconcat $ do
     DiffBought d  -> (, []) [ ItemBought =. d ]
     DiffExpires d -> (, []) [ ItemExpires =. d ]
     DiffOpened d  -> (, []) [ ItemOpened =. d ]
+    DiffRunningLow b -> (, []) [ ItemRunningLow =. b ]
 
 data WithType a = WithType { typedVal :: a, valType :: Text }
   deriving (Eq, Ord, Show, Functor)
diff --git a/config/settings.yml b/config/settings.yml
index f6332bd..078fa19 100644
--- a/config/settings.yml
+++ b/config/settings.yml
@@ -1,6 +1,6 @@
 static-dir:     "_env:STATIC_DIR:static"
 approot:        "_env:APPROOT:"
-host:           "_env:HOST:*4" # any IPv4 host
+host:           "_env:HOST:*" # any IPv4 host
 port:           "_env:PORT:3000"
 ip-from-header: "_env:IP_FROM_HEADER:false"
 
diff --git a/templates/inventoryListing.cassius b/templates/inventoryListing.cassius
index 1da6e13..5116667 100644
--- a/templates/inventoryListing.cassius
+++ b/templates/inventoryListing.cassius
@@ -22,6 +22,8 @@ div.itemId
   padding: 0
   margin: 0
   list-style-type: none
-.status li
-  padding: 0
-  margin: 0
\ No newline at end of file
+  li
+    padding: 0
+    margin: 0
+    input
+      vertical-align: middle
\ No newline at end of file