pms-domain-service 0.1.3.0 → 0.1.4.0

raw patch · 3 files changed

+61/−1 lines, 3 files

Files

• CHANGELOG.md +4/−0
• pms-domain-service.cabal +1/−1
• src/PMS/Domain/Service/DS/State/Run/ToolsCall.hs +56/−0

@@ -1,5 +1,9 @@ # Revision history for pms-domain-service +## 0.1.4.0 -- 2026-05-15++* Add file system tools.+ ## 0.1.3.0 -- 2026-05-05  * Add agent-proc tools (agent-proc-run, agent-proc-read, agent-proc-write, agent-proc-terminate).

@@ -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-service

@@ -73,6 +73,10 @@       go dat "pms-make-dir"      = fileSystemMakeDirCommand dat       go dat "pms-read-file"     = fileSystemReadFileCommand dat       go dat "pms-write-file"    = fileSystemWriteFileCommand dat+      go dat "pms-patch-file"    = fileSystemPatchFileCommand dat+      go dat "pms-file-info"     = fileSystemFileInfoCommand dat+      go dat "pms-grep-file"     = fileSystemGrepFileCommand dat+      go dat "pms-replace-file"  = fileSystemReplaceFileCommand dat       go dat x = do         $logDebugS DM._LOGTAG $ T.pack $ "handled cmdrun. " ++ show x ++ ": " ++ show dat         cmdRunCommand dat@@ -465,3 +469,55 @@    cmdQ <- view DM.fileSystemQueueDomainData <$> lift ask   liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.WriteFileFileSystemCommand cmdDat+++-- |+--+fileSystemPatchFileCommand :: DM.McpToolsCallRequestData -> AppContext ()+fileSystemPatchFileCommand dat = do+  let cmdDat = DM.PatchFileFileSystemCommandData {+                DM._jsonrpcPatchFileFileSystemCommandData   = dat^.DM.jsonrpcMcpToolsCallRequestData+              , DM._argumentsPatchFileFileSystemCommandData = dat^.DM.paramsMcpToolsCallRequestData^.DM.argumentsMcpToolsCallRequestDataParams+              }++  cmdQ <- view DM.fileSystemQueueDomainData <$> lift ask+  liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.PatchFileFileSystemCommand cmdDat+++-- |+--+fileSystemFileInfoCommand :: DM.McpToolsCallRequestData -> AppContext ()+fileSystemFileInfoCommand dat = do+  let cmdDat = DM.FileInfoFileSystemCommandData {+                DM._jsonrpcFileInfoFileSystemCommandData   = dat^.DM.jsonrpcMcpToolsCallRequestData+              , DM._argumentsFileInfoFileSystemCommandData = dat^.DM.paramsMcpToolsCallRequestData^.DM.argumentsMcpToolsCallRequestDataParams+              }++  cmdQ <- view DM.fileSystemQueueDomainData <$> lift ask+  liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.FileInfoFileSystemCommand cmdDat+++-- |+--+fileSystemGrepFileCommand :: DM.McpToolsCallRequestData -> AppContext ()+fileSystemGrepFileCommand dat = do+  let cmdDat = DM.GrepFileFileSystemCommandData {+                DM._jsonrpcGrepFileFileSystemCommandData   = dat^.DM.jsonrpcMcpToolsCallRequestData+              , DM._argumentsGrepFileFileSystemCommandData = dat^.DM.paramsMcpToolsCallRequestData^.DM.argumentsMcpToolsCallRequestDataParams+              }++  cmdQ <- view DM.fileSystemQueueDomainData <$> lift ask+  liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.GrepFileFileSystemCommand cmdDat+++-- |+--+fileSystemReplaceFileCommand :: DM.McpToolsCallRequestData -> AppContext ()+fileSystemReplaceFileCommand dat = do+  let cmdDat = DM.ReplaceFileFileSystemCommandData {+                DM._jsonrpcReplaceFileFileSystemCommandData   = dat^.DM.jsonrpcMcpToolsCallRequestData+              , DM._argumentsReplaceFileFileSystemCommandData = dat^.DM.paramsMcpToolsCallRequestData^.DM.argumentsMcpToolsCallRequestDataParams+              }++  cmdQ <- view DM.fileSystemQueueDomainData <$> lift ask+  liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.ReplaceFileFileSystemCommand cmdDat