diff --git a/libraries/ghc-internal/src/GHC/Internal/Foreign/Marshal/Error.hs b/libraries/ghc-internal/src/GHC/Internal/Foreign/Marshal/Error.hs
index abf2af6c0ead541e5d1e229935fd33ace607b882..2807de546c65f621eaa7fb4ebc3f5958b211a581 100644
--- a/libraries/ghc-internal/src/GHC/Internal/Foreign/Marshal/Error.hs
+++ b/libraries/ghc-internal/src/GHC/Internal/Foreign/Marshal/Error.hs
@@ -75,4 +75,4 @@ throwIfNull  = throwIf (== nullPtr) . const
 --
 void     :: IO a -> IO ()
 void act  = act >> return ()
-{-# DEPRECATED void "use 'GHC.Internal.Control.Monad.void' instead" #-} -- deprecated in 7.6
+{-# DEPRECATED void "use 'Control.Monad.void' instead" #-} -- deprecated in 7.6
diff --git a/libraries/ghc-internal/src/GHC/Internal/List.hs b/libraries/ghc-internal/src/GHC/Internal/List.hs
index 4e8be771ea38576a9a7137761fe775cca7dc7a12..618fd3b20d3b077f63b923837cf4f49a9b98714e 100644
--- a/libraries/ghc-internal/src/GHC/Internal/List.hs
+++ b/libraries/ghc-internal/src/GHC/Internal/List.hs
@@ -90,7 +90,7 @@ head (x:_)              =  x
 head []                 =  badHead
 {-# NOINLINE [1] head #-}
 
-{-# WARNING in "x-partial" head "This is a partial function, it throws an error on empty lists. Use pattern matching, 'GHC.Internal.Data.List.uncons' or 'GHC.Internal.Data.Maybe.listToMaybe' instead. Consider refactoring to use \"Data.List.NonEmpty\"." #-}
+{-# WARNING in "x-partial" head "This is a partial function, it throws an error on empty lists. Use pattern matching, 'Data.List.uncons' or 'Data.Maybe.listToMaybe' instead. Consider refactoring to use \"Data.List.NonEmpty\"." #-}
 
 badHead :: HasCallStack => a
 badHead = errorEmptyList "head"