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 module Model.Product where
import Data.Text (Text) import Data.Text (Text)
import qualified Data.Text as T hiding (head, foldl, map)
import Data.Time (getCurrentTime) import Data.Time (getCurrentTime)
@ -280,13 +279,13 @@ manualProductAmountRefill aups conn =
perCrate <- productAmountPerCrate . fromJust <$> perCrate <- productAmountPerCrate . fromJust <$>
productSelectSingle pid conn productSelectSingle pid conn
head <$> liftIO (do head <$> liftIO (do
now <- getCurrentTime now_ <- getCurrentTime
runInsert_ conn $ Insert runInsert_ conn $ Insert
{ iTable = amountTable { iTable = amountTable
, iRows = , iRows =
[ [
( toFields pid ( toFields pid
, toFields now , toFields now_
, toFields (oldamount + (amountSingles + (perCrate * amountCrates))) , toFields (oldamount + (amountSingles + (perCrate * amountCrates)))
, toFields oldprice , toFields oldprice
, toFields False , toFields False