testsuite/tests/quasiquotation/qq007/Test.hs


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

{-# LANGUAGE QuasiQuotes #-}
module Test where

import QQ

f :: [pq| foo |]    -- Expands to Int -> Int
[pq| blah |]	    -- Expands to f x = x

h [pq| foo |] = f [pq| blah |] * 8	
	-- Expands to h (Just x) = f (x+1) * 8