pms-domain-service 0.0.8.0 → 0.0.9.0

raw patch · 3 files changed

+13/−6 lines, 3 files

Files

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

@@ -1,5 +1,9 @@ # Revision history for pms-domain-service +## 0.0.9.0 -- 2025-08-24++* Fixed exception handle.+ ## 0.0.8.0 -- 2025-08-11  * Fixed encoding.

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

@@ -44,7 +44,7 @@     uri  <- getURI normUri     cont <- getUriContents uri -    response $ TL.unpack $ TLE.decodeUtf8 cont+    response normUri $ TL.unpack $ TLE.decodeUtf8 cont         return noStateTransition @@ -52,7 +52,7 @@       errHdl :: String -> AppContext (Maybe StateTransition)       errHdl msg = do         $logErrorS DM._LOGTAG $ T.pack $ "ResourcesReadEventData: exception occurred. " ++ msg-        response msg+        response "" msg         return noStateTransition        getURI :: String -> AppContext URI@@ -60,9 +60,12 @@         Nothing   -> throwError "Invalid URI, parse fail."         Just uri  -> return uri -      response :: String -> AppContext ()-      response cont = do-        let txtDat = def {DM._textTextResourceContents = cont} +      response :: String -> String -> AppContext ()+      response uri cont = do+        let txtDat = def {+                      DM._uriTextResourceContents = uri+                   ,  DM._textTextResourceContents = cont+                   }              content = encode txtDat             result = DM.McpResourcesReadResponseResult [DM.RawJsonByteString content]             jsonRpc = evDat^.DM.jsonrpcMcpResourcesReadRequestData