projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'master' into script-fsm
[lsp-test.git]
/
lib
/
Language
/
Haskell
/
LSP
/
Test
/
Machine.hs
diff --git
a/lib/Language/Haskell/LSP/Test/Machine.hs
b/lib/Language/Haskell/LSP/Test/Machine.hs
index 7e0a78d247a41838014a7e099245480d4242a35e..2f513c498fc9724a3783cd33f0cece35a38b7fa7 100644
(file)
--- 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
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
| Passed
| Failed
-data Event = Timeout | Received FromServerMessage
+data Event = Timeout
Event
| Received FromServerMessage
advance :: State -> Event -> Session State
advance :: State -> Event -> Session State
-advance _ Timeout = return Failed
+advance _ Timeout
Event
= return Failed
advance s@(State name f actions next) (Received msg)
| f msg = do
liftIO $ putStrLn name
advance s@(State name f actions next) (Received msg)
| f msg = do
liftIO $ putStrLn name