a8351e1 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

Don't require OverloadedStrings by explicitly call fromString.

commita8351e1dd18c08cb4aab4e8bb9a1ef63a25b01cf authormike <eleventynine@gmail.com> dateThu 11 Dec 2014, 00:48 (12 years ago) parent5673db0

1 file changed+3−1

unifiedsplit

src/Database/PostgreSQL/Simple/SqlQQ.hs+3−1

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

1+{-# LANGUAGE TemplateHaskell #-}

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

23-- |

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

@@ -13,6 +14,7 @@ module Database.PostgreSQL.Simple.SqlQQ (sql) where

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 |] . stringE . minimizeSpace

6466

6567minimizeSpace :: String -> String

6668minimizeSpace = drop 1 . reduceSpace