X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fparser%2FParser.y.pp;h=d91143f3335e91ce5644d19dc6ad986c1e830534;hp=2bfb895b17d25da19da456c6eccecc30811efc0a;hb=5ccedd80f734c4e2d3789f399880b589dec8c70e;hpb=591f4528375b0a049de6c15fe6d4ab476362f448

diff --git a/compiler/parser/Parser.y.pp b/compiler/parser/Parser.y.pp
index 2bfb895..d91143f 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