diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2017-11-21 15:52:15 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2017-11-21 16:36:06 -0500 |
| commit | ae0d140334fff57f2737dbd7c5804b4868d9c3ab (patch) | |
| tree | 3f1ef4707ddf7fb79737643a9b4175a89e302247 /haddock-api/src/Haddock/GhcUtils.hs | |
| parent | be45ddae4e2f7d971f2166d9a8fe45402ddcb3c1 (diff) | |
Revert "Match changes for Trees that Grow in GHC"
This reverts commit 01eeeb048acd2dd05ff6471ae148a97cf0720547.
Diffstat (limited to 'haddock-api/src/Haddock/GhcUtils.hs')
| -rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs index 1999be76..a1009c1f 100644 --- a/haddock-api/src/Haddock/GhcUtils.hs +++ b/haddock-api/src/Haddock/GhcUtils.hs @@ -180,7 +180,7 @@ class Parent a where instance Parent (ConDecl GhcRn) where children con = case getConDetails con of - RecCon fields -> map (extFieldOcc . unL) $ + RecCon fields -> map (selectorFieldOcc . unL) $ concatMap (cd_fld_names . unL) (unL fields) _ -> [] |