pms-domain-service 0.0.6.0 → 0.0.7.0

raw patch · 5 files changed

+9/−44 lines, 5 files

Files

• CHANGELOG.md +4/−0
• pms-domain-service.cabal +1/−1
• src/PMS/Domain/Service/DM/Type.hs +4/−6
• src/PMS/Domain/Service/DS/State/Start.hs +0/−19
• src/PMS/Domain/Service/DS/State/Stop.hs +0/−18

@@ -1,5 +1,9 @@ # Revision history for pms-domain-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-domain-service

@@ -10,15 +10,15 @@ import Control.Monad.Logger import Control.Monad.Reader import qualified Data.Text as T--import qualified PMS.Domain.Model.DM.Type as DM-import qualified PMS.Domain.Model.DM.Constant as DM- import Data.Aeson import qualified Data.Aeson.KeyMap as KM import Data.Aeson.Key (toText) import Control.Monad (forM) +import qualified PMS.Domain.Model.DM.Type as DM+import qualified PMS.Domain.Model.DM.Constant as DM++ -------------------------------------------------------------------------------- -- | --@@ -97,8 +97,6 @@ -- type AppStateContext = StateT AppStateW (ReaderT DM.DomainData (ExceptT DM.ErrorData (LoggingT IO))) type AppContext = AppStateContext---- type AppStateContext = StateT AppStateW IO  -- | --

@@ -51,25 +51,6 @@ instance IStateActivity StartStateData TransitEventData   -- @see default implementation in Type module. ---- |----{--instance IStateActivity StartStateData InitializedEventData where-  action _ _ = do-    $logDebugS DM._LOGTAG "initialized called."--    $logDebugS DM._LOGTAG "start watch tools-list.json."-    let jsonRpc = dat^.DM.jsonrpcMcpToolsListRequestData-        cmdDat = DM.ToolsListWatchCommandData jsonRpc-        cmd = DM.ToolsListWatchCommand cmdDat--    wq <- view DM.watchQueueDomainData <$> lift ask-    liftIO $ STM.atomically $ STM.writeTQueue wq cmd-    -    return $ Just StartToRun--}- -- | -- instance IStateActivity StartStateData ToolsListEventData

@@ -46,24 +46,6 @@  -- | ----- instance IStateActivity StopStateData LaunchEventData-  -- @see default implementation in Type module.---- |------ instance IStateActivity StopStateData DisconnectEventData-  -- @see default implementation in Type module.---- |----{--instance IStateActivity StopStateData TerminateEventData where-  action _ _ = do-    $logDebugS DM._LOGTAG "Stop terminate called. will exit."-    return Nothing--}--- |--- instance IStateActivity StopStateData InitializedEventData   -- @see default implementation in Type module.