Skip to content
Snippets Groups Projects

Adapt to warning categories changes

Closed Adapt to warning categories changes
wip/amg/warning-categories into ghc-head
Closed Adam Gundry requested to merge wip/amg/warning-categories into ghc-head
Compare
and
1 file
+ 1
− 1
Compare changes
  • Side-by-side
  • Inline
haddock-api/src/Haddock/Interface/Create.hs
+ 1
− 1
@@ -424,7 +424,7 @@ moduleWarning dflags gre (WarnAll w) = Just <$> parseWarning dflags gre w
parseWarning :: DynFlags -> GlobalRdrEnv -> WarningTxt a -> ErrMsgM (Doc Name)
parseWarning dflags gre w = case w of
DeprecatedTxt _ msg -> format "Deprecated: " (foldMap (unpackFS . sl_fs . hsDocString . unLoc) msg)
WarningTxt _ msg -> format "Warning: " (foldMap (unpackFS . sl_fs . hsDocString . unLoc) msg)
WarningTxt _ _ msg -> format "Warning: " (foldMap (unpackFS . sl_fs . hsDocString . unLoc) msg)
where
format x bs = DocWarning . DocParagraph . DocAppend (DocString x)
<$> processDocStringFromString dflags gre bs