hssqlppp-0.6.2: tests/Database/HsSqlPpp/Utils/Here.lhs

Simple support for multiline strings

> {-# LANGUAGE TemplateHaskell #-}
> module Database.HsSqlPpp.Utils.Here where
> import Language.Haskell.TH.Quote
> import Language.Haskell.TH.Lib

> here :: QuasiQuoter
> here = QuasiQuoter {quoteExp = litE . stringL
>                    ,quotePat = litP . stringL
>                    ,quoteType = error "no quoteType for here"
>                    ,quoteDec = error "no quoteDec for here"}