pms-domain-service 0.1.6.0 → 0.1.7.0

raw patch · 3 files changed

+8/−8 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

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

@@ -1,5 +1,9 @@ # Revision history for pms-domain-service +## 0.1.7.0 -- 2026-07-05++* Changed how resource URIs are handled.+ ## 0.1.6.0 -- 2026-06-15  * Added pms-infra-agent-server: TCP server listen/accept functionality for AI agents.

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

@@ -20,7 +20,6 @@ import qualified Data.Text.Lazy.Encoding as TLE import Network.URI import qualified Data.ByteString.Lazy as BL-import Data.List   import qualified PMS.Domain.Model.DM.Type as DM import qualified PMS.Domain.Model.DM.Constant as DM@@ -37,14 +36,11 @@      let params = evDat^.DM.paramsMcpResourcesReadRequestData         rawUri = params^.DM.uriMcpResourcesReadRequestDataParams-        normUri = if "://" `isInfixOf` rawUri-                  then rawUri-                  else "file://" ++ rawUri -    uri  <- getURI normUri+    uri  <- getURI rawUri     cont <- getUriContents uri -    response normUri $ TL.unpack $ TLE.decodeUtf8 cont+    response rawUri $ TL.unpack $ TLE.decodeUtf8 cont         return noStateTransition @@ -57,7 +53,7 @@        getURI :: String -> AppContext URI       getURI uriStr = case parseURI uriStr of-        Nothing   -> throwError "Invalid URI, parse fail."+        Nothing   -> throwError $ "Invalid URI, parse fail: " ++ uriStr         Just uri  -> return uri        response :: String -> String -> AppContext ()