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 <e...@cis.upenn.edu> 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 _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
