testsuite/tests/th/TH_spliceDecl4.hs


1
2
3
4
5
6
7
8
9
10
11
12

{-# LANGUAGE TemplateHaskell, UndecidableInstances, FlexibleInstances, TypeSynonymInstances #-}

module TH_spliceDecl4 where

import TH_spliceDecl4_Lib

instance IncrSelf String where
    incrSelf x = x ++ "x"

$(instanceIncrSelfTuple 2)