git.iko.soy/vty
on master help sign in
vty/test/HereDoc.hs
12 lines 393 B history raw
1{-# LANGUAGE QuasiQuotes #-}
2{-# LANGUAGE TemplateHaskell #-}
3-- From http://www.reddit.com/r/haskell/comments/8ereh/a_here_document_syntax/
4-- copyright unknown?
5module HereDoc (heredoc) where
7import Language.Haskell.TH.Quote
8import Language.Haskell.TH.Syntax
9import Language.Haskell.TH.Lib
11heredoc :: QuasiQuoter
12heredoc = QuasiQuoter (litE . stringL) (litP . stringL) undefined undefined