mirror of
https://github.com/ilyakooo0/vty.git
synced 2024-10-04 11:17:08 +03:00
15 lines
398 B
Haskell
15 lines
398 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) undefined undefined
|
|
|