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ファイルを参照してください。