testsuite/tests/th/T12387.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE TemplateHaskell #-}
module T12387 where

import Language.Haskell.TH.Lib

data Foo = Foo

$(do d <- instanceD (cxt []) (conT ''Eq `appT` conT ''Foo)
            [funD 'compare [clause [] (normalB $ varE 'undefined) []]]
     return [d])