X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Ftests%2Ftypecheck%2Fshould_succeed%2Ftc054.hs;fp=ghc%2Fcompiler%2Ftests%2Ftypecheck%2Fshould_succeed%2Ftc054.hs;h=0000000000000000000000000000000000000000;hb=e3b67289ad773d37576e763704baaca6b83d74db;hp=df9deb08aaeafdb96be7b9582e5beb1d8fcac365;hpb=29b46083beaa048af4b4a68e8f96909ac98a639f;p=ghc-hetmet.git diff --git a/ghc/compiler/tests/typecheck/should_succeed/tc054.hs b/ghc/compiler/tests/typecheck/should_succeed/tc054.hs deleted file mode 100644 index df9deb0..0000000 --- a/ghc/compiler/tests/typecheck/should_succeed/tc054.hs +++ /dev/null @@ -1,16 +0,0 @@ -module ShouldSucceed where - -class Eq' a where - doubleeq :: a -> a -> Bool - -class (Eq' a) => Ord' a where - lt :: a -> a -> Bool - -instance Eq' Int where - doubleeq x y = True - -instance Ord' Int where - lt x y = True - -f x y | lt x 1 = True - | otherwise = False