From fea4277692ba68cccc6c9642655289037e4b8979 Mon Sep 17 00:00:00 2001
From: Richard Eisenberg <eir@cis.upenn.edu>
Date: Mon, 21 Sep 2015 12:00:47 -0400
Subject: React to refactoring CoAxiom branch lists.
---
haddock-api/src/Haddock/Convert.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
(limited to 'haddock-api/src/Haddock')
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 []
--
cgit v1.2.3