From 1de2050edd8a2647e89a9269278a79b61892b59e Mon Sep 17 00:00:00 2001 From: Roland Senn Date: Fri, 1 Jan 2021 14:01:41 +0100 Subject: 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. --- testsuite/tests/ghci/scripts/T17500.hs | 8 ++++++++ 1 file changed, 8 insertions(+) create mode 100644 testsuite/tests/ghci/scripts/T17500.hs (limited to 'testsuite/tests/ghci/scripts/T17500.hs') 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 -- cgit v1.2.1