aboutsummaryrefslogtreecommitdiff
path: root/haddock-api/src/Haddock
diff options
context:
space:
mode:
Diffstat (limited to 'haddock-api/src/Haddock')
-rw-r--r--haddock-api/src/Haddock/Convert.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index 43cd0ea2..3fd783aa 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -172,7 +172,7 @@ synifyTyCon coax tc
ClosedSynFamilyTyCon mb -> case mb of
Just (CoAxiom { co_ax_branches = branches })
-> return $ ClosedTypeFamily $ Just $
- brListMap (noLoc . synifyAxBranch tc) branches
+ map (noLoc . synifyAxBranch tc) (fromBranches branches)
Nothing -> return $ ClosedTypeFamily $ Just []
BuiltInSynFamTyCon {}
-> return $ ClosedTypeFamily $ Just []