diff options
| author | Roland Senn <rsx@bluewin.ch> | 2021-01-01 14:01:41 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-01-07 00:12:09 -0500 |
| commit | 1de2050edd8a2647e89a9269278a79b61892b59e (patch) | |
| tree | 2c902e80f7b030d42ddc38770b878a5db1315e48 /testsuite/tests/ghci/scripts/T17500.hs | |
| parent | 06982b6cc886d65aa325475ddfb4ad38c69b2d96 (diff) | |
| download | haskell-1de2050edd8a2647e89a9269278a79b61892b59e.tar.gz | |
GHCi: Fill field `DynFlags.dumpPrefix`. (Fixes #17500)
For interactive evaluations set the field `DynFlags.dumpPrefix` to the
GHCi internal module name. The GHCi module name for an interactive
evaluation is something like `Ghci9`.
To avoid user confusion, don't dump any data for GHCi internal evaluations.
Extend the comment for `DynFlags.dumpPrefix` and fix a little typo in a
comment about the GHCi internal module names.
Diffstat (limited to 'testsuite/tests/ghci/scripts/T17500.hs')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T17500.hs | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T17500.hs b/testsuite/tests/ghci/scripts/T17500.hs new file mode 100644 index 0000000000..a3e05741a7 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T17500.hs @@ -0,0 +1,8 @@ +module T17500 where + +import Data.List ( isInfixOf ) + +isBCOsFile :: String -> IO Bool +isBCOsFile fname = do + content <- readFile fname + pure $ "== Proto-BCOs ==" `isInfixOf` content -- Check title line |