[project @ 2003-06-03 09:41:48 by ross]

[ghc-hetmet.git] / ghc / compiler / rename / RnTypes.lhs

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index 121cf07..fed9f0d 100644 (file)
--- a/ghc/compiler/rename/RnTypes.lhs
+++ b/ghc/compiler/rename/RnTypes.lhs
@@ -567,7 +567,8 @@ forAllWarn doc ty tyvar
             InterfaceMode _ -> returnM () ; -- Don't warn of unused tyvars in interface files
                                            -- unless DEBUG is on, in which case it is slightly
                                            -- informative.  They can arise from mkRhsTyLam,
-#endif                                     -- leading to (say)         f :: forall a b. [b] -> [b]
+                                           -- leading to (say)         f :: forall a b. [b] -> [b]
+#endif
             other ->
                addWarn (
                   sep [ptext SLIT("The universally quantified type variable") <+> quotes (ppr tyvar),
@@ -612,4 +613,4 @@ dupFieldErr str (dup:rest)
 
 ppr_op op = quotes (ppr op)    -- Here, op can be a Name or a (Var n), where n is a Name
 ppr_opfix (pp_op, fixity) = pp_op <+> brackets (ppr fixity)
-\end{code}
\ No newline at end of file
+\end{code}