File tree Expand file tree Collapse file tree 3 files changed +3
-12
lines changed
3926-ghci-with-sublibraries
module-added-multiple-times Expand file tree Collapse file tree 3 files changed +3
-12
lines changed Original file line number Diff line number Diff line change @@ -11,13 +11,10 @@ main = do
11
11
copy " src-internal/Internal.v1" " src-internal/Internal.hs"
12
12
stack [" build" ] -- need a build before ghci at the moment, see #4148
13
13
stackRepl [] $ do
14
- -- The command must be issued before searching the output for the next prompt,
15
- -- otherwise, on Windows from msys2-20230526, `stack repl` encounters a EOF
16
- -- and terminates gracefully.
17
- replCommand " :main"
18
14
liftIO $ putStrLn " Awaiting prompt..."
19
15
nextPrompt
20
16
liftIO $ putStrLn " Initial prompt received"
17
+ replCommand " :main"
21
18
line <- replGetLine
22
19
let expected = " hello world"
23
20
when (line /= expected) $
Original file line number Diff line number Diff line change @@ -6,11 +6,8 @@ main :: IO ()
6
6
main = do
7
7
stack [" build" ]
8
8
stackRepl [] $ do
9
- -- The command must be issued before searching the output for the next
10
- -- prompt, otherwise, on Windows from msys2-20230526, `stack repl`
11
- -- encounters a EOF and terminates gracefully.
12
- replCommand " putStrLn greeting"
13
9
nextPrompt
10
+ replCommand " putStrLn greeting"
14
11
line <- replGetLine
15
12
let expected = " Hello, world!"
16
13
when (line /= expected) $
Original file line number Diff line number Diff line change @@ -3,11 +3,8 @@ import StackTest.Repl
3
3
4
4
main :: IO ()
5
5
main = stackRepl [] $ do
6
- -- The command must be issued before searching the output for the next prompt,
7
- -- otherwise, on Windows from msys2-20230526, `stack repl` encounters a EOF
8
- -- and terminates gracefully.
9
- replCommand " :main"
10
6
nextPrompt
7
+ replCommand " :main"
11
8
line <- replGetLine
12
9
let expected = " Hello World!"
13
10
when (line /= expected) $
You can’t perform that action at this time.
0 commit comments