-runSessionWithHandler :: (Handle -> Session ())
- -> FilePath
- -> Session a
- -> IO a
-runSessionWithHandler serverHandler rootDir session = do
- absRootDir <- canonicalizePath rootDir
-
- (Just serverIn, Just serverOut, Nothing, serverProc) <- createProcess
- (proc "hie" ["--lsp", "-d", "-l", "/tmp/hie-test.log"])
- { std_in = CreatePipe, std_out = CreatePipe }
-
- hSetBuffering serverIn NoBuffering
- hSetBuffering serverOut NoBuffering
-
- reqMap <- newMVar newRequestMap
- messageChan <- newChan
- meaninglessChan <- newChan
-
- let context = SessionContext serverIn absRootDir messageChan reqMap
- initState = SessionState (IdInt 9)
-
- forkIO $ void $ runReaderT (runParserT (serverHandler serverOut) initState "" meaninglessChan) context
- result <- runReaderT (runParserT session initState "" messageChan) context
-
- terminateProcess serverProc
-
- case result of
- Right x -> return x
- Left err -> error $ show err