Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / typecheck / should_compile / tc088.hs
index b6bf497..bf44218 100644 (file)
@@ -1,3 +1,5 @@
+{-# OPTIONS_GHC -fno-warn-redundant-constraints #-}
+
 -- Check that "->" is an instance of Eval
 
 module ShouldSucceed where
@@ -6,10 +8,10 @@ instance Show (a->b) where
         show _ = error "attempt to show function"
 
 instance (Eq b) => Eq (a -> b) where
-       (==) f g = error "attempt to compare functions"
+        (==) f g = error "attempt to compare functions"
 
-       -- Since Eval is a superclass of Num this fails 
-       -- unless -> is an instance of Eval
+        -- Since Eval is a superclass of Num this fails
+        -- unless -> is an instance of Eval
 instance (Num b) => Num (a -> b) where
     f + g                     =  \a -> f a + g a
     f - g                     =  \a -> f a - g a