summaryrefslogtreecommitdiff
path: root/tests/examples/ghc86/TH_repE3.hs
blob: 488fbe0aa15960b0a2c02d3f9030b1ae6f7f4ab4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
-- test the representation of literals and also explicit type annotations
{-# LANGUAGE TemplateHaskell #-}

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:[] |]