testsuite/tests/ghc-regress/quasiquotation/T4150.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

{-# LANGUAGE CPP, QuasiQuotes #-}

module Main (main) where

import T4150A

myHtmlsTemplate = [multiLineStr|
#include "T4150template.txt"
|]

somethingElse :: NoSuchType
somethingElse = undefined

main :: IO ()
main = print myHtmlsTemplate