git.iko.soy/typeable/postgresql-simple
on master help sign in
Merge pull request #133 from mikeplus64/master
c4d4ecaLeon P Smith
src/Database/PostgreSQL/Simple/SqlQQ.hs+4−2
compare with master
unifiedsplit
@@ -1,3 +1,4 @@
1+{-# LANGUAGE TemplateHaskell #-}
1------------------------------------------------------------------------------
2------------------------------------------------------------------------------
2-- |
3-- |
3-- Module: Database.PostgreSQL.Simple.SqlQQ
4-- Module: Database.PostgreSQL.Simple.SqlQQ
@@ -9,10 +10,11 @@
9------------------------------------------------------------------------------
10------------------------------------------------------------------------------
10
11
11module Database.PostgreSQL.Simple.SqlQQ (sql) where
12module Database.PostgreSQL.Simple.SqlQQ (sql) where
12−
13+import Database.PostgreSQL.Simple.Types (Query)
13import Language.Haskell.TH
14import Language.Haskell.TH
14import Language.Haskell.TH.Quote
15import Language.Haskell.TH.Quote
15import Data.Char
16import Data.Char
17+import Data.String
16
18
17-- | 'sql' is a quasiquoter that eases the syntactic burden
19-- | 'sql' is a quasiquoter that eases the syntactic burden
18-- of writing big sql statements in Haskell source code. For example:
20-- of writing big sql statements in Haskell source code. For example:
@@ -60,7 +62,7 @@ sql = QuasiQuoter
60 }
62 }
61
63
62sqlExp :: String -> Q Exp
64sqlExp :: String -> Q Exp
63−sqlExp = stringE . minimizeSpace
65+sqlExp = appE [| fromString :: String -> Query |] . stringE . minimizeSpace
64
66
65minimizeSpace :: String -> String
67minimizeSpace :: String -> String
66minimizeSpace = drop 1 . reduceSpace
68minimizeSpace = drop 1 . reduceSpace