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 +4/−0
- pms-domain-model.cabal +1/−1
- src/PMS/Domain/Model/DM/Type.hs +28/−1
- src/PMS/Domain/Model/DS/Utility.hs +1/−1
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 -- |