Fix comments.
authorMichal Terepeta <michal.terepeta@gmail.com>
Mon, 21 Nov 2011 20:36:17 +0000 (21:36 +0100)
committerIan Lynagh <igloo@earth.li>
Tue, 22 Nov 2011 20:07:43 +0000 (20:07 +0000)
compiler/coreSyn/CoreSyn.lhs

index a8dbbce..3258d3d 100644 (file)
@@ -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