Modules: Types (#13009)

Update Haddock submodule

Metric Increase:
   haddock.compiler

1 files changed, 3 insertions, 3 deletions

diff --git a/libraries/ghc-prim/GHC/Magic.hs b/libraries/ghc-prim/GHC/Magic.hs
index d973aceb9e..77cfd00a54 100644
--- a/libraries/ghc-prim/GHC/Magic.hs
+++ b/libraries/ghc-prim/GHC/Magic.hs
@@ -27,7 +27,7 @@
 module GHC.Magic ( inline, noinline, lazy, oneShot, runRW# ) where
 
 --------------------------------------------------
---        See Note [magicIds] in MkId.hs
+--        See Note [magicIds] in GHC.Types.Id.Make
 --------------------------------------------------
 
 -- Here import TYPE explicitly from GHC.Types and not from GHC.Prim. This is
@@ -88,7 +88,7 @@ noinline x = x
 lazy :: a -> a
 lazy x = x
 -- Implementation note: its strictness and unfolding are over-ridden
--- by the definition in MkId.hs; in both cases to nothing at all.
+-- by the definition in GHC.Types.Id.Make; in both cases to nothing at all.
 -- That way, 'lazy' does not get inlined, and the strictness analyser
 -- sees it as lazy.  Then the worker/wrapper phase inlines it.
 -- Result: happiness
@@ -109,7 +109,7 @@ oneShot :: forall (q :: RuntimeRep) (r :: RuntimeRep)
                   (a :: TYPE q) (b :: TYPE r).
            (a -> b) -> a -> b
 oneShot f = f
--- Implementation note: This is wired in in MkId.hs, so the code here is
+-- Implementation note: This is wired in in GHC.Types.Id.Make, so the code here is
 -- mostly there to have a place for the documentation.
 
 -- | Apply a function to a @'State#' 'RealWorld'@ token. When manually applying