[commit: haddock] overlapping-tyfams: Change to reflect use of BranchLists instead of normal lists. (aa9d6ce)

Repository : ssh://darcs.haskell.org//srv/darcs/haddock

On branch  : overlapping-tyfams

http://hackage.haskell.org/trac/ghc/changeset/aa9d6ce55260dfa45b426a376c29f7a41a4e2b59

>---------------------------------------------------------------

commit aa9d6ce55260dfa45b426a376c29f7a41a4e2b59
Author: Richard Eisenberg <[email protected]>
Date:   Thu Dec 6 20:30:29 2012 -0500

    Change to reflect use of BranchLists instead of normal lists.

>---------------------------------------------------------------

 src/Haddock/Convert.hs |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/Haddock/Convert.hs b/src/Haddock/Convert.hs
index 9203272..c522ed7 100644
--- a/src/Haddock/Convert.hs
+++ b/src/Haddock/Convert.hs
@@ -106,7 +106,7 @@ synifyAxiom :: CoAxiom br -> TyFamInstDecl Name
 synifyAxiom (CoAxiom { co_ax_tc = tc, co_ax_branches = branches })
   = let eqns = brListMap (noLoc . synifyAxBranch tc) branches
     in TyFamInstDecl { tfid_eqns  = eqns
-                     , tfid_group = (length branches /= 1)
+                     , tfid_group = (brListLength branches /= 1)
                      , tfid_fvs   = placeHolderNames }
 
 synifyTyCon :: TyCon -> TyClDecl Name