stuff

app/App/Cli/Run/Example.hs

@@ -39,6 +39,7 @@ import qualified Data.Text.Lazy.Encoding        as LT
 import qualified Data.Text.Lazy.IO              as LT
 import qualified System.IO                      as IO
 import qualified System.IO.Unsafe               as IO
+import qualified App.Console as T
 
 data ExampleRow = ExampleRow
   { theBigInt             :: Int64
@@ -250,10 +251,36 @@ runExampleCmd cmd = do
   AWS.runResourceT $ do
     sql <- pure $ T.pack $ mconcat
       [ "SELECT"
-      , "  *"
-      , "FROM all_types"
+      , "  the_bigint,"
+      , "  the_bigserial,"
+      , "  the_boolean,"
+      , "  the_bytea,"
+      , "  the_character,"
+      , "  the_characters,"
+      , "  the_varying_character,"
+      , "  the_varying_characters,"
+      , "  the_date,"
+      , "  the_double,"
+      , "  the_integer,"
+      , "  the_json,"
+      , "  the_jsonb,"
+      , "  the_numeric,"
+      , "  the_numerics,"
+      , "  the_real,"
+      , "  the_smallint,"
+      , "  the_smallserial,"
+      , "  the_serial,"
+      , "  the_text,"
+      , "  the_time,"
+      , "  the_times,"
+      , "  the_timestamp,"
+      , "  the_timestamps,"
+      , "  the_uuid"
+      , " FROM all_types"
       ]
 
+    liftIO $ T.putStrLn sql
+
     req <- pure $ newExecuteStatement theResourceArn theSecretArn sql
 
     res <- AWS.send envAws req