aboutsummaryrefslogtreecommitdiff
path: root/haddock-api
diff options
context:
space:
mode:
authorRichard Eisenberg <eir@cis.upenn.edu>2015-09-21 12:00:47 -0400
committerRichard Eisenberg <eir@cis.upenn.edu>2015-09-21 12:00:47 -0400
commitfea4277692ba68cccc6c9642655289037e4b8979 (patch)
tree20921f6f580dc54d183ac52ebe564d222b5d41df /haddock-api
parentad49d1608f406dc83f64f65920f1c6aa2f75403e (diff)
React to refactoring CoAxiom branch lists.
Diffstat (limited to 'haddock-api')
-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 []