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