From bb892885078e42cb5a2f7e81c69baab55bd39123 Mon Sep 17 00:00:00 2001 From: nek0 Date: Fri, 15 Apr 2022 20:40:04 +0200 Subject: [PATCH] hunt warnings --- src/Model/Product.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) 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