X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=lib%2FLanguage%2FHaskell%2FLSP%2FTest%2FMachine.hs;h=2f513c498fc9724a3783cd33f0cece35a38b7fa7;hb=refs%2Fheads%2Fscript-fsm;hp=7e0a78d247a41838014a7e099245480d4242a35e;hpb=54b23e6b7a8aa59e649a807ab286f0808908935a;p=lsp-test.git

diff --git a/lib/Language/Haskell/LSP/Test/Machine.hs b/lib/Language/Haskell/LSP/Test/Machine.hs
index 7e0a78d..2f513c4 100644
--- a/lib/Language/Haskell/LSP/Test/Machine.hs
+++ b/lib/Language/Haskell/LSP/Test/Machine.hs
@@ -1,4 +1,3 @@
-{-# LANGUAGE OverloadedStrings #-}
 module Language.Haskell.LSP.Test.Machine where
 
 import Control.Monad.IO.Class
@@ -9,10 +8,10 @@ data State = State String (FromServerMessage -> Bool) [Session ()] State
            | Passed
            | Failed
 
-data Event = Timeout | Received FromServerMessage
+data Event = TimeoutEvent | Received FromServerMessage
 
 advance :: State -> Event -> Session State
-advance _ Timeout = return Failed
+advance _ TimeoutEvent = return Failed
 advance s@(State name f actions next) (Received msg)
   | f msg = do
     liftIO $ putStrLn name