diff options
Diffstat (limited to 'testsuite/tests/ghc-api/T4891')
-rw-r--r-- | testsuite/tests/ghc-api/T4891/T4891.hs | 2 | ||||
-rw-r--r-- | testsuite/tests/ghc-api/T4891/T4891.stdout | 10 |
2 files changed, 6 insertions, 6 deletions
diff --git a/testsuite/tests/ghc-api/T4891/T4891.hs b/testsuite/tests/ghc-api/T4891/T4891.hs index 82981a9e82..c6d35773f7 100644 --- a/testsuite/tests/ghc-api/T4891/T4891.hs +++ b/testsuite/tests/ghc-api/T4891/T4891.hs @@ -62,6 +62,6 @@ chaseConstructor !hv = do Right dcName -> do putStrLn $ "Name: " ++ showPpr dflags dcName putStrLn $ "OccString: " ++ "'" ++ getOccString dcName ++ "'" - dc <- ioLookupDataCon hscEnv dcName + dc <- lookupGlobal hscEnv dcName putStrLn $ "DataCon: " ++ showPpr dflags dc _ -> return () diff --git a/testsuite/tests/ghc-api/T4891/T4891.stdout b/testsuite/tests/ghc-api/T4891/T4891.stdout index 8ad0b4eabe..758d497e16 100644 --- a/testsuite/tests/ghc-api/T4891/T4891.stdout +++ b/testsuite/tests/ghc-api/T4891/T4891.stdout @@ -1,20 +1,20 @@ ===== Name: False OccString: 'False' -DataCon: False +DataCon: Data constructor ‘False’ ===== Name: : OccString: ':' -DataCon: : +DataCon: Data constructor ‘:’ ===== Name: :-> OccString: ':->' -DataCon: :-> +DataCon: Data constructor ‘:->’ ===== Name: :->. OccString: ':->.' -DataCon: :->. +DataCon: Data constructor ‘:->.’ ===== Name: :->.+ OccString: ':->.+' -DataCon: :->.+ +DataCon: Data constructor ‘:->.+’ |