projects
/
lsp-test.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a9dfbff
)
Use initVFS to simplify runSession mechanics
author
Alan Zimmerman
<alan.zimm@gmail.com>
Sun, 10 Nov 2019 20:06:54 +0000
(20:06 +0000)
committer
Alan Zimmerman
<alan.zimm@gmail.com>
Sun, 10 Nov 2019 20:06:54 +0000
(20:06 +0000)
src/Language/Haskell/LSP/Test/Session.hs
patch
|
blob
|
history
diff --git
a/src/Language/Haskell/LSP/Test/Session.hs
b/src/Language/Haskell/LSP/Test/Session.hs
index e4f6a648366050f257f8ebdc21f0915d78e2ffe5..07b33e888c5c3eb44f931ce138e87c2569acdcea 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Session.hs
+++ b/
src/Language/Haskell/LSP/Test/Session.hs
@@
-221,10
+221,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 =