diff options
Diffstat (limited to 'testsuite/tests/hiefile')
| -rw-r--r-- | testsuite/tests/hiefile/should_run/HieQueries.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/hiefile/should_run/PatTypes.hs | 4 |
2 files changed, 2 insertions, 6 deletions
diff --git a/testsuite/tests/hiefile/should_run/HieQueries.hs b/testsuite/tests/hiefile/should_run/HieQueries.hs index 68f6516d0e..d48dd02cd0 100644 --- a/testsuite/tests/hiefile/should_run/HieQueries.hs +++ b/testsuite/tests/hiefile/should_run/HieQueries.hs @@ -42,9 +42,7 @@ point' = (37,9) data A = A deriving Show makeNc :: IO NameCache -makeNc = do - uniq_supply <- mkSplitUniqSupply 'z' - initNameCache uniq_supply [] +makeNc = initNameCache 'z' [] dynFlagsForPrinting :: String -> IO DynFlags dynFlagsForPrinting libdir = do diff --git a/testsuite/tests/hiefile/should_run/PatTypes.hs b/testsuite/tests/hiefile/should_run/PatTypes.hs index 0f5f733066..67a89d1c49 100644 --- a/testsuite/tests/hiefile/should_run/PatTypes.hs +++ b/testsuite/tests/hiefile/should_run/PatTypes.hs @@ -33,9 +33,7 @@ p3 = (24,11) p4 = (26,5) makeNc :: IO NameCache -makeNc = do - uniq_supply <- mkSplitUniqSupply 'z' - initNameCache uniq_supply [] +makeNc = initNameCache 'z' [] dynFlagsForPrinting :: String -> IO DynFlags dynFlagsForPrinting libdir = do |