-> Session a -- ^ The session to run.
-> IO a
runSessionWithConfig config serverExe rootDir session = do
- pid <- getProcessID
+ pid <- getCurrentProcessID
absRootDir <- canonicalizePath rootDir
let initializeParams = InitializeParams (Just pid)
import Control.Concurrent.Chan
import Control.Monad.IO.Class
import Data.Conduit
+import Data.Maybe
+
+#if MIN_VERSION_process(1,6,3)
+import System.Process hiding (getPid)
+import qualified System.Process (getPid)
+#else
+import System.Process
+import System.Process.Internals
+import Control.Concurrent.MVar
+#endif
#ifdef mingw32_HOST_OS
+import qualified System.Win32.Process
+#else
+import qualified System.Posix.Process
+#endif
-import qualified System.Win32.Process as P (getCurrentProcessId)
-getProcessID :: IO Int
-getProcessID = fromIntegral <$> P.getCurrentProcessId
+getCurrentProcessID :: IO Int
+#ifdef mingw32_HOST_OS
+getCurrentProcessID = fromIntegral <$> System.Win32.Process.getCurrentProcessId
#else
+getCurrentProcessID = fromIntegral <$> System.Posix.Process.getProcessID
+#endif
-import qualified System.Posix.Process as P (getProcessID)
-getProcessID :: IO Int
-getProcessID = fromIntegral <$> P.getProcessID
-
+getProcessID :: ProcessHandle -> IO Int
+getProcessID p = fromIntegral . fromJust <$> getProcessID' p
+ where
+#if MIN_VERSION_process(1,6,3)
+ getProcessID' = System.Process.getPid
+#else
+ getProcessID' (ProcessHandle mh _ _) = do
+ p_ <- readMVar mh
+ case p_ of
+#ifdef mingw32_HOST_OS
+ OpenHandle h -> do
+ pid <- System.Win32.Process.getProcessId h
+ return $ Just pid
+#else
+ OpenHandle pid -> return $ Just pid
+#endif
+ _ -> return Nothing
#endif
#if MIN_VERSION_conduit(1,3,0)
x <- liftIO $ readChan c
yield x
chanSource c
-
\ No newline at end of file
import Control.Concurrent
import Control.Monad
-import Data.Maybe
+import Language.Haskell.LSP.Test.Compat
import System.IO
import System.Process
hSetBuffering serverErr NoBuffering
errSinkThread <- forkIO $ forever $ hGetLine serverErr
- pid <- fromIntegral . fromJust <$> getPid serverProc
+ pid <- getProcessID serverProc
result <- f serverIn serverOut pid
type ParserStateReader a s r m = ConduitParser a (StateT s (ReaderT r m))
-type SessionProcessor = ConduitT FromServerMessage FromServerMessage (StateT SessionState (ReaderT SessionContext IO))
+type SessionProcessor = ConduitM FromServerMessage FromServerMessage (StateT SessionState (ReaderT SessionContext IO))
runSession :: Chan FromServerMessage -> SessionProcessor () -> SessionContext -> SessionState -> Session a -> IO (a, SessionState)
runSession chan preprocessor context state session = runReaderT (runStateT conduit state) context