X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FcoreSyn%2FCoreUtils.lhs;fp=ghc%2Fcompiler%2FcoreSyn%2FCoreUtils.lhs;h=24a6eb1c356eec6626890b119ab312719e202e37;hb=853e20a3eb86137cdb8accf69c6caa9db83a3d34;hp=f7383191d9fd3db527dd89e408ec28dd790b9e07;hpb=ca739e852566d7e0bfd594e6d7bf08da04f78d3c;p=ghc-hetmet.git

diff --git a/ghc/compiler/coreSyn/CoreUtils.lhs b/ghc/compiler/coreSyn/CoreUtils.lhs
index f738319..24a6eb1 100644
--- 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 _ _)