From 9f545d9854f8455f4ed240f70ae3ac8315d6812f Mon Sep 17 00:00:00 2001 From: yater Date: Tue, 4 Sep 2018 15:53:59 +0200 Subject: [PATCH] it is not usual to restock 1 item (bottle or whatever) MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit … so it is unhandy to have such a default (in the box). i do not want to do this editing (the value in box) almost every time. --- Handler/Restock.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Restock.hs b/Handler/Restock.hs index b2a63c0..2987028 100644 --- a/Handler/Restock.hs +++ b/Handler/Restock.hs @@ -64,7 +64,7 @@ data UpstockAmount = UpstockAmount upstockForm :: AForm Handler UpstockAmount upstockForm = UpstockAmount - <$> areq amountField (bfs MsgAmountAdded) (Just 1) + <$> areq amountField (bfs MsgAmountAdded) (Just 0) <*> areq amountField (bfs MsgCrateAmountAdded) (Just 0) <* bootstrapSubmit (msgToBSSubmit MsgFillup)