5fa5b39 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Return a Query instead of FromString a => a

commit5fa5b3970addb0cf4b0be3ad2e9f98ff1babf5a4 authormike <eleventynine@gmail.com> dateThu 11 Dec 2014, 01:43 (12 years ago) parenta8351e1

1 file changed+2−2

unifiedsplit

src/Database/PostgreSQL/Simple/SqlQQ.hs+2−2

@@ -10,7 +10,7 @@

1010------------------------------------------------------------------------------

1111

1212module Database.PostgreSQL.Simple.SqlQQ (sql) where

13−

13+import Database.PostgreSQL.Simple.Types (Query)

1414import Language.Haskell.TH

1515import Language.Haskell.TH.Quote

1616import Data.Char

@@ -62,7 +62,7 @@ sql = QuasiQuoter

6262 }

6363

6464sqlExp :: String -> Q Exp

65−sqlExp = appE [| fromString |] . stringE . minimizeSpace

65+sqlExp = appE [| fromString :: String -> Query |] . stringE . minimizeSpace

6666

6767minimizeSpace :: String -> String

6868minimizeSpace = drop 1 . reduceSpace