Fully-functional Haskell implementation of the MCP “roll_dice” server:
- Dual transport: stdio (MCP-compliant JSON-RPC 2.0) + HTTP 3000
- Pure functional core (no IO in business logic)
- Uses the C64 palette (dark indigo, violet, amber)
- Rounded-corner terminal output via ASCII art box-drawing when running in TTY mode
mcp-server/ ├── app │ └── Main.hs -- entry point ├── src │ ├── Core.hs -- Die definition for Router.hs │ ├── Router.hs -- router used by Http.hs and Stdio.hs │ ├── Stdio.hs -- stdio transport │ └── Http.hs -- HTTP/3000 transport ├── mcp-server.cabal ├── package.yaml └── stack.yaml