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

hunt down compile warnings

Browse source
This commit is contained in:
nek0 2019-10-22 03:00:20 +02:00
parent 8612987cf8
commit f21e519057
1 changed files with 7 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
src/Model/Product.hs
View file

@ -15,8 +15,6 @@ import Control.Arrow
import qualified Database.PostgreSQL.Simple as PGS
import qualified Data.Profunctor as P
import qualified Data.Profunctor.Product as PP
import qualified Data.Profunctor.Product.Default as D
import Opaleye as O
import Opaleye.Constant as C
@ -132,7 +130,7 @@ produceProductOverviews refine =
(p, i2, i6, i7, i8, i9, i11, i12, i13, a3, a4)
<- leftJoinF
(\(pid, pi2, pi6, pi7, pi8, pi9, pi11, pi12, pi13)
(aid, ai2, ai3, ai4, ai5) ->
(_, _, ai3, ai4, _) ->
(pid, pi2, pi6, pi7, pi8, pi9, pi11, pi12, pi13, ai3, ai4)
)
(\_ ->
@ -149,16 +147,16 @@ produceProductOverviews refine =
, (C.constant (0 :: Int) :: Column PGInt4)
)
)
(\(pid, pi2, pi6, pi7, pi8, pi9, pi11, pi12, pi13)
(aid, ai2, ai3, ai4, ai5) ->
(\(pid, _, _, _, _, _, _, _, _)
(aid, _, _, _, _) ->
pid .== aid
)
(selectTable productTable)
(joinF
(\(a1, a2, a3, a4, a5) (b1, b2) ->
(\(_, _, a3, a4, a5) (b1, b2) ->
(b1, b2, a3, a4, a5)
)
(\(a1, a2, a3, a4, a5) (b1, b2) ->
(\(a1, a2, _, _, _) (b1, b2) ->
(a1 .== b1) .&& (a2 .== b2)
)
(selectTable amountTable)
@ -167,7 +165,7 @@ produceProductOverviews refine =
<$> P.lmap fst O.groupBy
<*> P.lmap snd O.max
)
(arr (\(a, b, c, d, e) -> (a, b)) <<< selectTable amountTable))
(arr (\(a, b, _, _, _) -> (a, b)) <<< selectTable amountTable))
) -< ()
-- <<< arr (\_ -> (selectTable productTable, selectTable amountTable)) -< ()
restrict -< case refine of
@ -204,7 +202,6 @@ generateProductOverview
-> MateHandler ProductOverview
generateProductOverview conn (i1, i2, i3, i4, i5, i6, i7, i8, i9, a3, a4) = do
amounts <- liftIO $ queryAmounts conn i1
(ii3, ii4) <- return $ (\(_, _, y, x, _) -> (x, y)) $ head amounts
let ii5 = snd $
foldl
(\(bef, van) (_, _, amo, _, ver) ->
@ -222,7 +219,7 @@ generateProductOverview conn (i1, i2, i3, i4, i5, i6, i7, i8, i9, a3, a4) = do
(0, 0)
(Prelude.reverse amounts)
return $ ProductOverview
i1 i2 a3 a4 ii5 i3 i4 i5 i6 ii10 i7 i8 i9
i1 i2 a4 a3 ii5 i3 i4 i5 i6 ii10 i7 i8 i9
productOverviewSelectSingle
:: Int