reformat raw sql for readability

src/PgStructure.hs

@@ -117,31 +117,32 @@ tables s conn = do
 columns :: String -> String -> Connection -> IO [Column]
 columns s t conn = do
   r <- quickQuery conn
-    " select info.table_schema as schema, info.table_name as table_name,               \
-    \        info.column_name as name, info.ordinal_position as position,              \
-    \        info.is_nullable as nullable, info.data_type as col_type,                 \
-    \        info.is_updatable as updatable, info.character_maximum_length as max_len, \
-    \        info.numeric_precision as precision, info.column_default as default_value,\
-    \        array_to_string(enum_info.vals, ',') as enum                              \
-    \   from (                                                                         \
-    \     select table_schema, table_name, column_name, ordinal_position,              \
-    \            is_nullable, data_type, is_updatable,                                 \
-    \            character_maximum_length, numeric_precision,                          \
-    \            column_default, udt_name                                              \
-    \       from information_schema.columns                                            \
-    \      where table_schema = ?                                                      \
-    \        and table_name = ?                                                        \
-    \   ) as info                                                                      \
-    \   left outer join (                                                              \
-    \     select n.nspname as s,                                                       \
-    \            t.typname as n,                                                       \
-    \            array_agg(e.enumlabel) as vals                                        \
-    \     from pg_type t                                                               \
-    \        join pg_enum e on t.oid = e.enumtypid                                     \
-    \        join pg_catalog.pg_namespace n ON n.oid = t.typnamespace                  \
-    \     group by s, n                                                                \
-    \   ) as enum_info                                                                 \
-    \   on (info.udt_name = enum_info.n)                                               \
+    "select info.table_schema as schema, info.table_name as table_name, \
+    \       info.column_name as name, info.ordinal_position as position, \
+    \       info.is_nullable as nullable, info.data_type as col_type, \
+    \       info.is_updatable as updatable, \
+    \       info.character_maximum_length as max_len, \
+    \       info.numeric_precision as precision, \
+    \       info.column_default as default_value, \
+    \       array_to_string(enum_info.vals, ',') as enum \
+    \   from ( \
+    \     select table_schema, table_name, column_name, ordinal_position, \
+    \            is_nullable, data_type, is_updatable, \
+    \            character_maximum_length, numeric_precision, \
+    \            column_default, udt_name \
+    \       from information_schema.columns \
+    \      where table_schema = ? and table_name = ? \
+    \   ) as info \
+    \   left outer join ( \
+    \     select n.nspname as s, \
+    \            t.typname as n, \
+    \            array_agg(e.enumlabel) as vals \
+    \     from pg_type t \
+    \        join pg_enum e on t.oid = e.enumtypid \
+    \        join pg_catalog.pg_namespace n ON n.oid = t.typnamespace \
+    \     group by s, n \
+    \   ) as enum_info \
+    \   on (info.udt_name = enum_info.n) \
     \order by position" [toSql s, toSql t]
   fks <- foreignKeys s t conn
   let lookupFK (_:_:name:_) = Map.lookup (fromSql name) fks