X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=lib%2FLanguage%2FHaskell%2FLSP%2FTest%2FReplay.hs;fp=lib%2FLanguage%2FHaskell%2FLSP%2FTest%2FReplay.hs;h=979b789149262c6947e195c58122310ef8a6d5cc;hb=b1b104cd31ca2e90b6c1842be93b61a14d942101;hp=b224be6cbf0132a6e50b6bc0380edd453ac94e2d;hpb=fbb260c6078a39ff071fefd6586af18715b3e6a3;p=lsp-test.git

diff --git a/lib/Language/Haskell/LSP/Test/Replay.hs b/lib/Language/Haskell/LSP/Test/Replay.hs
index b224be6..979b789 100644
--- a/lib/Language/Haskell/LSP/Test/Replay.hs
+++ b/lib/Language/Haskell/LSP/Test/Replay.hs
@@ -145,7 +145,7 @@ listenServer expectedMsgs reqMap reqSema rspSema passSema mainThreadId serverOut
       then listenServer (delete msg expectedMsgs) reqMap reqSema rspSema passSema mainThreadId serverOut ctx
       else let remainingMsgs = takeWhile (not . isNotification) expectedMsgs
                 ++ [head $ dropWhile isNotification expectedMsgs]
-               exc = ReplayOutOfOrderException msg remainingMsgs
+               exc = ReplayOutOfOrder msg remainingMsgs
             in liftIO $ throwTo mainThreadId exc
 
   where