testsuite/tests/printer/Ppr033.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

{-# LANGUAGE TemplateHaskell            #-}

import Language.Haskell.TH

makeLenses '' PostscriptFont

ty :: Q Type
ty = [t| Int |]

f :: $ty
f = undefined

g :: $(ty)
g = undefined

thb = $(do { let x = mkName "x"
                 v = return (LamE [VarP x] $ VarE x)
           ; [| $v . id |] })

foo2 :: A Bool
foo2 = $$(y)