X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=blobdiff_plain;f=src%2FLanguage%2FHaskell%2FLSP%2FTest%2FSession.hs;h=10f63b245fb0e5bf93f7b6a9f0d54ec0b27837c1;hp=2418cd5ac6e09cab04be5b23c813a0fe0d987a1a;hb=f8ee63f1c1d245c16f7a928c14c0e8908e6240c8;hpb=a4c1143848809be8aed55403dc3187a256dcbe9b

diff --git a/src/Language/Haskell/LSP/Test/Session.hs b/src/Language/Haskell/LSP/Test/Session.hs
index 2418cd5..10f63b2 100644
--- 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(..)
-  , MonadSessionConfig(..)
   , runSessionWithHandles
   , get
   , put
@@ -79,12 +78,6 @@ data SessionConfig = SessionConfig
 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