From e8e8d96e97d0748ce13412a15c55c8532d0f2d8b Mon Sep 17 00:00:00 2001
From: Joe Nelson <cred+github@begriffs.com>
Date: Sun, 6 Jul 2014 18:42:31 -0700
Subject: [PATCH] Fix quasi-quote in tables function

---
 PgStructure.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/PgStructure.hs b/PgStructure.hs
index 52d781097..e662e0b8d 100644
--- a/PgStructure.hs
+++ b/PgStructure.hs
@@ -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]