X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreLint.lhs;h=5cc82a2ae220f623627bc573880cc7ce006499d5;hb=b6264a6b8a8e22e24464da39ca0a3a0176d91f4e;hp=0ca5c4365af635f59d99ec09d6ea4339ebaf5c25;hpb=116134b1319e60ff38fc3710bd764cff34554837;p=ghc-hetmet.git

diff --git a/compiler/coreSyn/CoreLint.lhs b/compiler/coreSyn/CoreLint.lhs
index 0ca5c43..5cc82a2 100644
--- a/compiler/coreSyn/CoreLint.lhs
+++ b/compiler/coreSyn/CoreLint.lhs
@@ -227,7 +227,7 @@ lintCoreExpr (Var var)
   = do	{ checkL (not (var == oneTupleDataConId))
 		 (ptext (sLit "Illegal one-tuple"))
 
-	; checkDeadIdOcc var
+        ; checkDeadIdOcc var
 	; var' <- lookupIdInScope var
         ; return (idType var') }