nek0/yammat
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

Merge pull request #113 from yater/patch-1

Browse source 
it is not usual to restock 1 item (bottle or whatever)
This commit is contained in:
rys ostrovid 2018-09-04 16:45:43 +02:00 committed by GitHub
commit 9bb10c88c9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Handler/Restock.hs
View file

@ -64,7 +64,7 @@ data UpstockAmount = UpstockAmount
upstockForm :: AForm Handler UpstockAmount upstockForm :: AForm Handler UpstockAmount
upstockForm = UpstockAmount upstockForm = UpstockAmount
<$> areq amountField (bfs MsgAmountAdded) (Just 1) <$> areq amountField (bfs MsgAmountAdded) (Just 0)
<*> areq amountField (bfs MsgCrateAmountAdded) (Just 0) <*> areq amountField (bfs MsgCrateAmountAdded) (Just 0)
<* bootstrapSubmit (msgToBSSubmit MsgFillup) <* bootstrapSubmit (msgToBSSubmit MsgFillup)