[project @ 2005-03-31 10:16:33 by simonmar]

[ghc-hetmet.git] / ghc / compiler / coreSyn / CoreUtils.lhs

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index f738319..24a6eb1 100644 (file)
--- a/ghc/compiler/coreSyn/CoreUtils.lhs
+++ b/ghc/compiler/coreSyn/CoreUtils.lhs
@@ -91,7 +91,7 @@ exprType (Var var)            = idType var
 exprType (Lit lit)             = literalType lit
 exprType (Let _ body)          = exprType body
 exprType (Case _ _ ty alts)     = ty
-exprType (Note (Coerce ty _) e) = ty  -- **! should take usage from e
+exprType (Note (Coerce ty _) e) = ty  --  **! should take usage from e
 exprType (Note other_note e)    = exprType e
 exprType (Lam binder expr)      = mkPiType binder (exprType expr)
 exprType e@(App _ _)