pms-domain-model 0.1.3.0 → 0.1.4.0
raw patch · 3 files changed
+28/−12 lines, 3 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ PMS.Domain.Model.DM.Type: MakeDirFileSystemCommand :: MakeDirFileSystemCommandData -> FileSystemCommand
+ PMS.Domain.Model.DM.Type: MakeDirFileSystemCommandData :: JsonRpcRequest -> RawJsonByteString -> MakeDirFileSystemCommandData
+ PMS.Domain.Model.DM.Type: [_argumentsMakeDirFileSystemCommandData] :: MakeDirFileSystemCommandData -> RawJsonByteString
+ PMS.Domain.Model.DM.Type: [_jsonrpcMakeDirFileSystemCommandData] :: MakeDirFileSystemCommandData -> JsonRpcRequest
+ PMS.Domain.Model.DM.Type: argumentsMakeDirFileSystemCommandData :: Lens' MakeDirFileSystemCommandData RawJsonByteString
+ PMS.Domain.Model.DM.Type: data MakeDirFileSystemCommandData
+ PMS.Domain.Model.DM.Type: instance GHC.Classes.Eq PMS.Domain.Model.DM.Type.MakeDirFileSystemCommandData
+ PMS.Domain.Model.DM.Type: instance GHC.Read.Read PMS.Domain.Model.DM.Type.MakeDirFileSystemCommandData
+ PMS.Domain.Model.DM.Type: instance GHC.Show.Show PMS.Domain.Model.DM.Type.MakeDirFileSystemCommandData
+ PMS.Domain.Model.DM.Type: jsonrpcMakeDirFileSystemCommandData :: Lens' MakeDirFileSystemCommandData JsonRpcRequest
Files
- CHANGELOG.md +4/−0
- pms-domain-model.cabal +1/−1
- src/PMS/Domain/Model/DM/Type.hs +23/−11
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for pms-domain-model +## 0.1.4.0 -- 2026-01-31++* Add file system make-directory tools.+ ## 0.1.3.0 -- 2025-12-31 * Add file system tools.
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.1.3.0+version: 0.1.4.0 -- A short (one-line) description of the package. synopsis: pms-domain-model
src/PMS/Domain/Model/DM/Type.hs view
@@ -522,7 +522,7 @@ instance Default McpInitializeResponseResultServerInfo where def = McpInitializeResponseResultServerInfo { _nameMcpInitializeResponseResultServerInfo = "pty-mcp-server"- , _versionMcpInitializeResponseResultServerInfo = "0.0.4"+ , _versionMcpInitializeResponseResultServerInfo = "0.1.6.0" } -- |@@ -1174,6 +1174,26 @@ -- | --+data ListDirFileSystemCommandData =+ ListDirFileSystemCommandData {+ _jsonrpcListDirFileSystemCommandData :: JsonRpcRequest+ , _argumentsListDirFileSystemCommandData :: RawJsonByteString+ } deriving (Show, Read, Eq)++makeLenses ''ListDirFileSystemCommandData++-- |+--+data MakeDirFileSystemCommandData =+ MakeDirFileSystemCommandData {+ _jsonrpcMakeDirFileSystemCommandData :: JsonRpcRequest+ , _argumentsMakeDirFileSystemCommandData :: RawJsonByteString+ } deriving (Show, Read, Eq)++makeLenses ''MakeDirFileSystemCommandData++-- |+-- data WriteFileFileSystemCommandData = WriteFileFileSystemCommandData { _jsonrpcWriteFileFileSystemCommandData :: JsonRpcRequest@@ -1194,19 +1214,10 @@ -- | ---data ListDirFileSystemCommandData =- ListDirFileSystemCommandData {- _jsonrpcListDirFileSystemCommandData :: JsonRpcRequest- , _argumentsListDirFileSystemCommandData :: RawJsonByteString- } deriving (Show, Read, Eq)--makeLenses ''ListDirFileSystemCommandData---- |--- data FileSystemCommand = EchoFileSystemCommand EchoFileSystemCommandData | ListDirFileSystemCommand ListDirFileSystemCommandData+ | MakeDirFileSystemCommand MakeDirFileSystemCommandData | ReadFileFileSystemCommand ReadFileFileSystemCommandData | WriteFileFileSystemCommand WriteFileFileSystemCommandData deriving (Show, Read, Eq)@@ -1216,6 +1227,7 @@ getJsonRpcFileSystemCommand :: FileSystemCommand -> JsonRpcRequest getJsonRpcFileSystemCommand (EchoFileSystemCommand d) = d^.jsonrpcEchoFileSystemCommandData getJsonRpcFileSystemCommand (ListDirFileSystemCommand d) = d^.jsonrpcListDirFileSystemCommandData+getJsonRpcFileSystemCommand (MakeDirFileSystemCommand d) = d^.jsonrpcMakeDirFileSystemCommandData getJsonRpcFileSystemCommand (ReadFileFileSystemCommand d) = d^.jsonrpcReadFileFileSystemCommandData getJsonRpcFileSystemCommand (WriteFileFileSystemCommand d) = d^.jsonrpcWriteFileFileSystemCommandData