blob: 5f0453c1a79fa00c05f4638c2d57a91c6d8ea4ad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
-- test the representation of literals and also explicit type annotations
module TH_repE1
where
import Language.Haskell.TH
emptyListExpr :: ExpQ
emptyListExpr = [| [] |]
singletonListExpr :: ExpQ
singletonListExpr = [| [4] |]
listExpr :: ExpQ
listExpr = [| [4,5,6] |]
consExpr :: ExpQ
consExpr = [| 4:5:6:[] |]
|
