pms-domain-service 0.1.0.0 → 0.1.1.0

raw patch · 3 files changed

+20/−1 lines, 3 files

Files

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

@@ -1,5 +1,9 @@ # Revision history for pms-domain-service +## 0.1.1.0 -- 2026-01-31++* Add file system pms-make-dir tools.+ ## 0.1.0.0 -- 2025-12-31  * Add file system tools.

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

@@ -64,6 +64,7 @@       go dat "serial-write"   = serialWriteCommand dat       go dat "serial-message" = serialMessageCommand dat       go dat "pms-list-dir"   = fileSystemListDirCommand dat+      go dat "pms-make-dir"   = fileSystemMakeDirCommand dat       go dat "pms-read-file"  = fileSystemReadFileCommand dat       go dat "pms-write-file" = fileSystemWriteFileCommand dat       go dat x = do@@ -346,6 +347,20 @@    cmdQ <- view DM.fileSystemQueueDomainData <$> lift ask   liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.ListDirFileSystemCommand cmdDat+++-- |+--+fileSystemMakeDirCommand :: DM.McpToolsCallRequestData -> AppContext ()+fileSystemMakeDirCommand dat = do+  let cmdDat = DM.MakeDirFileSystemCommandData {+                DM._jsonrpcMakeDirFileSystemCommandData   = dat^.DM.jsonrpcMcpToolsCallRequestData+              , DM._argumentsMakeDirFileSystemCommandData = dat^.DM.paramsMcpToolsCallRequestData^.DM.argumentsMcpToolsCallRequestDataParams+              }++  cmdQ <- view DM.fileSystemQueueDomainData <$> lift ask+  liftIO $ STM.atomically $ STM.writeTQueue cmdQ $ DM.MakeDirFileSystemCommand cmdDat+  -- | --