mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-11-29 16:54:42 +03:00
7b38759846
Ignore-this: 1d31bef2e227fefafe8bb4b6f9511e1d darcs-hash:20090904172928-f0a0d-987b6931294fd33f7825eddc0adf04c81716a4dd.gz
15 lines
378 B
Haskell
15 lines
378 B
Haskell
{-# 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)
|
|
|