diff options
| author | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-04-24 14:31:41 -0400 |
|---|---|---|
| committer | Shayne Fletcher <shayne@shaynefletcher.org> | 2021-05-22 08:20:39 +1000 |
| commit | 3b6a8774bdb543dad59b2618458b07feab8a55e9 (patch) | |
| tree | e13f2040563baf8e33645c4793e15fd781027918 /haddock-api/src/Haddock/GhcUtils.hs | |
| parent | 3fe1ccd2393837c4e8bc788368c18b40f7dac918 (diff) | |
FieldOcc: rename extFieldOcc to foExt
Diffstat (limited to 'haddock-api/src/Haddock/GhcUtils.hs')
| -rw-r--r-- | haddock-api/src/Haddock/GhcUtils.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/haddock-api/src/Haddock/GhcUtils.hs b/haddock-api/src/Haddock/GhcUtils.hs index 9353708a..fa567da8 100644 --- a/haddock-api/src/Haddock/GhcUtils.hs +++ b/haddock-api/src/Haddock/GhcUtils.hs @@ -290,7 +290,7 @@ restrictCons names decls = [ L p d | L p (Just d) <- map (fmap keep) decls ] where field_avail :: LConDeclField GhcRn -> Bool field_avail (L _ (ConDeclField _ fs _ _)) - = all (\f -> extFieldOcc (unLoc f) `elem` names) fs + = all (\f -> foExt (unLoc f) `elem` names) fs field_types flds = [ hsUnrestricted t | L _ (ConDeclField _ _ t _) <- flds ] @@ -466,7 +466,7 @@ instance Parent (ConDecl GhcRn) where children con = case getRecConArgs_maybe con of Nothing -> [] - Just flds -> map (extFieldOcc . unLoc) $ concatMap (cd_fld_names . unLoc) (unLoc flds) + Just flds -> map (foExt . unLoc) $ concatMap (cd_fld_names . unLoc) (unLoc flds) instance Parent (TyClDecl GhcRn) where children d |