diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-11-08 00:20:15 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-11-08 00:54:05 +0100 |
| commit | 8262c954ac3084f0dfcb6d5fa6e6172afd22eae7 (patch) | |
| tree | 5ace14749ebc7966f10eb694e76ea181789d3072 /compiler/parser/Parser.y | |
| parent | d9c1450a8e2f4af6a8347f64ba2cee98304dbe27 (diff) | |
| download | haskell-8262c954ac3084f0dfcb6d5fa6e6172afd22eae7.tar.gz | |
Parser: allow empty multi-line deprecation warnings
This should work,
{-# DEPRECATED someFunction [] #-}
Test Plan: parser/should_compile/T3303
Reviewers: bgamari, austin
Reviewed By: austin
Subscribers: mpickering
Differential Revision: https://phabricator.haskell.org/D1433
GHC Trac Issues: #11044
Diffstat (limited to 'compiler/parser/Parser.y')
| -rw-r--r-- | compiler/parser/Parser.y | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/parser/Parser.y b/compiler/parser/Parser.y index 62d1114ae4..d72f50d871 100644 --- a/compiler/parser/Parser.y +++ b/compiler/parser/Parser.y @@ -1422,6 +1422,7 @@ stringlist :: { Located (OrdList (Located StringLiteral)) } return (sLL $1 $> (unLoc $1 `snocOL` (L (gl $3) (getStringLiteral $3)))) } | STRING { sLL $1 $> (unitOL (L (gl $1) (getStringLiteral $1))) } + | {- empty -} { noLoc nilOL } ----------------------------------------------------------------------------- -- Annotations |