diff options
author | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2013-08-24 16:40:06 +0200 |
---|---|---|
committer | Krzysztof Gogolewski <krz.gogolewski@gmail.com> | 2013-10-05 22:10:52 +0200 |
commit | 3e0109b302bbd9f849d71cbc3efcc905d5271e4e (patch) | |
tree | 5a0ff00c54157385e75aec64fe3276f29d739d7e /compiler/parser/Parser.y.pp | |
parent | 3e7b7c3ade04ad3906ac486c987f1e960057043b (diff) | |
download | haskell-3e0109b302bbd9f849d71cbc3efcc905d5271e4e.tar.gz |
Remove deprecated _scc_ (#8170)
Diffstat (limited to 'compiler/parser/Parser.y.pp')
-rw-r--r-- | compiler/parser/Parser.y.pp | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index b520d62fbc..b74d55d316 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -227,7 +227,6 @@ incorrect. 'then' { L _ ITthen } 'type' { L _ ITtype } 'where' { L _ ITwhere } - '_scc_' { L _ ITscc } -- ToDo: remove 'forall' { L _ ITforall } -- GHC extension keywords 'foreign' { L _ ITforeign } @@ -1504,9 +1503,7 @@ optSemi :: { Bool } | {- empty -} { False } scc_annot :: { Located FastString } - : '_scc_' STRING {% (addWarning Opt_WarnWarningsDeprecations (getLoc $1) (text "_scc_ is deprecated; use an SCC pragma instead")) >>= \_ -> - ( do scc <- getSCC $2; return $ LL scc ) } - | '{-# SCC' STRING '#-}' {% do scc <- getSCC $2; return $ LL scc } + : '{-# SCC' STRING '#-}' {% do scc <- getSCC $2; return $ LL scc } | '{-# SCC' VARID '#-}' { LL (getVARID $2) } hpc_annot :: { Located (FastString,(Int,Int),(Int,Int)) } |