Skip to content

Commit dc0c9ea

Browse files
committed
improve probe prompt text
1 parent fd84608 commit dc0c9ea

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/CodeBlockExecutor.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -58,11 +58,11 @@ runCmd g cmd = do
5858
cmd_ = T.concat [":{\n", T.replace ">>" "" cmd, "\n:}\n"]
5959
result <- executeStatement . T.unpack $ cmd_
6060
-- we send this PROBE here since GHCi has its own mind on how it prefixes output based on its native needs. By sending the probe we can guess what is the latest prompt and then discard it while processing thye output.
61-
probe <- exec g ":{\nshow (\"PROBE_PROMPT\"::String)\n:}\n"
61+
probe <- exec g ":{\nshow (\"PANDOC_FILTER_PROBE_PROMPT_INTERNAL\"::String)\n:}\n"
6262
let current_prompt = preparePrompt probe
6363
where
6464
preparePrompt probe' =
65-
let prompt = T.replace " \"\\\"PROBE_PROMPT\\\"\"\n" "" (T.pack . unlines $ probe')
65+
let prompt = T.replace " \"\\\"PANDOC_FILTER_PROBE_PROMPT_INTERNAL\\\"\"\n" "" (T.pack . unlines $ probe')
6666
in
6767
T.concat [T.takeWhile (/='|') prompt, "|"]
6868
--putStrLn $ show . unlines $ probe

0 commit comments

Comments
 (0)