- initState = SessionState (IdInt 0) mempty mempty 0 False Nothing
- runSession' = runSession context initState
+ initState tmp_dir = SessionState (IdInt 0) (VFS mempty tmp_dir)
+ mempty 0 False Nothing
+ runSession' ses = withSystemTempDirectory "lsp-test" $ \tmp_dir ->
+ runSession context (initState tmp_dir) ses