diff options
| author | Ian Lynagh <igloo@earth.li> | 2012-06-12 14:38:01 +0100 |
|---|---|---|
| committer | Ian Lynagh <igloo@earth.li> | 2012-06-12 14:38:01 +0100 |
| commit | 315338287ea84b525da7d8fa8252cc9ec99597bb (patch) | |
| tree | e6d25af665d95c1002a98b81eaf5f902cf6bb112 /src/Haddock/Interface/LexParseRn.hs | |
| parent | 4fbd2b4b0088d373f0d026dc1cd7117269c7a9db (diff) | |
Follow changes in GHC
Diffstat (limited to 'src/Haddock/Interface/LexParseRn.hs')
| -rw-r--r-- | src/Haddock/Interface/LexParseRn.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Interface/LexParseRn.hs b/src/Haddock/Interface/LexParseRn.hs index 27a52ea2..0871c560 100644 --- a/src/Haddock/Interface/LexParseRn.hs +++ b/src/Haddock/Interface/LexParseRn.hs @@ -80,7 +80,7 @@ lexParseRnHaddockModHeader dflags gre safety mbStr = do tell ["haddock module header parse failed: " ++ mess] return failure Right (info, doc) -> return (renameHmi gre info, Just (rename gre doc)) - return (hmi { hmi_safety = Just $ showPpr safety }, docn) + return (hmi { hmi_safety = Just $ showPpr dflags safety }, docn) where failure = (emptyHaddockModInfo, Nothing) |