projects
/
opengl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove superfluous Session handler
[opengl.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test.hs
diff --git
a/src/Language/Haskell/LSP/Test.hs
b/src/Language/Haskell/LSP/Test.hs
index b406e7bd4e87a5a068d59b44e7b27678b100a64e..4cad784156477f23f4cefdb482de94764ac7d215 100644
(file)
--- a/
src/Language/Haskell/LSP/Test.hs
+++ b/
src/Language/Haskell/LSP/Test.hs
@@
-94,7
+94,7
@@
import Data.Default
import qualified Data.HashMap.Strict as HashMap
import qualified Data.Map as Map
import Data.Maybe
import qualified Data.HashMap.Strict as HashMap
import qualified Data.Map as Map
import Data.Maybe
-import Language.Haskell.LSP.Types hiding (id, capabilities
, error
)
+import Language.Haskell.LSP.Types hiding (id, capabilities)
import qualified Language.Haskell.LSP.Types as LSP
import Language.Haskell.LSP.Messages
import Language.Haskell.LSP.VFS
import qualified Language.Haskell.LSP.Types as LSP
import Language.Haskell.LSP.Messages
import Language.Haskell.LSP.VFS
@@
-151,20
+151,19
@@
runSessionWithConfig config serverExe rootDir session = do
sendNotification Exit ExitParams
return result
sendNotification Exit ExitParams
return result
-
+ where
-- | Listens to the server output, makes sure it matches the record and
-- signals any semaphores
-- | Listens to the server output, makes sure it matches the record and
-- signals any semaphores
-
listenServer :: Handle -> Session
()
-
listenServer serverOu
t = do
-
msgBytes <- liftIO $
getNextMessage serverOut
+
listenServer :: Handle -> SessionContext -> IO
()
+
listenServer serverOut contex
t = do
+
msgBytes <-
getNextMessage serverOut
- context <- ask
- reqMap <- liftIO $ readMVar $ requestMap context
+ reqMap <- readMVar $ requestMap context
let msg = decodeFromServerMsg reqMap msgBytes
let msg = decodeFromServerMsg reqMap msgBytes
-
liftIO $
writeChan (messageChan context) msg
+
writeChan (messageChan context) msg
-
listenServer serverOu
t
+
listenServer serverOut contex
t
-- | The current text contents of a document.
documentContents :: TextDocumentIdentifier -> Session T.Text
-- | The current text contents of a document.
documentContents :: TextDocumentIdentifier -> Session T.Text