projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Tidy up and remove redundant classes and tests
[lsp-test.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test
/
Session.hs
diff --git
a/src/Language/Haskell/LSP/Test/Session.hs
b/src/Language/Haskell/LSP/Test/Session.hs
index 2418cd5ac6e09cab04be5b23c813a0fe0d987a1a..10f63b245fb0e5bf93f7b6a9f0d54ec0b27837c1 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Session.hs
+++ b/
src/Language/Haskell/LSP/Test/Session.hs
@@
-9,7
+9,6
@@
module Language.Haskell.LSP.Test.Session
, SessionMessage(..)
, SessionContext(..)
, SessionState(..)
, SessionMessage(..)
, SessionContext(..)
, SessionState(..)
- , MonadSessionConfig(..)
, runSessionWithHandles
, get
, put
, runSessionWithHandles
, get
, put
@@
-79,12
+78,6
@@
data SessionConfig = SessionConfig
instance Default SessionConfig where
def = SessionConfig def 60 False
instance Default SessionConfig where
def = SessionConfig def 60 False
-class Monad m => MonadSessionConfig m where
- sessionConfig :: m SessionConfig
-
-instance Monad m => MonadSessionConfig (StateT SessionState (ReaderT SessionContext m)) where
- sessionConfig = config <$> lift Reader.ask
-
data SessionMessage = ServerMessage FromServerMessage
| TimeoutMessage Int
deriving Show
data SessionMessage = ServerMessage FromServerMessage
| TimeoutMessage Int
deriving Show