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 )