vty/test/HereDoc.hs

{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
-- From http://www.reddit.com/r/haskell/comments/8ereh/a_here_document_syntax/
-- copyright unknown?
module HereDoc (heredoc) where

import Language.Haskell.TH.Quote
import Language.Haskell.TH.Syntax
import Language.Haskell.TH.Lib

heredoc :: QuasiQuoter
heredoc = QuasiQuoter (litE . stringL) (litP . stringL) undefined undefined
use alloca instead of mallocBytes for exception safety Ignore-this: 1d31bef2e227fefafe8bb4b6f9511e1d darcs-hash:20090904172928-f0a0d-987b6931294fd33f7825eddc0adf04c81716a4dd.gz 2009-09-04 21:29:28 +04:00			`{-# LANGUAGE QuasiQuotes #-}`
			`{-# LANGUAGE TemplateHaskell #-}`
Library-wide export list cleanup 2017-01-22 20:22:15 +03:00			`-- From http://www.reddit.com/r/haskell/comments/8ereh/a_here_document_syntax/`
			`-- copyright unknown?`
use alloca instead of mallocBytes for exception safety Ignore-this: 1d31bef2e227fefafe8bb4b6f9511e1d darcs-hash:20090904172928-f0a0d-987b6931294fd33f7825eddc0adf04c81716a4dd.gz 2009-09-04 21:29:28 +04:00			`module HereDoc (heredoc) where`

			`import Language.Haskell.TH.Quote`
			`import Language.Haskell.TH.Syntax`
			`import Language.Haskell.TH.Lib`

			`heredoc :: QuasiQuoter`
Fixup HereDoc and Verify. 2011-05-20 00:03:46 +04:00			`heredoc = QuasiQuoter (litE . stringL) (litP . stringL) undefined undefined`