diff options
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) |