nek0/mateamt
1
0
Fork 0
Code Issues Pull requests Releases Activity

fix computation error for total bought products

Browse source
This commit is contained in:
nek0 2019-08-05 18:11:10 +02:00
parent 9b210ef61b
commit d1e48c8284
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Model/Product.hs
View file

@ -26,7 +26,7 @@ import qualified Database.PostgreSQL.Simple as PGS
import GHC.Generics import GHC.Generics
import Opaleye as O import Opaleye as O hiding (max)
import Opaleye.Constant as C import Opaleye.Constant as C
-- internal imports -- internal imports
@ -183,7 +183,7 @@ productOverviewSelect conn = do
i10 <- return $ snd $ foldl (\(bef, tot) (_, _, amo, _, ver) -> i10 <- return $ snd $ foldl (\(bef, tot) (_, _, amo, _, ver) ->
if ver if ver
then (amo, tot) then (amo, tot)
else (amo, tot + (bef - amo)) else (amo, tot + max 0 (bef - amo))
) )
(0, 0) (0, 0)
(Prelude.reverse amounts) (Prelude.reverse amounts)