---
compiler/coreSyn/CoreSyn.lhs | 6 +++---
1 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/compiler/coreSyn/CoreSyn.lhs b/compiler/coreSyn/CoreSyn.lhs
index a8dbbce..3258d3d 100644
--- a/compiler/coreSyn/CoreSyn.lhs
+++ b/compiler/coreSyn/CoreSyn.lhs
@@ -1003,7 +1003,7 @@ instance Outputable b => OutputableBndr (TaggedBndr b)
where
\begin{code}
-- | Apply a list of argument expressions to a function expression in a nested
fashion. Prefer to
--- use 'CoreUtils.mkCoreApps' if possible
+-- use 'MkCore.mkCoreApps' if possible
mkApps :: Expr b -> [Arg b] -> Expr b
-- | Apply a list of type argument expressions to a function expression in a
nested fashion
mkTyApps :: Expr b -> [Type] -> Expr b
@@ -1073,10 +1073,10 @@ mkDoubleLit d = Lit (mkMachDouble d)
mkDoubleLitDouble d = Lit (mkMachDouble (toRational d))
-- | Bind all supplied binding groups over an expression in a nested let
expression. Prefer to
--- use 'CoreUtils.mkCoreLets' if possible
+-- use 'MkCore.mkCoreLets' if possible
mkLets :: [Bind b] -> Expr b -> Expr b
-- | Bind all supplied binders over an expression in a nested lambda
expression. Prefer to
--- use 'CoreUtils.mkCoreLams' if possible
+-- use 'MkCore.mkCoreLams' if possible
mkLams :: [b] -> Expr b -> Expr b
mkLams binders body = foldr Lam body binders
--
1.7.8.rc3
_______________________________________________
Cvs-ghc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/cvs-ghc
