Fix quasi-quote in tables function

2014-07-06 18:42:31 -07:00
parent 293d5f6581
commit e8e8d96e97
1 changed files with 3 additions and 3 deletions
@@ -68,9 +68,9 @@ instance JSON.ToJSON Column where
 tables :: String -> Connection -> IO [Table]
 tables s conn = query conn q $ Only s
  where q = [sql|
-              select table_schema, table_name,\
-                     is_insertable_into \
-                from information_schema.tables\
+              select table_schema, table_name,
+                     is_insertable_into
+                from information_schema.tables
               where table_schema = ? |]

 columns :: T.Text -> Connection -> IO [Column]