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