diff options
| author | David Waern <davve@dtek.chalmers.se> | 2007-10-02 14:37:13 +0000 |
|---|---|---|
| committer | David Waern <davve@dtek.chalmers.se> | 2007-10-02 14:37:13 +0000 |
| commit | 5ccedd80f734c4e2d3789f399880b589dec8c70e (patch) | |
| tree | 31ba73d18bf24f5a49b422ecba33e1baf01183d2 /compiler/parser | |
| parent | 591f4528375b0a049de6c15fe6d4ab476362f448 (diff) | |
| download | haskell-5ccedd80f734c4e2d3789f399880b589dec8c70e.tar.gz | |
FIX: parsing of doc options
Lexing of the doc options pragma was changed, but but no change was
made to the parser to reflect that. This patch fixes this problem.
MERGE TO STABLE
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/Parser.y.pp | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp index 2bfb895b17..d91143f333 100644 --- a/compiler/parser/Parser.y.pp +++ b/compiler/parser/Parser.y.pp @@ -1859,7 +1859,7 @@ docsection :: { Located (n, HsDoc RdrName) } Right doc -> return (L1 (n, doc)) } } docoptions :: { String } - : DOCOPTIONS { getDOCOPTIONS $1 } + : DOCOPTIONS '#-}' { getDOCOPTIONS $1 } moduleheader :: { (HaddockModInfo RdrName, Maybe (HsDoc RdrName)) } : DOCNEXT {% let string = getDOCNEXT $1 in |