X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcoreSyn%2FCoreLint.lhs;h=732ab7a7dba716fd8fe55ff6087f1c2e86af0381;hp=c69a9d2f3d12fe0b0f86bf785d3caa22a60fbdaf;hb=d2ca68e80206520e7468e9bea053573d1026433e;hpb=f2e74c8829d283aab5024731506f505ec4d5c7cb

diff --git a/compiler/coreSyn/CoreLint.lhs b/compiler/coreSyn/CoreLint.lhs
index c69a9d2..732ab7a 100644
--- a/compiler/coreSyn/CoreLint.lhs
+++ b/compiler/coreSyn/CoreLint.lhs
@@ -213,8 +213,7 @@ lintCoreExpr (Var var)
 
 	; checkDeadIdOcc var
 	; var' <- lookupIdInScope var
-        ; return (idType var')
-        }
+        ; return (idType var') }
 
 lintCoreExpr (Lit lit)
   = return (literalType lit)