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

implement refined product select

Browse source
This commit is contained in:
nek0 2019-09-11 04:03:25 +02:00
parent cd1e457bfb
commit 5ba35c5648
1 changed files with 12 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
src/Model/Product.hs
View file

@ -101,11 +101,20 @@ productOverviewSelect
:: ProductRefine :: ProductRefine
-> PGS.Connection -> PGS.Connection
-> MateHandler [ProductOverview] -> MateHandler [ProductOverview]
productOverviewSelect conn = do productOverviewSelect refine conn = do
prods <- liftIO $ runSelect conn prods <- liftIO $ runSelect conn
( proc () -> do ( proc () -> do
(i1, i2, i6, i7, i8, i9, i11, i12, i13) <- queryTable productTable -< () (pid, i2, i6, i7, i8, i9, i11, i12, i13) <- queryTable productTable -< ()
returnA -< (i1, i2, i6, i7, i8, i9, i11, i12, i13) (a1, a2, a3, a4, a5) <-
limit 1 (
orderBy (desc (\(_, ts, _, _, _) -> ts)) (queryTable amountTable))
-< ()
restrict -< a1 .== pid
restrict -< case refine of
AllProducts -> C.constant True
AvailableProducts -> a3 ./= C.constant (0 :: Int)
DepletedProducts -> a3 .== C.constant (0 :: Int)
returnA -< (pid, i2, i6, i7, i8, i9, i11, i12, i13)
) :: MateHandler ) :: MateHandler
[ ( Int [ ( Int
, T.Text , T.Text