Fix updating running low

3 files changed, 3 insertions, 1 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