pms-domain-service 0.0.5.0 → 0.0.6.0

raw patch · 4 files changed

+14/−4 lines, 4 files

Files

CHANGELOG.md +4/−0
pms-domain-service.cabal +1/−1
src/PMS/Domain/Service/DS/State/Run/ResourcesRead.hs +6/−1
src/PMS/Domain/Service/DS/State/Run/ToolsCall.hs +3/−2

CHANGELOG.md view

@@ -1,5 +1,9 @@ # Revision history for pms-domain-service +## 0.0.6.0 -- 2025-07-20++* Added proc tool.+ ## 0.0.5.0 -- 2025-07-13  * Added serial tool.

pms-domain-service.cabal view

@@ -20,7 +20,7 @@ -- PVP summary:     +-+------- breaking API changes --                  | | +----- non-breaking API additions --                  | | | +--- code changes with no API change-version:            0.0.5.0+version:            0.0.6.0  -- A short (one-line) description of the package. synopsis:           pms-domain-service

src/PMS/Domain/Service/DS/State/Run/ResourcesRead.hs view

@@ -20,6 +20,7 @@ import qualified Data.Text.Lazy.Encoding as TLE import Network.URI import qualified Data.ByteString.Lazy as BL+import Data.List   import qualified PMS.Domain.Model.DM.Type as DM import qualified PMS.Domain.Model.DM.Constant as DM@@ -35,8 +36,12 @@     $logDebugS DM._LOGTAG $ T.pack $ "Run ResourcesReadEvent called." ++ show evDat      let params = evDat^.DM.paramsMcpResourcesReadRequestData-    uri <- getURI $ params^.DM.uriMcpResourcesReadRequestDataParams+        rawUri = params^.DM.uriMcpResourcesReadRequestDataParams+        normUri = if "://" `isInfixOf` rawUri+                  then rawUri+                  else "file://" ++ rawUri +    uri  <- getURI normUri     cont <- getUriContents uri      response $ TL.unpack $ TLE.decodeUtf8 cont

src/PMS/Domain/Service/DS/State/Run/ToolsCall.hs view

@@ -47,7 +47,9 @@       go dat "proc-cmd"       = procRunCommand dat       go dat "proc-ps"        = procRunCommand dat       go dat "proc-ssh"       = procRunCommand dat-      -- go dat "proc-telnet"    = procRunCommand dat+      go dat "proc-telnet"    = procRunCommand dat+      -- go dat "proc-winpty"    = procRunCommand dat+      go dat "proc-plink"     = procRunCommand dat       go dat "proc-terminate" = procTerminateCommand dat       go dat "proc-message"   = procMessageCommand dat       go dat "socket-open"    = socketOpenCommand dat@@ -262,7 +264,6 @@    cmdQ <- view DM.socketQueueDomainData <$> lift ask   liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.SocketTelnetCommand cmdDat-  -- | --