From 55eb8c98895308d2dd025f7bd64c0b80fce6ace3 Mon Sep 17 00:00:00 2001
From: Ben Gamari <ben@smart-cactus.org>
Date: Mon, 8 Apr 2024 13:46:09 -0400
Subject: [PATCH] ghc-internal: Fix mentions of ghc-internal in deprecation
warnings
Closes #24609.
---
.../ghc-internal/src/GHC/Internal/Foreign/Marshal/Error.hs | 2 +-
libraries/ghc-internal/src/GHC/Internal/List.hs | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
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 abf2af6c0ead..2807de546c65 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 4e8be771ea38..618fd3b20d3b 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"
--
GitLab