From 64819144c64e776311cf8ae07bda828de57f4e5f Mon Sep 17 00:00:00 2001 From: nek0 Date: Sun, 27 Oct 2019 22:45:36 +0100 Subject: [PATCH] order products by ident --- src/Model/Product.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/Model/Product.hs b/src/Model/Product.hs index dda0b0a..d879c03 100644 --- a/src/Model/Product.hs +++ b/src/Model/Product.hs @@ -128,7 +128,7 @@ produceProductOverviews produceProductOverviews refine = ( proc () -> do (p, i2, i6, i7, i8, i9, i11, i12, i13, a3, a4) - <- leftJoinF + <- orderBy (asc (\(_, a2, _, _, _, _, _, _, _, _, _) -> a2)) (leftJoinF (\(pid, pi2, pi6, pi7, pi8, pi9, pi11, pi12, pi13) (_, _, ai3, ai4, _) -> (pid, pi2, pi6, pi7, pi8, pi9, pi11, pi12, pi13, ai3, ai4) @@ -166,7 +166,7 @@ produceProductOverviews refine = <*> P.lmap snd O.max ) (arr (\(a, b, _, _, _) -> (a, b)) <<< selectTable amountTable)) - ) -< () + )) -< () -- <<< arr (\_ -> (selectTable productTable, selectTable amountTable)) -< () restrict -< case refine of AllProducts -> C.constant True