packages feed

pms-domain-model 0.0.6.0 → 0.0.7.0

raw patch · 4 files changed

+34/−3 lines, 4 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

+ PMS.Domain.Model.DM.Type: getJsonRpcCmdRunCommand :: CmdRunCommand -> JsonRpcRequest
+ PMS.Domain.Model.DM.Type: getJsonRpcSerialCommand :: SerialCommand -> JsonRpcRequest
+ PMS.Domain.Model.DM.Type: getJsonRpcSocketCommand :: SocketCommand -> JsonRpcRequest

Files

CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for pms-domain-model +## 0.0.7.0 -- 2025-07-20++* Added proc tool.+ ## 0.0.6.0 -- 2025-07-13  * Added serial tool.
pms-domain-model.cabal view
@@ -20,7 +20,7 @@ -- PVP summary:     +-+------- breaking API changes --                  | | +----- non-breaking API additions --                  | | | +--- code changes with no API change-version:            0.0.6.0+version:            0.0.7.0  -- A short (one-line) description of the package. synopsis:           pms-domain-model
src/PMS/Domain/Model/DM/Type.hs view
@@ -630,7 +630,7 @@ instance Default McpToolsCallResponseResult where   def = McpToolsCallResponseResult {         _contentMcpToolsCallResponseResult = def-      , _isErrorMcpToolsCallResponseResult = def+      , _isErrorMcpToolsCallResponseResult = False       }  @@ -1148,6 +1148,12 @@   | DefaultCmdRunCommand DefaultCmdRunCommandData   deriving (Show, Read, Eq) +-- |+--+getJsonRpcCmdRunCommand :: CmdRunCommand -> JsonRpcRequest+getJsonRpcCmdRunCommand (EchoCmdRunCommand    d) = d^.jsonrpcEchoCmdRunCommandData+getJsonRpcCmdRunCommand (DefaultCmdRunCommand d) = d^.jsonrpcDefaultCmdRunCommandData+ -------------------------------------------------------------------------------- -- | --@@ -1343,6 +1349,16 @@   | SocketTelnetCommand  SocketTelnetCommandData   deriving (Show, Read, Eq) +-- |+--+getJsonRpcSocketCommand :: SocketCommand -> JsonRpcRequest+getJsonRpcSocketCommand (SocketEchoCommand    d) = d^.jsonrpcSocketEchoCommandData+getJsonRpcSocketCommand (SocketOpenCommand    d) = d^.jsonrpcSocketOpenCommandData+getJsonRpcSocketCommand (SocketCloseCommand   d) = d^.jsonrpcSocketCloseCommandData+getJsonRpcSocketCommand (SocketReadCommand    d) = d^.jsonrpcSocketReadCommandData+getJsonRpcSocketCommand (SocketWriteCommand   d) = d^.jsonrpcSocketWriteCommandData+getJsonRpcSocketCommand (SocketMessageCommand d) = d^.jsonrpcSocketMessageCommandData+getJsonRpcSocketCommand (SocketTelnetCommand  d) = d^.jsonrpcSocketTelnetCommandData  -------------------------------------------------------------------------------- -- |@@ -1417,6 +1433,17 @@   | SerialWriteCommand   SerialWriteCommandData   | SerialMessageCommand SerialMessageCommandData   deriving (Show, Read, Eq)+++-- |+--+getJsonRpcSerialCommand :: SerialCommand -> JsonRpcRequest+getJsonRpcSerialCommand (SerialEchoCommand    d) = d^.jsonrpcSerialEchoCommandData+getJsonRpcSerialCommand (SerialOpenCommand    d) = d^.jsonrpcSerialOpenCommandData+getJsonRpcSerialCommand (SerialCloseCommand   d) = d^.jsonrpcSerialCloseCommandData+getJsonRpcSerialCommand (SerialReadCommand    d) = d^.jsonrpcSerialReadCommandData+getJsonRpcSerialCommand (SerialWriteCommand   d) = d^.jsonrpcSerialWriteCommandData+getJsonRpcSerialCommand (SerialMessageCommand d) = d^.jsonrpcSerialMessageCommandData  -------------------------------------------------------------------------------- -- |
src/PMS/Domain/Model/DS/Utility.hs view
@@ -84,7 +84,7 @@ #ifdef mingw32_HOST_OS   [ "&&", "||", "|", ".."] #else-  [ "&&", "||", "|", "..", "/"]+  [ "&&", "||", "|", ".."] #endif  -- |