projects
/
opengl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Remove dependency on process-1.6.3
[opengl.git]
/
src
/
Language
/
Haskell
/
LSP
/
Test
/
Server.hs
diff --git
a/src/Language/Haskell/LSP/Test/Server.hs
b/src/Language/Haskell/LSP/Test/Server.hs
index 473f2c76e1c39c46252e0f1b0a0933a05db60185..c59a755979314316d4759765088f883df873c73a 100644
(file)
--- a/
src/Language/Haskell/LSP/Test/Server.hs
+++ b/
src/Language/Haskell/LSP/Test/Server.hs
@@
-2,7
+2,7
@@
module Language.Haskell.LSP.Test.Server (withServer) where
import Control.Concurrent
import Control.Monad
import Control.Concurrent
import Control.Monad
-import
Data.Maybe
+import
Language.Haskell.LSP.Test.Compat
import System.IO
import System.Process
import System.IO
import System.Process
@@
-19,7
+19,7
@@
withServer serverExe f = do
hSetBuffering serverErr NoBuffering
errSinkThread <- forkIO $ forever $ hGetLine serverErr
hSetBuffering serverErr NoBuffering
errSinkThread <- forkIO $ forever $ hGetLine serverErr
- pid <-
fromIntegral . fromJust <$> getPid
serverProc
+ pid <-
getProcessID
serverProc
result <- f serverIn serverOut pid
result <- f serverIn serverOut pid