git.iko.soy/typeable/postgresql-simple
on master help sign in
Return a Query instead of FromString a => a
5fa5b39mike
src/Database/PostgreSQL/Simple/SqlQQ.hs+2−2
compare with master
unifiedsplit
@@ -10,7 +10,7 @@
10------------------------------------------------------------------------------
10------------------------------------------------------------------------------
11
11
12module Database.PostgreSQL.Simple.SqlQQ (sql) where
12module Database.PostgreSQL.Simple.SqlQQ (sql) where
13−
13+import Database.PostgreSQL.Simple.Types (Query)
14import Language.Haskell.TH
14import Language.Haskell.TH
15import Language.Haskell.TH.Quote
15import Language.Haskell.TH.Quote
16import Data.Char
16import Data.Char
@@ -62,7 +62,7 @@ sql = QuasiQuoter
62 }
62 }
63
63
64sqlExp :: String -> Q Exp
64sqlExp :: String -> Q Exp
65−sqlExp = appE [| fromString |] . stringE . minimizeSpace
65+sqlExp = appE [| fromString :: String -> Query |] . stringE . minimizeSpace
66
66
67minimizeSpace :: String -> String
67minimizeSpace :: String -> String
68minimizeSpace = drop 1 . reduceSpace
68minimizeSpace = drop 1 . reduceSpace