diff options
| author | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-22 13:24:23 +0200 |
|---|---|---|
| committer | Roman Smrž <roman.smrz@seznam.cz> | 2026-08-23 22:10:06 +0200 |
| commit | f2824ef200d165db41a0ff2d644264970c5778dc (patch) | |
| tree | 01fb4b8f74aa34029f9f1470ea612dfb51c4f02a /main/Test.hs | |
| parent | 1256ce3e896b359de0ff95069e3a977cf515dc61 (diff) | |
Return from startServer only after initializing the socket
Diffstat (limited to 'main/Test.hs')
| -rw-r--r-- | main/Test.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/main/Test.hs b/main/Test.hs index 02534fd..01570ea 100644 --- a/main/Test.hs +++ b/main/Test.hs @@ -728,6 +728,7 @@ cmdStartServer = do modifyMVar_ rsPeers update modify $ \s -> s { tsServer = Just RunningServer {..} } + cmdOut "start-server-done" cmdStopServer :: Command cmdStopServer = do |