diff options
| author | Ian Lynagh <igloo@earth.li> | 2010-07-07 12:04:23 +0000 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2010-07-07 12:04:23 +0000 |
| commit | 8538e4ba68b3d34ceaa2677ed242ac45ab456ce7 (patch) | |
| tree | 97d76aa49c992b9790c6ad8eaf4d9549b33e91b3 /compiler/main/HeaderInfo.hs | |
| parent | 847d3977929216f2484ed6ae33112b74fc86776a (diff) | |
| download | haskell-8538e4ba68b3d34ceaa2677ed242ac45ab456ce7.tar.gz | |
Handle haddock headers when looking for LANGUAGE/OPTIONS_GHC pragmas
Diffstat (limited to 'compiler/main/HeaderInfo.hs')
| -rw-r--r-- | compiler/main/HeaderInfo.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/compiler/main/HeaderInfo.hs b/compiler/main/HeaderInfo.hs index 5a75ed33bf..cf61b8c0d6 100644 --- a/compiler/main/HeaderInfo.hs +++ b/compiler/main/HeaderInfo.hs @@ -228,6 +228,9 @@ getOptions' toks parseToks (open:xs) | ITlanguage_prag <- getToken open = parseLanguage xs + parseToks (x:xs) + | ITdocCommentNext _ <- getToken x + = parseToks xs parseToks _ = [] parseLanguage (L loc (ITconid fs):rest) = checkExtension (L loc fs) : |