From de1513a40da72632b500c710c5254c8e3639b7bd Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 28 Mar 2017 13:53:46 +0200
Subject: Fix updating running low

---
 Handler/Common.hs     | 2 +-
 Handler/Item.hs       | 1 +
 Handler/UpdateItem.hs | 1 +
 3 files changed, 3 insertions(+), 1 deletion(-)

(limited to 'Handler')

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
-- 
cgit v1.2.3