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 #-}`
			`{- 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`
Fixup HereDoc and Verify. 2011-05-20 00:03:46 +04:00			`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