From 748f82632e5ab6fc2c2f7a6eedb1ac4c467ccb3e Mon Sep 17 00:00:00 2001 From: Alexander Foremny Date: Tue, 13 Feb 2024 07:50:30 +0100 Subject: explicitly construct objects in SELECT --- src/Store/Query/Printer.hs | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) (limited to 'src/Store/Query/Printer.hs') diff --git a/src/Store/Query/Printer.hs b/src/Store/Query/Printer.hs index 5692ba8..7861bc9 100644 --- a/src/Store/Query/Printer.hs +++ b/src/Store/Query/Printer.hs @@ -3,7 +3,6 @@ module Store.Query.Printer () where import Data.List (intercalate) -import Data.List.NonEmpty qualified as N import Data.Maybe (catMaybes, mapMaybe) import Store.Query.Field import Store.Query.Type @@ -21,9 +20,7 @@ instance Show Query where showWhereClause w ] where - showFieldSelector All = "*" - showFieldSelector (Only (N.toList -> fs)) = - intercalate ", " (map showField fs) + showFieldSelector = error "showFieldSelector" showField = Store.Query.Field.toString showCollection c = c showJoinClauses js = case map showJoinClause js of -- cgit v1.2.3