projects
/
lsp-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove no longer needed dependency
[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 a4532b8f1bc2351243e51b9eee3c5d6cf8f94720..67e4ae65d7d44175d244f882190146030a309e3e 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Session.hs
+++ b/
src/Language/Haskell/LSP/Test/Session.hs
@@
-70,7
+70,6
@@
import System.Directory
import System.IO
import System.Process (ProcessHandle())
import System.Timeout
import System.IO
import System.Process (ProcessHandle())
import System.Timeout
-import System.IO.Temp
-- | A session representing one instance of launching and connecting to a server.
--
-- | A session representing one instance of launching and connecting to a server.
--
@@
-221,10
+220,9
@@
runSessionWithHandles serverIn serverOut serverProc serverHandler config caps ro
mainThreadId <- myThreadId
let context = SessionContext serverIn absRootDir messageChan reqMap initRsp config caps
mainThreadId <- myThreadId
let context = SessionContext serverIn absRootDir messageChan reqMap initRsp config caps
- initState
tmp_dir = SessionState (IdInt 0) (VFS mempty tmp_dir)
+ initState
vfs = SessionState (IdInt 0) vfs
mempty 0 False Nothing
mempty 0 False Nothing
- runSession' ses = withSystemTempDirectory "lsp-test" $ \tmp_dir ->
- runSession context (initState tmp_dir) ses
+ runSession' ses = initVFS $ \vfs -> runSession context (initState vfs) ses
errorHandler = throwTo mainThreadId :: SessionException -> IO()
serverListenerLauncher =
errorHandler = throwTo mainThreadId :: SessionException -> IO()
serverListenerLauncher =
@@
-300,7
+298,7
@@
updateState (ReqApplyWorkspaceEdit r) = do
liftIO $ B.hPut (serverIn ctx) $ addHeader (encode msg)
modifyM $ \s -> do
liftIO $ B.hPut (serverIn ctx) $ addHeader (encode msg)
modifyM $ \s -> do
-
newVFS <- liftIO $
openVFS (vfs s) msg
+
let (newVFS,_) =
openVFS (vfs s) msg
return $ s { vfs = newVFS }
getParams (TextDocumentEdit docId (List edits)) =
return $ s { vfs = newVFS }
getParams (TextDocumentEdit docId (List edits)) =