X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Frename%2FRnTypes.lhs;h=fed9f0de9cfb795d89e9fa089e6d165a774a6112;hb=06e14415fa8aef5be7d01314d08fcd87873cd0da;hp=121cf076031cebabaebcfe3ebd891bb8423cb039;hpb=56af76cc6a264621bfd18071f21e6a608e691e47;p=ghc-hetmet.git

diff --git a/ghc/compiler/rename/RnTypes.lhs b/ghc/compiler/rename/RnTypes.lhs
index 121cf07..fed9f0d 100644
--- 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}