{-# LANGUAGE TemplateHaskell #-}
module Database.SQLite.Simple.QQ
( sql
) where
import Data.String (fromString)
import Database.SQLite.Simple.Types (Query)
import Language.Haskell.TH (Exp, Q, appE, stringE)
import Language.Haskell.TH.Quote (QuasiQuoter (..))
sql :: QuasiQuoter
sql :: QuasiQuoter
sql = QuasiQuoter :: (String -> Q Exp)
-> (String -> Q Pat)
-> (String -> Q Type)
-> (String -> Q [Dec])
-> QuasiQuoter
QuasiQuoter
{ quotePat :: String -> Q Pat
quotePat = String -> String -> Q Pat
forall a. HasCallStack => String -> a
error "Database.SQLite.Simple.QQ.sql: quasiquoter used in pattern context"
, quoteType :: String -> Q Type
quoteType = String -> String -> Q Type
forall a. HasCallStack => String -> a
error "Database.SQLite.Simple.QQ.sql: quasiquoter used in type context"
, quoteDec :: String -> Q [Dec]
quoteDec = String -> String -> Q [Dec]
forall a. HasCallStack => String -> a
error "Database.SQLite.Simple.QQ.sql: quasiquoter used in declaration context"
, quoteExp :: String -> Q Exp
quoteExp = String -> Q Exp
sqlExp
}
sqlExp :: String -> Q Exp
sqlExp :: String -> Q Exp
sqlExp = Q Exp -> Q Exp -> Q Exp
appE [| fromString :: String -> Query |] (Q Exp -> Q Exp) -> (String -> Q Exp) -> String -> Q Exp
forall b c a. (b -> c) -> (a -> b) -> a -> c
. String -> Q Exp
stringE