purescript-mcp-tools 1.0.0

package/package.json

@@ -0,0 +1,62 @@
+{
+  "name": "purescript-mcp-tools",
+  "version": "1.0.0",
+  "description": "A Model Context Protocol (MCP) server providing PureScript development tools for AI assistants",
+  "main": "index.js",
+  "bin": {
+    "purescript-mcp-tools": "./index.js"
+  },
+  "scripts": {
+    "start": "node index.js",
+    "test": "cd purescript-test-examples && spago build && cd .. && node run_tests.js",
+    "prepublishOnly": "npm test"
+  },
+  "keywords": [
+    "mcp",
+    "model-context-protocol",
+    "purescript",
+    "language-server",
+    "ide",
+    "ai-tools",
+    "claude",
+    "llm",
+    "code-analysis",
+    "developer-tools",
+    "mcp-server",
+    "ai-assistant"
+  ],
+  "author": {
+    "name": "Avinash Verma",
+    "url": "https://github.com/avi892nash"
+  },
+  "license": "MIT",
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/avi892nash/purescript-mcp-tools.git"
+  },
+  "bugs": {
+    "url": "https://github.com/avi892nash/purescript-mcp-tools/issues"
+  },
+  "homepage": "https://github.com/avi892nash/purescript-mcp-tools#readme",
+  "engines": {
+    "node": ">=14.0.0"
+  },
+  "files": [
+    "index.js",
+    "run_tests.js",
+    "tree-sitter-purescript.wasm",
+    "purescript-test-examples",
+    "README.md",
+    "LICENSE"
+  ],
+  "dependencies": {
+    "chalk": "^4.1.2",
+    "purescript": "^0.15.15",
+    "spago": "^0.21.0",
+    "web-tree-sitter": "^0.25.5"
+  },
+  "preferGlobal": true,
+  "publishConfig": {
+    "access": "public"
+  }
+}

package/purescript-test-examples/packages.dhall

@@ -0,0 +1,105 @@
+{-
+Welcome to your new Dhall package-set!
+
+Below are instructions for how to edit this file for most use
+cases, so that you don't need to know Dhall to use it.
+
+## Use Cases
+
+Most will want to do one or both of these options:
+1. Override/Patch a package's dependency
+2. Add a package not already in the default package set
+
+This file will continue to work whether you use one or both options.
+Instructions for each option are explained below.
+
+### Overriding/Patching a package
+
+Purpose:
+- Change a package's dependency to a newer/older release than the
+    default package set's release
+- Use your own modified version of some dependency that may
+    include new API, changed API, removed API by
+    using your custom git repo of the library rather than
+    the package set's repo
+
+Syntax:
+where `entityName` is one of the following:
+- dependencies
+- repo
+- version
+-------------------------------
+let upstream = --
+in  upstream
+  with packageName.entityName = "new value"
+-------------------------------
+
+Example:
+-------------------------------
+let upstream = --
+in  upstream
+  with halogen.version = "master"
+  with halogen.repo = "https://example.com/path/to/git/repo.git"
+
+  with halogen-vdom.version = "v4.0.0"
+  with halogen-vdom.dependencies = [ "extra-dependency" ] # halogen-vdom.dependencies
+-------------------------------
+
+### Additions
+
+Purpose:
+- Add packages that aren't already included in the default package set
+
+Syntax:
+where `<version>` is:
+- a tag (i.e. "v4.0.0")
+- a branch (i.e. "master")
+- commit hash (i.e. "701f3e44aafb1a6459281714858fadf2c4c2a977")
+-------------------------------
+let upstream = --
+in  upstream
+  with new-package-name =
+    { dependencies =
+       [ "dependency1"
+       , "dependency2"
+       ]
+    , repo =
+       "https://example.com/path/to/git/repo.git"
+    , version =
+        "<version>"
+    }
+-------------------------------
+
+Example:
+-------------------------------
+let upstream = --
+in  upstream
+  with benchotron =
+      { dependencies =
+          [ "arrays"
+          , "exists"
+          , "profunctor"
+          , "strings"
+          , "quickcheck"
+          , "lcg"
+          , "transformers"
+          , "foldable-traversable"
+          , "exceptions"
+          , "node-fs"
+          , "node-buffer"
+          , "node-readline"
+          , "datetime"
+          , "now"
+          ]
+      , repo =
+          "https://github.com/hdgarrood/purescript-benchotron.git"
+      , version =
+          "v7.0.0"
+      }
+-------------------------------
+-}
+let upstream =
+      https://github.com/purescript/package-sets/releases/download/psc-0.15.15-20250523/packages.dhall
+        sha256:1274f34a6328069aabf8a149e395c414d80999a73073330c436ba0739615c536
+
+in  upstream

package/purescript-test-examples/spago.dhall

@@ -0,0 +1,17 @@
+{-
+Welcome to a Spago project!
+You can edit this file as you like.
+
+Need help? See the following resources:
+- Spago documentation: https://github.com/purescript/spago
+- Dhall language tour: https://docs.dhall-lang.org/tutorials/Language-Tour.html
+
+When creating a new Spago project, you can use
+`spago init --no-comments` or `spago init -C`
+to generate this file without the comments in this block.
+-}
+{ name = "my-project"
+, dependencies = [ "console", "effect", "prelude" ]
+, packages = ./packages.dhall
+, sources = [ "src/**/*.purs", "test/**/*.purs" ]
+}

package/purescript-test-examples/src/Main.purs

@@ -0,0 +1,13 @@
+module Main where
+
+import Prelude
+import Effect (Effect)
+import Effect.Console (log)
+import Utils (helperFunction, anotherUtil) -- Import from Utils
+
+main :: Effect Unit
+main = do
+  log "Hello from PureScript!"
+  log "This is a sample file for the purescript-mcp-server."
+  helperFunction "called from Main"
+  anotherUtil -- This will indirectly call log again via helperFunction

package/purescript-test-examples/src/Utils.purs

@@ -0,0 +1,23 @@
+module Utils where
+
+import Prelude
+import Effect (Effect)
+import Effect.Console (log)
+-- Intentionally import something from Main if Main were to export a utility
+-- For now, let's assume Main might export a helper or constant in a real scenario
+-- import Main (appVersion) -- Example, will be commented out if Main.appVersion doesn't exist
+
+helperFunction :: String -> Effect Unit
+helperFunction msg = do
+  log $ "Helper says: " <> msg
+  -- log $ "App version: " <> Main.appVersion -- if Main.appVersion was available
+
+anotherHelper :: Int -> String
+anotherHelper x = "Number: " <> show x
+
+-- This function will call a (hypothetical) function from Main
+-- For testing, let's make Main.main call this, and this call a (new) function in Main
+-- to create a small cycle or at least a deeper call chain.
+-- For now, let's keep it simple: Utils.anotherUtil calls helperFunction.
+anotherUtil :: Effect Unit
+anotherUtil = helperFunction "called from anotherUtil"

package/purescript-test-examples/test/Main.purs

@@ -0,0 +1,11 @@
+module Test.Main where
+
+import Prelude
+
+import Effect (Effect)
+import Effect.Class.Console (log)
+
+main :: Effect Unit
+main = do
+  log "🍝"
+  log "You should add some tests."