Hs MCP

🚀 MCP-Haskell（hs-mcp）

MCP-Haskell（hs-mcp）是基於Haskell實現的模型上下文協議（MCP），能讓Haskell應用程序向MCP兼容客戶端（如Claude）暴露工具、資源和提示，為應用開發提供便利。

🚀 快速開始

MCP-Haskell（hs-mcp）提供了完整的MCP協議實現，支持本地進程間通信的StdIO傳輸、JSON-RPC消息傳遞以及對資源、工具和提示的支持，並附帶全面的測試套件。

📦 安裝指南

# 克隆倉庫
git clone github.com:buecking/hs-mcp.git
cd hs-mcp

# direnv配置
# echo 'use flake' > .envrc
direnv allow

# Nix環境設置
nix develop

# 編譯項目
cabal build

💻 使用示例

基礎用法

import Network.MCP.Server
import Network.MCP.Types
import Network.MCP.Server.StdIO

main :: IO ()
main = do
  -- 創建服務器實例
  let serverInfo = Implementation "my-server" "1.0.0"
      serverCapabilities = ServerCapabilities
        { resourcesCapability = Just $ ResourcesCapability True
        , toolsCapability = Just $ ToolsCapability True
        , promptsCapability = Nothing
        }
  
  server <- createServer serverInfo serverCapabilities
  
  -- 註冊資源（可選）
  let resource = Resource 
        { resourceUri = "my://resource"
        , resourceName = "My Resource"
        , resourceDescription = Just "Description"
        , resourceMimeType = Just "text/plain"
        , resourceTemplate = Nothing
        }
  
  registerResources server [resource]
  
  -- 註冊資源讀取處理程序
  registerResourceReadHandler server $ \request -> do
    -- 實現資源讀取邏輯
    ...

  -- 註冊工具（可選）
  let tool = Tool 
        { toolName = "my-tool"
        , toolDescription = Just "My tool"
        , toolInputSchema = "{...}" -- JSON模式
        }
  
  registerTools server [tool]
  
  -- 註冊工具調用處理程序
  registerToolCallHandler server $ \request -> do
    -- 實現工具執行邏輯
    ...
  
  -- 啟動服務器，使用StdIO傳輸
  runServerWithSTDIO server

高級用法

項目包含一個演示MCP功能的回聲服務器示例：

# 構建並運行示例服務器
cabal run mcp-echo-server

你可以使用MCP Inspector或Claude Desktop進行測試。

🧪 測試

運行測試套件：

cabal test

🔧 技術細節

協議兼容性

此實現遵循模型上下文協議規範，並與以下客戶端兼容：

• Claude Desktop
• MCP Inspector
• 其他遵循規範的MCP客戶端

項目結構

• src/Network/MCP/Types.hs - 核心MCP類型
• src/Network/MCP/Transport/ - 傳輸實現
• src/Network/MCP/Server/ - 服務器實現
• Examples/ - 示例實現
• Test/ - 測試套件

🤝 貢獻

歡迎貢獻！請隨意提交Pull Request。

📄 許可證

該項目在BSD-3-Clause License下授權，具體信息見LICENSE文件。