reformat raw sql for readability

This commit is contained in:
Adam C. Baker
2014-10-09 14:11:35 -07:00
parent ea17642f08
commit ef6b38ea1e
+6 -5
View File
@@ -117,11 +117,13 @@ 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, \
"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,\
\ 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, \
@@ -129,8 +131,7 @@ columns s t conn = do
\ character_maximum_length, numeric_precision, \
\ column_default, udt_name \
\ from information_schema.columns \
\ where table_schema = ? \
\ and table_name = ? \
\ where table_schema = ? and table_name = ? \
\ ) as info \
\ left outer join ( \
\ select n.nspname as s, \