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文件。