Skip to content
Snippets Groups Projects
Commit 55eb8c98 authored by Ben Gamari's avatar Ben Gamari Committed by Marge Bot
Browse files

ghc-internal: Fix mentions of ghc-internal in deprecation warnings

Closes #24609.
parent a4bb3a51
No related branches found
No related tags found
No related merge requests found
...@@ -75,4 +75,4 @@ throwIfNull = throwIf (== nullPtr) . const ...@@ -75,4 +75,4 @@ throwIfNull = throwIf (== nullPtr) . const
-- --
void :: IO a -> IO () void :: IO a -> IO ()
void act = act >> return () 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
...@@ -90,7 +90,7 @@ head (x:_) = x ...@@ -90,7 +90,7 @@ head (x:_) = x
head [] = badHead head [] = badHead
{-# NOINLINE [1] head #-} {-# 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 :: HasCallStack => a
badHead = errorEmptyList "head" badHead = errorEmptyList "head"
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment