diff --git a/src/Model/Product.hs b/src/Model/Product.hs index 362cde5..501fd08 100644 --- a/src/Model/Product.hs +++ b/src/Model/Product.hs @@ -5,7 +5,6 @@ module Model.Product where import Data.Text (Text) -import qualified Data.Text as T hiding (head, foldl, map) import Data.Time (getCurrentTime) @@ -280,13 +279,13 @@ manualProductAmountRefill aups conn = perCrate <- productAmountPerCrate . fromJust <$> productSelectSingle pid conn head <$> liftIO (do - now <- getCurrentTime + now_ <- getCurrentTime runInsert_ conn $ Insert { iTable = amountTable , iRows = [ ( toFields pid - , toFields now + , toFields now_ , toFields (oldamount + (amountSingles + (perCrate * amountCrates))) , toFields oldprice , toFields False