pms-domain-model 0.0.7.0 → 0.0.8.0

raw patch · 5 files changed

+10/−56 lines, 5 filesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

API changes (from Hackage documentation)

Files

• CHANGELOG.md +4/−0
• pms-domain-model.cabal +1/−1
• src/PMS/Domain/Model/DM/Constant.hs +0/−1
• src/PMS/Domain/Model/DM/Type.hs +5/−5
• src/PMS/Domain/Model/DS/Utility.hs +0/−49

@@ -1,5 +1,9 @@ # Revision history for pms-domain-model +## 0.0.8.0 -- 2025-07-27++* Fixed resources templates.+ ## 0.0.7.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.7.0+version:            0.0.8.0  -- A short (one-line) description of the package. synopsis:           pms-domain-model

@@ -50,7 +50,6 @@ _CRLF :: String _CRLF = "\r\n" - -- | -- _CR :: String

@@ -743,7 +743,7 @@ -- data McpResourcesTemplatesListResponseResult =   McpResourcesTemplatesListResponseResult {-    _resourcesMcpResourcesTemplatesListResponseResult :: RawJsonByteString+    _resourceTemplatesMcpResourcesTemplatesListResponseResult :: RawJsonByteString   } deriving (Show, Read, Eq)  $(deriveJSON defaultOptions {fieldLabelModifier = dropDataName "McpResourcesTemplatesListResponseResult", omitNothingFields = True} ''McpResourcesTemplatesListResponseResult)@@ -751,7 +751,7 @@  instance Default McpResourcesTemplatesListResponseResult where   def = McpResourcesTemplatesListResponseResult {-        _resourcesMcpResourcesTemplatesListResponseResult = def+        _resourceTemplatesMcpResourcesTemplatesListResponseResult = def       }  -- |@@ -1491,9 +1491,9 @@   return DomainData {            _logDirDomainData            = Nothing          , _logLevelDomainData          = LevelDebug-         , _toolsDirDomainData          = "./tools"-         , _promptsDirDomainData        = "./prompts"-         , _resourcesDirDomainData      = "./resources"+         , _toolsDirDomainData          = "pty-mcp-server/tools"+         , _promptsDirDomainData        = "pty-mcp-server/prompts"+         , _resourcesDirDomainData      = "pty-mcp-server/resources"          , _requestQueueDomainData      = reqQ          , _responseQueueDomainData     = resQ          , _notificationQueueDomainData = notQ

@@ -206,52 +206,3 @@       if foundPrompt acc'         then return acc'         else go acc'---{--readUntilPrompt :: IO BS.ByteString -> [String] -> IO BS.ByteString-readUntilPrompt feed prompts = go BS.empty-  where-    promptBsList = map BS.pack prompts--    foundPrompt acc = any (`BS.isInfixOf` acc) promptBsList--    go acc = do-      chunk <- feed-      when ("\ESC[6n" `BS.isInfixOf` chunk) $ do-        E.throwString "Unsupported: Detected cursor position report request (ESC[6n)."--      -- let txt = ANSI.stripAnsiEscapeCodes $ TE.decodeUtf8With TEE.lenientDecode chunk-      let txt = TE.decodeUtf8With TEE.lenientDecode chunk-      hPutStrLn stderr $ "[INFO] chunk:\n" ++ T.unpack txt--      let acc' = BS.append acc chunk-      if foundPrompt acc'-        then return acc'-        else go acc'----readUntilPrompt :: Pty -> [String] -> IO BS.ByteString-readUntilPrompt pms prompts = go BS.empty T.empty-  where-    promptTextList = map T.pack prompts--    foundPrompt :: T.Text -> Bool-    foundPrompt txt = any (`T.isInfixOf` txt) promptTextList--    go accBs accTxt = do-      chunk <- readPty pms-      let txt = ANSI.stripAnsiEscapeCodes $ TE.decodeUtf8With TEE.lenientDecode chunk-      hPutStrLn stderr $ "[INFO] chunk:\n" ++ T.unpack txt--      when ("\ESC[6n" `BS.isInfixOf` chunk) $ do-        hPutStrLn stderr "[INFO] Detected cursor position report request, replying with ESC[1;1R"-        writePty pms (DBS.pack ([0x1B :: Word8, 0x5B :: Word8] ++ map (fromIntegral . ord) "0;0R"))--      let accBs' = BS.append accBs chunk-          accTxt' = T.append accTxt txt-      if foundPrompt accTxt'-        then return accBs'-        else go accBs' accTxt'--}