diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-05-20 10:38:10 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-05-24 09:47:52 -0400 |
| commit | 098c7794953ee11334b6a450e6eda598a7ee09dc (patch) | |
| tree | 0164e283dff4b13e0bd25b44c6f5b4e78e3d892d /testsuite/tests/ghc-api | |
| parent | 3e4ef4b2d05ce0bdd70abd96066f0376dc0e13d6 (diff) | |
| download | haskell-098c7794953ee11334b6a450e6eda598a7ee09dc.tar.gz | |
check-{ppr/exact}: Rewrite more directly to just parse files
There was quite a large amount of indirection in these tests, so I have
rewritten them to just directly parse the files rather than making a
module graph and entering other twisty packages.
Diffstat (limited to 'testsuite/tests/ghc-api')
| -rw-r--r-- | testsuite/tests/ghc-api/annotations-literals/literals.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/testsuite/tests/ghc-api/annotations-literals/literals.hs b/testsuite/tests/ghc-api/annotations-literals/literals.hs index e2c21b5269..296cefa551 100644 --- a/testsuite/tests/ghc-api/annotations-literals/literals.hs +++ b/testsuite/tests/ghc-api/annotations-literals/literals.hs @@ -16,6 +16,7 @@ import System.Directory (removeFile) import System.Environment( getArgs ) import qualified Data.Map as Map import Data.Dynamic ( fromDynamic,Dynamic ) +import Control.Monad.IO.Class main::IO() main = do @@ -33,7 +34,7 @@ testOneFile libdir fileName = do , targetContents = Nothing } load LoadAllTargets modSum <- getModSummary mn - toks <- getRichTokenStream (ms_mod modSum) + toks <- liftIO $ getRichTokenStream modSum return toks putStrLn (intercalate "\n" [showToks t]) |