/src-extra/util/Database/HsSqlPpp/Utils/Here.lhs

 1
 2Multiline string support, mainly used to enter multiline sql strings
 3
 4robbed from http://old.nabble.com/Multi-line-string-literals-are-both-easy--and--elegant-in-Haskell-td19959973.html
 5
 6> module Database.HsSqlPpp.Utils.Here where
 7>
 8> import Language.Haskell.TH.Quote
 9> --import Language.Haskell.TH.Syntax
10> import Language.Haskell.TH.Lib
11>
12> here :: QuasiQuoter
13> here = QuasiQuoter {quoteExp = litE . stringL
14>                    ,quotePat = litP . stringL
15>                    ,quoteType = undefined
16>                    ,quoteDec = undefined}