Update the code for GHC 9.13

Author: supersven

Main.hs

@@ -109,8 +109,7 @@ main = do
   inh  <- getGhcHandle rfd2
   outh <- getGhcHandle wfd1
   installSignalHandlers
-  lo_ref <- newIORef Nothing
-  let in_pipe = Pipe{pipeRead = inh, pipeWrite = outh, pipeLeftovers = lo_ref}
+  in_pipe <- mkPipeFromHandles inh outh
 
   when verbose $
     trace ("Trying to connect to " ++ host_ip ++ ":" ++ (show port))
@@ -307,5 +306,4 @@ socketToPipe sock = do
   hdl <- socketToHandle sock ReadWriteMode
   hSetBuffering hdl NoBuffering
 
-  lo_ref <- newIORef Nothing
-  pure Pipe{ pipeRead = hdl, pipeWrite = hdl, pipeLeftovers = lo_ref }
+  mkPipeFromHandles hdl hdl

iserv-proxy.cabal

@@ -80,8 +80,7 @@ Library
                   directory  >= 1.3 && < 1.4,
                   network    >= 2.6,
                   filepath   >= 1.4 && < 1.5,
-                  ghci       == 9.3,
-                  libiserv   == 9.3
+                  ghci
 
 Executable iserv-proxy
    Default-Language: Haskell2010
@@ -92,8 +91,7 @@ Executable iserv-proxy
                   directory  >= 1.3 && < 1.4,
                   network    >= 2.6,
                   filepath   >= 1.4 && < 1.5,
-                  ghci       == 9.3,
-                  libiserv   == 9.3,
+                  ghci,
                   iserv-proxy
 
 Executable iserv-proxy-interpreter

src/IServ/Remote/Interpreter.hs

@@ -3,7 +3,8 @@ module IServ.Remote.Interpreter where
 
 import Network.Socket
 
-import IServ (serv)
+import GHCi.Server (serv)
+import GHCi.Message
 import IServ.Remote.Message
 
 import System.IO
@@ -153,7 +154,7 @@ socketToPipe sock = do
   hSetBuffering hdl NoBuffering
 
   lo_ref <- newIORef Nothing
-  pure Pipe{ pipeRead = hdl, pipeWrite = hdl, pipeLeftovers = lo_ref }
+  mkPipeFromHandles hdl hdl
 
 acceptSocket :: Socket -> IO Socket
 acceptSocket = fmap fst . accept