diff options
| author | Richard Eisenberg <eir@cis.upenn.edu> | 2015-09-21 12:00:47 -0400 |
|---|---|---|
| committer | Matthew Pickering <matthewtpickering@gmail.com> | 2015-12-14 15:17:02 +0000 |
| commit | 5aac8c97051760f4a13566c636a739f109acc4e1 (patch) | |
| tree | aac2e74563f0ad3b5d43eaaf4f673eb0fdd1d86e /haddock-api/src/Haddock/Convert.hs | |
| parent | 37a1603cd81a117d107a8468f342a0f56af6f64e (diff) | |
React to refactoring CoAxiom branch lists.
Diffstat (limited to 'haddock-api/src/Haddock/Convert.hs')
| -rw-r--r-- | haddock-api/src/Haddock/Convert.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 [] |