c4d4eca · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Merge pull request #133 from mikeplus64/master

Don't require OverloadedStrings by explicitly calling fromString.

commitc4d4ecafab4c8aab7b77cbe8694654e533aeb5f5 authorLeon P Smith <leon.p.smith+github@gmail.com> dateThu 26 Feb 2015, 08:59 (12 years ago) parent48d4cd8 5fa5b39

1 file changed+4−2

compare with master

unifiedsplit

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

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

@@ -1,3 +1,4 @@

1+{-# LANGUAGE TemplateHaskell #-}

12------------------------------------------------------------------------------

23-- |

34-- Module: Database.PostgreSQL.Simple.SqlQQ

@@ -9,10 +10,11 @@

910------------------------------------------------------------------------------

1011

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

12−

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

1314import Language.Haskell.TH

1415import Language.Haskell.TH.Quote

1516import Data.Char

17+import Data.String

1618

1719-- | 'sql' is a quasiquoter that eases the syntactic burden

1820-- of writing big sql statements in Haskell source code. For example:

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

6062 }

6163

6264sqlExp :: String -> Q Exp

63−sqlExp = stringE . minimizeSpace

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

6466

6567minimizeSpace :: String -> String

6668minimizeSpace = drop 1 . reduceSpace