Testsuite: tabs -> spaces [skip ci]
[ghc.git] / testsuite / tests / typecheck / should_compile / tc088.hs
index 147909e..bf44218 100644 (file)
@@ -8,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