hunt warnings

This commit is contained in:
nek0 2022-04-15 20:40:04 +02:00
parent 9752f27afb
commit bb89288507

View file

@ -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