diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-10-18 13:40:23 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-10-20 14:07:49 -0400 |
| commit | 05b8a21884fb3b283acb7d148afc875a95f7752c (patch) | |
| tree | d41b6dcdb9ef529593ab45d3c1e8d82c5db847d0 /testsuite | |
| parent | ef92d88928651fa21b3b23d054f8a97d7b6104cd (diff) | |
| download | haskell-05b8a21884fb3b283acb7d148afc875a95f7752c.tar.gz | |
Make fields of GlobalRdrElt strict
In order to do this I thought it was prudent to change the list type to
a bag type to avoid doing a lot of premature work in plusGRE because of
++.
Fixes #19201
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/plugins/hole-fit-plugin/HoleFitPlugin.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/plugins/hole-fit-plugin/HoleFitPlugin.hs b/testsuite/tests/plugins/hole-fit-plugin/HoleFitPlugin.hs index fe95cb6633..e9f504d92d 100644 --- a/testsuite/tests/plugins/hole-fit-plugin/HoleFitPlugin.hs +++ b/testsuite/tests/plugins/hole-fit-plugin/HoleFitPlugin.hs @@ -10,6 +10,7 @@ import GHC.Tc.Types.Constraint import GHC.Tc.Utils.Monad import Text.Read +import GHC.Data.Bag @@ -28,7 +29,7 @@ initPlugin _ = newTcRef $ HPS 0 Nothing fromModule :: HoleFitCandidate -> [String] fromModule (GreHFCand gre) = - map (moduleNameString . importSpecModule) $ gre_imp gre + map (moduleNameString . importSpecModule) $ (bagToList (gre_imp gre)) fromModule _ = [] toHoleFitCommand :: TypedHole -> String -> Maybe String |