testsuite/tests/quasiquotation/qq008/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