blob: 69832b89d883fd8578ddb33918d68d9a2939a7ef (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE UnboxedTuples #-}
module T12977 where
import Language.Haskell.TH.Lib
import Language.Haskell.TH.Syntax
zero :: () -> $(conT (unboxedTupleTypeName 0))
zero () = $(conE (unboxedTupleDataName 0))
one :: () -> $(conT (unboxedTupleTypeName 1) `appT` conT ''Int)
one () = $(conE (unboxedTupleDataName 1)) 42
|
