[Git][ghc/ghc][wip/T24477] wip
Jade (@Jade)
gitlab at gitlab.haskell.org
Tue May 7 13:29:44 UTC 2024
Jade pushed to branch wip/T24477 at Glasgow Haskell Compiler / GHC
Commits:
34f91e0f by Jade at 2024-05-07T15:34:51+02:00
wip
- - - - -
2 changed files:
- compiler/GHC/Driver/Flags.hs
- testsuite/tests/ffi/should_fail/ccfail001.stderr
Changes:
=====================================
compiler/GHC/Driver/Flags.hs
=====================================
@@ -91,11 +91,11 @@ data ExtensionDeprecation
| ExtensionFlagDeprecated String
deriving Eq
-deprecation :: ExtensionDeprecation -> TurnOnFlag -> Deprecation
-deprecation ExtensionNotDeprecated _ = NotDeprecated
-deprecation (ExtensionFlagDeprecatedCond f _) flag
- | flag /= f = NotDeprecated
-deprecation _ _ = Deprecated
+-- | Always returns 'Deprecated' even when the flag is
+-- only conditionally deprecated.
+deprecation :: ExtensionDeprecation -> Deprecation
+deprecation ExtensionNotDeprecated = NotDeprecated
+deprecation _ = Deprecated
extensionDeprecation :: LangExt.Extension -> ExtensionDeprecation
extensionDeprecation = \case
@@ -170,7 +170,6 @@ extensionName = \case
LangExt.ApplicativeDo -> "ApplicativeDo"
LangExt.LinearTypes -> "LinearTypes"
LangExt.RequiredTypeArguments -> "RequiredTypeArguments" -- Visible forall (VDQ) in types of terms
-
LangExt.StandaloneDeriving -> "StandaloneDeriving"
LangExt.DeriveDataTypeable -> "DeriveDataTypeable"
LangExt.AutoDeriveTypeable -> "AutoDeriveTypeable" -- Automatic derivation of Typeable
@@ -183,7 +182,6 @@ extensionName = \case
LangExt.DeriveLift -> "DeriveLift" -- Allow deriving Lift
LangExt.DerivingStrategies -> "DerivingStrategies"
LangExt.DerivingVia -> "DerivingVia" -- Derive through equal representation
-
LangExt.TypeSynonymInstances -> "TypeSynonymInstances"
LangExt.FlexibleContexts -> "FlexibleContexts"
LangExt.FlexibleInstances -> "FlexibleInstances"
=====================================
testsuite/tests/ffi/should_fail/ccfail001.stderr
=====================================
@@ -1,8 +1,9 @@
-
ccfail001.hs:10:1: error: [GHC-10964]
• Unacceptable result type in foreign declaration:
‘State# RealWorld’ cannot be marshalled in a foreign call
UnliftedFFITypes is required to marshal unlifted types
• When checking declaration:
foreign import ccall safe foo :: Int -> State# RealWorld
- Suggested fix: Perhaps you intended to use UnliftedFFITypes
+ Suggested fix:
+ Perhaps you intended to use the ‘UnliftedFFITypes’ extension
+
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/34f91e0f88fe0df0cf4ae9d55f36a623e5dacc8e
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/34f91e0f88fe0df0cf4ae9d55f36a623e5dacc8e
You're receiving this email because of your account on gitlab.haskell.org.
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20240507/41944846/attachment-0001.html>
More information about the ghc-commits
mailing list