pms-application-service 0.0.3.0 → 0.0.4.0
raw patch · 4 files changed
+16/−6 lines, 4 files
Files
- CHANGELOG.md +4/−0
- pms-application-service.cabal +1/−1
- src/PMS/Application/Service/App/Control.hs +6/−4
- src/PMS/Application/Service/DM/Type.hs +5/−1
CHANGELOG.md view
@@ -1,5 +1,9 @@ # Revision history for pms-application-service +## 0.0.4.0 -- 2025-06-29++* Added prompts interface.+ ## 0.0.3.0 -- 2025-06-22 * Changed scriptsDir to toolsDir.
pms-application-service.cabal view
@@ -20,7 +20,7 @@ -- PVP summary: +-+------- breaking API changes -- | | +----- non-breaking API additions -- | | | +--- code changes with no API change-version: 0.0.3.0+version: 0.0.4.0 -- A short (one-line) description of the package. synopsis: pms-application-service
src/PMS/Application/Service/App/Control.hs view
@@ -32,10 +32,12 @@ hPutStrLn stderr $ "[INFO] PMS.Application.Service.App.Control.run conf." ++ show conf let domDat = defDom {- DM._logDirDomainData = conf^.logDirConfigData- , DM._logLevelDomainData = conf^.logLevelConfigData- , DM._toolsDirDomainData = conf^.toolsDirConfigData- , DM._promptsDomainData = conf^.promptsConfigData+ DM._logDirDomainData = conf^.logDirConfigData+ , DM._logLevelDomainData = conf^.logLevelConfigData+ , DM._toolsDirDomainData = conf^.toolsDirConfigData+ , DM._promptsDirDomainData = conf^.promptsDirConfigData+ , DM._resourcesDirDomainData = conf^.resourcesDirConfigData+ , DM._promptsDomainData = conf^.promptsConfigData } appDat = def { _appsAppData = apps
src/PMS/Application/Service/DM/Type.hs view
@@ -42,6 +42,8 @@ _logDirConfigData :: Maybe FilePath , _logLevelConfigData :: LogLevel , _toolsDirConfigData :: FilePath+ , _promptsDirConfigData :: FilePath+ , _resourcesDirConfigData :: FilePath , _promptsConfigData :: [String] } deriving (Show, Read, Eq) @@ -57,8 +59,10 @@ _logDirConfigData = Nothing , _logLevelConfigData = LevelDebug , _toolsDirConfigData = "./tools"+ , _promptsDirConfigData = "./prompts"+ , _resourcesDirConfigData = "./resources" , _promptsConfigData = [- "ghci>"+ "> " , "]#" , "]$" , ")?"