X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FReplay.hs;h=23e6137637d2b7ac7434a2ea1b7ee932b3c2ae58;hp=979b789149262c6947e195c58122310ef8a6d5cc;hb=e0926c045ccd5444f3112cb231cc3590c600d48d;hpb=776b8e1a475e2150797d432f0c13ccf685b1cd4b diff --git a/src/Language/Haskell/LSP/Test/Replay.hs b/src/Language/Haskell/LSP/Test/Replay.hs index 979b789..23e6137 100644 --- a/src/Language/Haskell/LSP/Test/Replay.hs +++ b/src/Language/Haskell/LSP/Test/Replay.hs @@ -61,6 +61,7 @@ replaySession serverExe sessionDir = do serverOut (listenServer serverMsgs requestMap reqSema rspSema passSema mainThread) def + fullCaps sessionDir (sendMessages clientMsgs reqSema rspSema) takeMVar passSema