diff options
| author | Alan Zimmerman <alan.zimm@gmail.com> | 2017-10-17 15:00:02 +0200 |
|---|---|---|
| committer | Alan Zimmerman <alan.zimm@gmail.com> | 2017-11-07 08:28:03 +0200 |
| commit | 01eeeb048acd2dd05ff6471ae148a97cf0720547 (patch) | |
| tree | 3598e6d0f16fee0640d96b4cf12426155608acae /haddock-api/src/Haddock/GhcUtils.hs | |
| parent | 1789c77a6ed1580dc10a4391dc8c398e902f03b1 (diff) | |
Match changes for Trees that Grow in GHC
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 a1009c1f..1999be76 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 (selectorFieldOcc . unL) $ + RecCon fields -> map (extFieldOcc . unL) $ concatMap (cd_fld_names . unL) (unL fields) _ -> [] |