From 593a53511ec170c67fd3453c88dcda960eac44fe Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 18 Dec 2024 19:11:57 +0100
Subject: add `LIMIT`, `ORDER BY` clauses

---
 src/Store/Query/Printer.hs | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

(limited to 'src/Store/Query/Printer.hs')

diff --git a/src/Store/Query/Printer.hs b/src/Store/Query/Printer.hs
index cff543f..ecde378 100644
--- a/src/Store/Query/Printer.hs
+++ b/src/Store/Query/Printer.hs
@@ -26,7 +26,7 @@ instance Show Query where
         Just "INTO",
         Just (showCollection c)
       ]
-  show (Select fs c js es w) =
+  show (Select fs c js es w l o) =
     intercalate " " . catMaybes $
       [ Just "SELECT",
         Just (showFieldSelector fs),
@@ -34,7 +34,9 @@ instance Show Query where
         Just (showCollection c),
         showJoinClauses js,
         showEmbedClauses es,
-        showWhereClause w
+        showWhereClause w,
+        showLimitClause l,
+        showOffsetClause o
       ]
   show (Update c v w) =
     intercalate " " . catMaybes $
@@ -106,6 +108,14 @@ showComparison (Eq a b) = intercalate " " [showArg a, "==", showArg b]
   where
     showArg = either showValue showField
 
+showOffsetClause :: Maybe OffsetClause -> Maybe String
+showOffsetClause (Just (Offset n)) = Just (" OFFSET %d" <> show n)
+showOffsetClause Nothing = Nothing
+
+showLimitClause :: Maybe LimitClause -> Maybe String
+showLimitClause (Just (Limit n)) = Just (" LIMIT %d" <> show n)
+showLimitClause Nothing = Nothing
+
 showValues :: [J.Value] -> Maybe String
 showValues [] = Nothing
 showValues vs = Just (intercalate ", " (map showValue vs))
-- 
cgit v1.2.3