hunt warnings
This commit is contained in:
parent
9752f27afb
commit
bb89288507
1 changed files with 2 additions and 3 deletions
|
@ -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
|
||||||
|
|
Loading…
Add table
Reference in a new issue