a8351e1 · typeable/postgresql-simple

git.iko.soy/typeable/postgresql-simple

on master help sign in

Don't require OverloadedStrings by explicitly call fromString.

a8351e1mike12 years ago

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

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

1+{-# LANGUAGE TemplateHaskell #-}

1------------------------------------------------------------------------------

2------------------------------------------------------------------------------

2-- |

3-- |

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

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

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

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

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 }

62sqlExp :: String -> Q Exp

64sqlExp :: String -> Q Exp

63−sqlExp = stringE . minimizeSpace

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

65minimizeSpace :: String -> String

67minimizeSpace :: String -> String

66minimizeSpace = drop 1 . reduceSpace

68minimizeSpace = drop 1 . reduceSpace