From fd532b592f029319903372874c34c0f92b539423 Mon Sep 17 00:00:00 2001 From: nek0 Date: Sat, 30 Jan 2016 23:40:37 +0100 Subject: [PATCH] whoops. wrong function name. --- Handler/Restock.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Handler/Restock.hs b/Handler/Restock.hs index 107218d..83fd279 100644 --- a/Handler/Restock.hs +++ b/Handler/Restock.hs @@ -49,7 +49,7 @@ postUpstockR bId = do FormSuccess c -> if upstockSingles c > 0 && upstockCrates c > 0 then do - let total = upstockSingles c + (upstockCrates c * fromMaybe 0 $ perCrate bev) + let total = upstockSingles c + (upstockCrates c * (fromMaybe 0 $ beveragePerCrate bev)) runDB $ update bId [BeverageAmount +=. total] setMessageI MsgStockedUp redirect RestockR