pms-ui-response 0.0.2.0 → 0.0.3.0

raw patch · 3 files changed

+20/−1 lines, 3 files

Files

• CHANGELOG.md +4/−0
• pms-ui-response.cabal +1/−1
• src/PMS/UI/Response/DS/Core.hs +15/−0

@@ -1,5 +1,9 @@ # Revision history for pms-ui-response +## 0.0.3.0 -- 2025-06-22++*Added prompts interface.+ ## 0.0.2.0 -- 2025-06-22  *Added file change monitoring for tools-list.json.

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

@@ -85,6 +85,21 @@       result = encode $ dat^.DM.resultMcpToolsCallResponseData       res = json {DM._resultJsonRpcResponse = DM.RawJsonByteString result}   return res  +mcp2json (DM.McpPromptsListResponse dat) = do+  let json = DM.defaultJsonRpcResponse $ dat^.DM.jsonrpcMcpPromptsListResponseData+      result = encode $ dat^.DM.resultMcpPromptsListResponseData+      res = json {DM._resultJsonRpcResponse = DM.RawJsonByteString result}+  return res+mcp2json (DM.McpCompleteResponse dat) = do+  let json = DM.defaultJsonRpcResponse $ dat^.DM.jsonrpcMcpCompleteResponseData+      result = encode $ dat^.DM.resultMcpCompleteResponseData+      res = json {DM._resultJsonRpcResponse = DM.RawJsonByteString result}+  return res+mcp2json (DM.McpPromptsGetResponse dat) = do+  let json = DM.defaultJsonRpcResponse $ dat^.DM.jsonrpcMcpPromptsGetResponseData+      result = encode $ dat^.DM.resultMcpPromptsGetResponseData+      res = json {DM._resultJsonRpcResponse = DM.RawJsonByteString result}+  return res  --------------------------------------------------------------------------------- -- |