From a34cd5eadebea1d39e02c42c7d1e8b76ce5e8b59 Mon Sep 17 00:00:00 2001 From: nek0 Date: Thu, 19 Dec 2019 02:40:54 +0100 Subject: [PATCH] be a little more verbose --- src/Model/Product.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Model/Product.hs b/src/Model/Product.hs index efd28aa..c12d294 100644 --- a/src/Model/Product.hs +++ b/src/Model/Product.hs @@ -331,7 +331,7 @@ manualProductAmountRefill aups conn = [ ( C.constant pid , C.constant now - , C.constant (oldamount + amountSingles + perCrate * amountCrates) + , C.constant (oldamount + (amountSingles + (perCrate * amountCrates))) , C.constant oldprice , C.constant False )