pms-infra-procspawn 0.0.4.0 → 0.0.5.0
raw patch · 5 files changed
+13/−8 lines, 5 files
Files
- CHANGELOG.md +4/−0
- pms-infra-procspawn.cabal +1/−1
- src/PMS/Infra/ProcSpawn/DM/Type.hs +0/−2
- src/PMS/Infra/ProcSpawn/DS/Core.hs +1/−1
- src/PMS/Infra/ProcSpawn/DS/Utility.hs +7/−4
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for pms-infra-procspawn +## 0.0.5.0 -- 2025-08-17++* Fixed proc-message.+ ## 0.0.4.0 -- 2025-07-27 * Fixed resources templates.
pms-infra-procspawn.cabal view
@@ -20,7 +20,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 0.0.4.0+version: 0.0.5.0 -- A short (one-line) description of the package. synopsis: pms-infra-procspawn
src/PMS/Infra/ProcSpawn/DM/Type.hs view
@@ -31,7 +31,6 @@ data AppData = AppData { _processAppData :: STM.TMVar (Maybe ProcData) , _lockAppData :: STM.TMVar ()- , _jsonrpcAppData :: DM.JsonRpcRequest } makeLenses ''AppData@@ -43,7 +42,6 @@ return AppData { _processAppData = mgrVar , _lockAppData = lock- , _jsonrpcAppData = def } -- |
src/PMS/Infra/ProcSpawn/DS/Core.hs view
@@ -465,5 +465,5 @@ hFlush wHdl race (DM.expect lockTMVar (readProc pDat) prompts) (CC.threadDelay tout) >>= \case- Left res -> toolsCallResponse resQ jsonRpc ExitSuccess (maybe "Nothing" id res) ""+ Left res -> toolsCallResponse resQ jsonRpc ExitSuccess (maybe "expect running. skip." id res) "" Right _ -> toolsCallResponse resQ jsonRpc (ExitFailure 1) "" "timeout occurred."
src/PMS/Infra/ProcSpawn/DS/Utility.hs view
@@ -113,7 +113,10 @@ -- readProc :: ProcData -> IO BS.ByteString readProc dat = do- let hdl = dat^.rHdlProcData- BS.hGetSome hdl 1024-- + let hdl = dat^.rHdlProcData+ timeoutMillis = 5000+ ready <- hWaitForInput hdl timeoutMillis+ if ready+ then BS.hGetSome hdl 1024+ else E.throwString $ "readProc: timeout waiting for input"+