explicitly construct objects in SELECT

1 files changed, 1 insertions, 4 deletions

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