PageRenderTime 17ms CodeModel.GetById 16ms app.highlight 0ms RepoModel.GetById 1ms app.codeStats 0ms

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

http://github.com/JakeWheat/hssqlppp
Haskell | 16 lines | 13 code | 3 blank | 0 comment | 0 complexity | f9f9ea136026f84d259b42371f6c48bf MD5 | raw file
Possible License(s): BSD-3-Clause
 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}