diff options
| author | Alexander Biehl <alexbiehl@gmail.com> | 2021-02-08 18:11:24 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-02-08 18:11:24 +0100 |
| commit | 4f1a309700106b62831309931e449a603093f521 (patch) | |
| tree | e4716c076ef5f05d63235bbf475f939fa1ed402f /haddock-api/src/Haddock/Interface/AttachInstances.hs | |
| parent | a30ebe591c862bcaac321ce9a5c03fa2ce56729e (diff) | |
| parent | 05e2666af785f2b33395673839a5edf549901d36 (diff) | |
Merge pull request #1310 from hsyl20/wip/hsyl20/logger2
Logger refactoring
Diffstat (limited to 'haddock-api/src/Haddock/Interface/AttachInstances.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Interface/AttachInstances.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/Interface/AttachInstances.hs b/haddock-api/src/Haddock/Interface/AttachInstances.hs index 6ef0ed19..317258eb 100644 --- a/haddock-api/src/Haddock/Interface/AttachInstances.hs +++ b/haddock-api/src/Haddock/Interface/AttachInstances.hs @@ -127,9 +127,8 @@ attachToExportItem index expInfo getInstDoc getFixity export = cleanFamInsts = [ (fi, n, L l r, m) | (Right fi, n, L l (Right r), m) <- fam_insts ] famInstErrs = [ errm | (Left errm, _, _, _) <- fam_insts ] in do - dfs <- getDynFlags let mkBug = (text "haddock-bug:" <+>) . text - liftIO $ putMsg dfs (sep $ map mkBug famInstErrs) + putMsgM (sep $ map mkBug famInstErrs) return $ cls_insts ++ cleanFamInsts return $ e { expItemInstances = insts } e -> return e |