pms-application-service 0.0.6.0 → 0.0.7.0

raw patch · 6 files changed

+15/−19 lines, 6 files

Files

• CHANGELOG.md +5/−0
• pms-application-service.cabal +1/−1
• src/PMS/Application/Service/App/Control.hs +0/−11
• src/PMS/Application/Service/DM/Type.hs +8/−5
• src/PMS/Application/Service/DS/Core.hs +1/−1
• src/PMS/Application/Service/DS/Utility.hs +0/−1

@@ -1,5 +1,10 @@ # Revision history for pms-application-service +## 0.0.7.0 -- 2025-07-27++* Fixed resources templates.++ ## 0.0.6.0 -- 2025-07-20  * Added proc tool.

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

@@ -4,12 +4,10 @@  import qualified Control.Exception.Safe as E import Data.Default--- import Data.Yaml.Config import Data.Yaml import Control.Lens import System.Log.FastLogger import System.IO--- import System.Environment import System.Directory import System.FilePath @@ -102,16 +100,7 @@ -- loadConf :: ArgData -> IO ConfigData loadConf args = maybe (pure def) decodeFileThrow (args^.yamlArgData)-{--loadConf args = case args ^. yamlArgData of-  Nothing -> pure def-  Just relPath -> do-    absPath <- makeAbsolute relPath-    let yamlDir = takeDirectory absPath-    setEnv "PMS_YAML_DIR" yamlDir -    loadYamlSettings [absPath] [] useEnv--}  -- | --

@@ -59,14 +59,17 @@   def = ConfigData {         _logDirConfigData  = def       , _logLevelConfigData = LevelDebug-      , _toolsDirConfigData = "./tools"-      , _promptsDirConfigData = "./prompts"-      , _resourcesDirConfigData = "./resources"+      , _toolsDirConfigData = "pty-mcp-server/tools"+      , _promptsDirConfigData = "pty-mcp-server/prompts"+      , _resourcesDirConfigData = "pty-mcp-server/resources"       , _workDirConfigData = def       , _promptsConfigData = [           ">>>"-        , "# "-        , "$ "+        , "]#"+        , "]$"+        , ")?"+        , "Password:"+        , "password:"         , "ghci>"         ]       }

@@ -11,6 +11,7 @@ import Control.Exception import System.IO import Control.Monad.Except+import Control.Concurrent.Async  import qualified PMS.Domain.Model.DM.Type as DM import qualified PMS.Domain.Model.DM.Constant as DM@@ -18,7 +19,6 @@ import PMS.Application.Service.DM.Type import PMS.Application.Service.DS.Utility -import Control.Concurrent.Async  -- | --

@@ -1,6 +1,5 @@ module PMS.Application.Service.DS.Utility where - import System.Log.FastLogger import qualified Control.Exception.Safe as E import Control.Monad.IO.Class