Skip to content
Open
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
6 changes: 3 additions & 3 deletions app/Main.hs
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
-- hlint is wrong; this is needed to permit this module to create
{-# LANGUAGE DisambiguateRecordFields #-}
-- This pragma is needed to permit this module to create
-- values in types that share field names, such as every type
-- that has a "_meta" field; is this expected behavior?
-- that has a "_meta" field
{-# OPTIONS_GHC -fno-warn-orphans #-}

module Main where
Expand Down
5 changes: 4 additions & 1 deletion examples/README.md
Original file line number Diff line number Diff line change
Expand Up @@ -141,13 +141,15 @@ Demonstrates how to run an MCP server using HTTP transport instead of StdIO.
### Building and Running

**Using Cabal (recommended):**

```bash
# From the project root
cabal build mcp-http
cabal run mcp-http
```

**Manual compilation:**

```bash
# From the project root
ghc -package-env=. -o examples/http-server examples/http-server.hs
Expand All @@ -156,6 +158,7 @@ cd examples
```

**Using cabal exec:**

```bash
cabal exec ghc -- -package-env=. -o examples/http-server examples/http-server.hs
cd examples
Expand Down Expand Up @@ -250,4 +253,4 @@ The HTTP server returns appropriate HTTP status codes:
- **400 Bad Request**: Invalid JSON or malformed JSON-RPC
- **500 Internal Server Error**: Server-side processing errors

JSON-RPC errors are returned within the 200 response body following the JSON-RPC 2.0 specification.
JSON-RPC errors are returned within the 200 response body following the JSON-RPC 2.0 specification.
4 changes: 2 additions & 2 deletions examples/claude-desktop-config.json
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
"haskell-mcp-development": {
"command": "cabal",
"args": ["run", "mcp"],
"cwd": "/absolute/path/to/mcp-haskell",
"cwd": "/Users/username/projects/mcp-haskell",
"env": {
"GHC_ENVIRONMENT": "-"
}
Expand All @@ -17,7 +17,7 @@
"haskell-mcp-stack": {
"command": "stack",
"args": ["exec", "mcp"],
"cwd": "/path/to/mcp-haskell",
"cwd": "/Users/username/projects/mcp-haskell",
"env": {}
}
}
Expand Down
21 changes: 0 additions & 21 deletions examples/cursor-config-examples.json

This file was deleted.

24 changes: 24 additions & 0 deletions examples/cursor-config.json
Original file line number Diff line number Diff line change
@@ -0,0 +1,24 @@
{
"mcpServers": {
"haskell-mcp-development": {
"command": "cabal",
"args": ["run", "--project-dir", "/Users/username/projects/mcp-haskell", "-v0", "mcp-stdio", "--", "--log"],
"cwd": "/Users/username/projects/mcp-haskell",
"env": {
"GHC_ENVIRONMENT": "-"
}
},
"haskell-mcp-production": {
"command": "/usr/local/bin/mcp-stdio",
"args": [],
"cwd": "/opt/mcp-servers",
"env": {}
},
"haskell-mcp-stack": {
"command": "stack",
"args": ["exec", "--cwd", "/Users/username/projects/mcp-haskell", "--package", "mcp", "mcp-stdio"],
"cwd": "/Users/username/projects/mcp-haskell",
"env": {}
}
}
}
62 changes: 0 additions & 62 deletions examples/test-mcp-server.sh

This file was deleted.

5 changes: 4 additions & 1 deletion mcp.cabal
Original file line number Diff line number Diff line change
Expand Up @@ -68,8 +68,11 @@ extra-source-files:
schema.ts
examples/README.md
examples/http-server.hs
examples/stdio-server.hs
examples/claude-desktop-config.json
examples/full-config-example.json
examples/claude-desktop-full-config.json
examples/cursor-config-examples.json
examples/test-mcp-servers.sh

homepage: https://github.com/Tritlo/mcp

Expand Down