From 5aac8c97051760f4a13566c636a739f109acc4e1 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(-)

diff --git a/haddock-api/src/Haddock/Convert.hs b/haddock-api/src/Haddock/Convert.hs
index cf8b8243..b7aefd09 100644
--- a/haddock-api/src/Haddock/Convert.hs
+++ b/haddock-api/src/Haddock/Convert.hs
@@ -173,7 +173,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