blob: 104cba33c6778a457d707aaa48ea2cc645e6051a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{-# LANGUAGE TemplateHaskell, UndecidableInstances #-}
module TH_spliceDecl4_Lib(
instanceIncrSelfTuple,
IncrSelf(..)
)
where
import Control.Monad
import Data.Maybe
import Language.Haskell.TH
class IncrSelf a where
incrSelf :: a -> a
instanceIncrSelfTuple :: Int -> Q [Dec]
instanceIncrSelfTuple n = [d| incrSelf value = True |]
|
