diff options
| author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2020-07-11 03:02:09 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-07-18 07:26:45 -0400 |
| commit | 12f9035200424ec8104484f154a040d612fee99d (patch) | |
| tree | 550c799d324d25f15b4dcbe0e5e4b4d61d6a4906 /compiler/GHC/Hs | |
| parent | e5525a51900623e04ec914e9dcc7f4ad1fd3b528 (diff) | |
| download | haskell-12f9035200424ec8104484f154a040d612fee99d.tar.gz | |
Remove {-# CORE #-} pragma (part of #18048)
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/Hs')
| -rw-r--r-- | compiler/GHC/Hs/Expr.hs | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/compiler/GHC/Hs/Expr.hs b/compiler/GHC/Hs/Expr.hs index b2c808519e..565065e2c2 100644 --- a/compiler/GHC/Hs/Expr.hs +++ b/compiler/GHC/Hs/Expr.hs @@ -829,14 +829,6 @@ data HsPragE p SourceText -- Note [Pragma source text] in GHC.Types.Basic StringLiteral -- "set cost centre" SCC pragma - -- | - 'GHC.Parser.Annotation.AnnKeywordId' : 'GHC.Parser.Annotation.AnnOpen' @'{-\# CORE'@, - -- 'GHC.Parser.Annotation.AnnVal', 'GHC.Parser.Annotation.AnnClose' @'\#-}'@ - - -- For details on above see note [Api annotations] in GHC.Parser.Annotation - | HsPragCore (XCoreAnn p) - SourceText -- Note [Pragma source text] in GHC.Types.Basic - StringLiteral -- hdaume: core annotation - -- | - 'GHC.Parser.Annotation.AnnKeywordId' : 'GHC.Parser.Annotation.AnnOpen', -- 'GHC.Parser.Annotation.AnnOpen' @'{-\# GENERATED'@, -- 'GHC.Parser.Annotation.AnnVal','GHC.Parser.Annotation.AnnVal', @@ -1399,9 +1391,6 @@ isAtomicHsExpr (XExpr x) isAtomicHsExpr _ = False instance Outputable (HsPragE (GhcPass p)) where - ppr (HsPragCore _ stc (StringLiteral sta s)) = - pprWithSourceText stc (text "{-# CORE") - <+> pprWithSourceText sta (doubleQuotes $ ftext s) <+> text "#-}" ppr (HsPragSCC _ st (StringLiteral stl lbl)) = pprWithSourceText st (text "{-# SCC") -- no doublequotes if stl empty, for the case where the SCC was written |