1{-# LANGUAGE TemplateHaskell #-} 2module TErrorExp where 3import Language.Haskell.TH ( tupE, litE, integerL ) 4 5main :: IO () 6main = return $(tupE [litE $ integerL 42, tupE []]) 7