diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-07-11 03:02:09 +0200 |
|---|---|---|
| committer | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-07-12 18:22:46 +0200 |
| commit | 494f55ec7ce17302c345e961d3a0b14da80ad72e (patch) | |
| tree | d362944c95463faf9cf881deb28fd7849172e079 /compiler/GHC/Parser.y | |
| parent | c4de6a7a5c6433ae8c4df8a9fa09fbd9f3bbd0bf (diff) | |
| download | haskell-wip/no-core.tar.gz | |
Remove {-# CORE #-} pragma (part of #18048)wip/no-core
This pragma has no effect since 2011.
It was introduced for External Core, which no longer exists.
Updates haddock submodule.
Diffstat (limited to 'compiler/GHC/Parser.y')
| -rw-r--r-- | compiler/GHC/Parser.y | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/compiler/GHC/Parser.y b/compiler/GHC/Parser.y index 041b25d586..8c9f0f8ef2 100644 --- a/compiler/GHC/Parser.y +++ b/compiler/GHC/Parser.y @@ -521,7 +521,6 @@ are the most common patterns, rewritten as regular expressions for clarity: '{-# SPECIALISE_INLINE' { L _ (ITspec_inline_prag _ _) } '{-# SOURCE' { L _ (ITsource_prag _) } '{-# RULES' { L _ (ITrules_prag _) } - '{-# CORE' { L _ (ITcore_prag _) } -- hdaume: annotated core '{-# SCC' { L _ (ITscc_prag _)} '{-# GENERATED' { L _ (ITgenerated_prag _) } '{-# DEPRECATED' { L _ (ITdeprecated_prag _) } @@ -2695,7 +2694,7 @@ optSemi :: { ([Located Token],Bool) } {- Note [Pragmas and operator fixity] ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ -'prag_e' is an expression pragma, such as {-# SCC ... #-}, {-# CORE ... #-}, or +'prag_e' is an expression pragma, such as {-# SCC ... #-} or {-# GENERATED ... #-}. It must be used with care, or else #15730 happens. Consider this infix @@ -2764,11 +2763,6 @@ prag_e :: { Located ([AddAnn], HsPragE GhcPs) } (getINT $7, getINT $9)) ((getINTEGERs $3, getINTEGERs $5), (getINTEGERs $7, getINTEGERs $9) )) } - | '{-# CORE' STRING '#-}' - { sLL $1 $> $ - ([mo $1,mj AnnVal $2,mc $3], - HsPragCore noExtField (getCORE_PRAGs $1) (getStringLiteral $2)) } - fexp :: { ECP } : fexp aexp { ECP $ superFunArg $ @@ -3915,7 +3909,6 @@ getWARNING_PRAGs (L _ (ITwarning_prag src)) = src getDEPRECATED_PRAGs (L _ (ITdeprecated_prag src)) = src getSCC_PRAGs (L _ (ITscc_prag src)) = src getGENERATED_PRAGs (L _ (ITgenerated_prag src)) = src -getCORE_PRAGs (L _ (ITcore_prag src)) = src getUNPACK_PRAGs (L _ (ITunpack_prag src)) = src getNOUNPACK_PRAGs (L _ (ITnounpack_prag src)) = src getANN_PRAGs (L _ (ITann_prag src)) = src |