diff options
Diffstat (limited to 'testsuite/tests')
| -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, 4 insertions, 4 deletions
diff --git a/testsuite/tests/hiefile/should_run/HieQueries.hs b/testsuite/tests/hiefile/should_run/HieQueries.hs index 2446be5963..68f6516d0e 100644 --- a/testsuite/tests/hiefile/should_run/HieQueries.hs +++ b/testsuite/tests/hiefile/should_run/HieQueries.hs @@ -44,7 +44,7 @@ data A = A deriving Show makeNc :: IO NameCache makeNc = do uniq_supply <- mkSplitUniqSupply 'z' - return $ initNameCache uniq_supply [] + initNameCache uniq_supply [] dynFlagsForPrinting :: String -> IO DynFlags dynFlagsForPrinting libdir = do @@ -55,7 +55,7 @@ main = do libdir:_ <- getArgs df <- dynFlagsForPrinting libdir nc <- makeNc - hfr <- readHieFile (NCU (\f -> pure $ snd $ f nc)) "HieQueries.hie" + hfr <- readHieFile nc "HieQueries.hie" let hf = hie_file_result hfr refmap = generateReferencesMap $ getAsts $ hie_asts hf explainEv df hf refmap point diff --git a/testsuite/tests/hiefile/should_run/PatTypes.hs b/testsuite/tests/hiefile/should_run/PatTypes.hs index 39b9b59f78..0f5f733066 100644 --- a/testsuite/tests/hiefile/should_run/PatTypes.hs +++ b/testsuite/tests/hiefile/should_run/PatTypes.hs @@ -35,7 +35,7 @@ p4 = (26,5) makeNc :: IO NameCache makeNc = do uniq_supply <- mkSplitUniqSupply 'z' - return $ initNameCache uniq_supply [] + initNameCache uniq_supply [] dynFlagsForPrinting :: String -> IO DynFlags dynFlagsForPrinting libdir = do @@ -50,7 +50,7 @@ main = do libdir:_ <- getArgs df <- dynFlagsForPrinting libdir nc <- makeNc - hfr <- readHieFile (NCU (\f -> pure $ snd $ f nc)) "PatTypes.hie" + hfr <- readHieFile nc "PatTypes.hie" let hf = hie_file_result hfr forM_ [p1,p2,p3,p4] $ \point -> do putStr $ "At " ++ show point ++ ", got type: " |