@llm4ts/flow 0.1.0

package/dist/WorkspaceTools.js

@@ -0,0 +1,130 @@
+import * as Effect from "effect/Effect";
+import { ToolExecutionFailed, makeTool } from "@llm4ts/core/tools/Tool";
+import { isJsonRecord } from "@llm4ts/core/providers/CliSupport";
+const parameter = (parameters, name) => {
+    if (!isJsonRecord(parameters)) {
+        return Effect.fail(ToolExecutionFailed.make({
+            message: "tool parameters must be an object"
+        }));
+    }
+    const value = parameters[name];
+    return typeof value === "string"
+        ? Effect.succeed(value)
+        : Effect.fail(ToolExecutionFailed.make({
+            message: `parameter '${name}' must be a string`
+        }));
+};
+const optionalParameter = (parameters, name) => {
+    if (!isJsonRecord(parameters)) {
+        return Effect.fail(ToolExecutionFailed.make({
+            message: "tool parameters must be an object"
+        }));
+    }
+    const value = parameters[name];
+    return value === undefined || typeof value === "string"
+        ? Effect.succeed(value)
+        : Effect.fail(ToolExecutionFailed.make({
+            message: `parameter '${name}' must be a string when supplied`
+        }));
+};
+const mapWorkspaceError = Effect.mapError((error) => ToolExecutionFailed.make({ message: error.message }));
+const pathSchema = {
+    type: "object",
+    properties: {
+        path: { type: "string" }
+    },
+    required: ["path"],
+    additionalProperties: false
+};
+const contentSchema = {
+    type: "object",
+    properties: {
+        path: { type: "string" },
+        contents: { type: "string" }
+    },
+    required: ["path", "contents"],
+    additionalProperties: false
+};
+export const workspaceTools = (workspace) => [
+    makeTool({
+        name: "workspace_read",
+        description: "Read a bounded UTF-8 file under the workspace root",
+        parameters: pathSchema,
+        tags: ["file", "read", "workspace"],
+        sandbox: "WorkspaceReadOnly",
+        execute: (parameters) => Effect.all({
+            path: parameter(parameters, "path")
+        }).pipe(Effect.flatMap(({ path }) => workspace.read(path)), mapWorkspaceError)
+    }),
+    makeTool({
+        name: "workspace_write",
+        description: "Write bounded UTF-8 content under the workspace root",
+        parameters: contentSchema,
+        tags: ["file", "write", "workspace"],
+        execute: (parameters) => Effect.all({
+            path: parameter(parameters, "path"),
+            contents: parameter(parameters, "contents")
+        }).pipe(Effect.flatMap(({ path, contents }) => workspace.write(path, contents)), mapWorkspaceError, Effect.as({ written: true }))
+    }),
+    makeTool({
+        name: "workspace_append",
+        description: "Append bounded UTF-8 content under the workspace root",
+        parameters: contentSchema,
+        tags: ["file", "append", "workspace"],
+        execute: (parameters) => Effect.all({
+            path: parameter(parameters, "path"),
+            contents: parameter(parameters, "contents")
+        }).pipe(Effect.flatMap(({ path, contents }) => workspace.append(path, contents)), mapWorkspaceError, Effect.as({ appended: true }))
+    }),
+    makeTool({
+        name: "workspace_discover",
+        description: "Discover files under the workspace root using a bounded glob",
+        parameters: {
+            type: "object",
+            properties: {
+                pattern: { type: "string" }
+            },
+            additionalProperties: false
+        },
+        tags: ["file", "glob", "discover", "workspace"],
+        sandbox: "WorkspaceReadOnly",
+        execute: (parameters) => optionalParameter(parameters, "pattern").pipe(Effect.flatMap((pattern) => workspace.discover(pattern)), mapWorkspaceError, Effect.map((paths) => [...paths]))
+    }),
+    makeTool({
+        name: "workspace_search",
+        description: "Search bounded workspace files for literal text",
+        parameters: {
+            type: "object",
+            properties: {
+                query: { type: "string" },
+                pattern: { type: "string" }
+            },
+            required: ["query"],
+            additionalProperties: false
+        },
+        tags: ["file", "search", "workspace"],
+        sandbox: "WorkspaceReadOnly",
+        execute: (parameters) => Effect.all({
+            query: parameter(parameters, "query"),
+            pattern: optionalParameter(parameters, "pattern")
+        }).pipe(Effect.flatMap(({ pattern, query }) => workspace.search(query, pattern)), mapWorkspaceError, Effect.map((matches) => matches.map((match) => ({
+            path: match.path,
+            line: match.line,
+            text: match.text
+        }))))
+    }),
+    makeTool({
+        name: "workspace_validate_json",
+        description: "Validate that a bounded workspace file contains JSON",
+        parameters: pathSchema,
+        tags: ["file", "validate", "json", "workspace"],
+        sandbox: "WorkspaceReadOnly",
+        execute: (parameters) => parameter(parameters, "path").pipe(Effect.flatMap((path) => workspace.read(path)), mapWorkspaceError, Effect.flatMap((contents) => Effect.try({
+            try: () => JSON.parse(contents),
+            catch: (error) => ToolExecutionFailed.make({
+                message: `invalid JSON: ${String(error)}`
+            })
+        })), Effect.as({ valid: true }))
+    })
+];
+//# sourceMappingURL=WorkspaceTools.js.map

package/dist/WorkspaceTools.js.map

@@ -0,0 +1 @@
+{"version":3,"file":"WorkspaceTools.js","sourceRoot":"","sources":["../src/WorkspaceTools.ts"],"names":[],"mappings":"AAAA,OAAO,KAAK,MAAM,MAAM,eAAe,CAAA;AACvC,OAAO,EAAE,mBAAmB,EAAE,QAAQ,EAAa,MAAM,yBAAyB,CAAA;AAClF,OAAO,EAAE,YAAY,EAAE,MAAM,mCAAmC,CAAA;AAIhE,MAAM,SAAS,GAAG,CAChB,UAAqB,EACrB,IAAY,EACgC,EAAE;IAC9C,IAAI,CAAC,YAAY,CAAC,UAAU,CAAC,EAAE,CAAC;QAC9B,OAAO,MAAM,CAAC,IAAI,CAChB,mBAAmB,CAAC,IAAI,CAAC;YACvB,OAAO,EAAE,mCAAmC;SAC7C,CAAC,CACH,CAAA;IACH,CAAC;IACD,MAAM,KAAK,GAAG,UAAU,CAAC,IAAI,CAAC,CAAA;IAC9B,OAAO,OAAO,KAAK,KAAK,QAAQ;QAC9B,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC;QACvB,CAAC,CAAC,MAAM,CAAC,IAAI,CACT,mBAAmB,CAAC,IAAI,CAAC;YACvB,OAAO,EAAE,cAAc,IAAI,oBAAoB;SAChD,CAAC,CACH,CAAA;AACP,CAAC,CAAA;AAED,MAAM,iBAAiB,GAAG,CACxB,UAAqB,EACrB,IAAY,EAC4C,EAAE;IAC1D,IAAI,CAAC,YAAY,CAAC,UAAU,CAAC,EAAE,CAAC;QAC9B,OAAO,MAAM,CAAC,IAAI,CAChB,mBAAmB,CAAC,IAAI,CAAC;YACvB,OAAO,EAAE,mCAAmC;SAC7C,CAAC,CACH,CAAA;IACH,CAAC;IACD,MAAM,KAAK,GAAG,UAAU,CAAC,IAAI,CAAC,CAAA;IAC9B,OAAO,KAAK,KAAK,SAAS,IAAI,OAAO,KAAK,KAAK,QAAQ;QACrD,CAAC,CAAC,MAAM,CAAC,OAAO,CAAC,KAAK,CAAC;QACvB,CAAC,CAAC,MAAM,CAAC,IAAI,CACT,mBAAmB,CAAC,IAAI,CAAC;YACvB,OAAO,EAAE,cAAc,IAAI,kCAAkC;SAC9D,CAAC,CACH,CAAA;AACP,CAAC,CAAA;AAED,MAAM,iBAAiB,GAAG,MAAM,CAAC,QAAQ,CAAC,CAAC,KAAmC,EAAE,EAAE,CAChF,mBAAmB,CAAC,IAAI,CAAC,EAAE,OAAO,EAAE,KAAK,CAAC,OAAO,EAAE,CAAC,CACrD,CAAA;AAED,MAAM,UAAU,GAAG;IACjB,IAAI,EAAE,QAAQ;IACd,UAAU,EAAE;QACV,IAAI,EAAE,EAAE,IAAI,EAAE,QAAQ,EAAE;KACzB;IACD,QAAQ,EAAE,CAAC,MAAM,CAAC;IAClB,oBAAoB,EAAE,KAAK;CAC5B,CAAA;AAED,MAAM,aAAa,GAAG;IACpB,IAAI,EAAE,QAAQ;IACd,UAAU,EAAE;QACV,IAAI,EAAE,EAAE,IAAI,EAAE,QAAQ,EAAE;QACxB,QAAQ,EAAE,EAAE,IAAI,EAAE,QAAQ,EAAE;KAC7B;IACD,QAAQ,EAAE,CAAC,MAAM,EAAE,UAAU,CAAC;IAC9B,oBAAoB,EAAE,KAAK;CAC5B,CAAA;AAED,MAAM,CAAC,MAAM,cAAc,GAAG,CAAC,SAAyB,EAAuB,EAAE,CAAC;IAChF,QAAQ,CAAC;QACP,IAAI,EAAE,gBAAgB;QACtB,WAAW,EAAE,oDAAoD;QACjE,UAAU,EAAE,UAAU;QACtB,IAAI,EAAE,CAAC,MAAM,EAAE,MAAM,EAAE,WAAW,CAAC;QACnC,OAAO,EAAE,mBAAmB;QAC5B,OAAO,EAAE,CAAC,UAAU,EAAE,EAAE,CACtB,MAAM,CAAC,GAAG,CAAC;YACT,IAAI,EAAE,SAAS,CAAC,UAAU,EAAE,MAAM,CAAC;SACpC,CAAC,CAAC,IAAI,CACL,MAAM,CAAC,OAAO,CAAC,CAAC,EAAE,IAAI,EAAE,EAAE,EAAE,CAAC,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,EAClD,iBAAiB,CAClB;KACJ,CAAC;IACF,QAAQ,CAAC;QACP,IAAI,EAAE,iBAAiB;QACvB,WAAW,EAAE,sDAAsD;QACnE,UAAU,EAAE,aAAa;QACzB,IAAI,EAAE,CAAC,MAAM,EAAE,OAAO,EAAE,WAAW,CAAC;QACpC,OAAO,EAAE,CAAC,UAAU,EAAE,EAAE,CACtB,MAAM,CAAC,GAAG,CAAC;YACT,IAAI,EAAE,SAAS,CAAC,UAAU,EAAE,MAAM,CAAC;YACnC,QAAQ,EAAE,SAAS,CAAC,UAAU,EAAE,UAAU,CAAC;SAC5C,CAAC,CAAC,IAAI,CACL,MAAM,CAAC,OAAO,CAAC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,EAAE,EAAE,CAAC,SAAS,CAAC,KAAK,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC,EACvE,iBAAiB,EACjB,MAAM,CAAC,EAAE,CAAC,EAAE,OAAO,EAAE,IAAI,EAAE,CAAC,CAC7B;KACJ,CAAC;IACF,QAAQ,CAAC;QACP,IAAI,EAAE,kBAAkB;QACxB,WAAW,EAAE,uDAAuD;QACpE,UAAU,EAAE,aAAa;QACzB,IAAI,EAAE,CAAC,MAAM,EAAE,QAAQ,EAAE,WAAW,CAAC;QACrC,OAAO,EAAE,CAAC,UAAU,EAAE,EAAE,CACtB,MAAM,CAAC,GAAG,CAAC;YACT,IAAI,EAAE,SAAS,CAAC,UAAU,EAAE,MAAM,CAAC;YACnC,QAAQ,EAAE,SAAS,CAAC,UAAU,EAAE,UAAU,CAAC;SAC5C,CAAC,CAAC,IAAI,CACL,MAAM,CAAC,OAAO,CAAC,CAAC,EAAE,IAAI,EAAE,QAAQ,EAAE,EAAE,EAAE,CAAC,SAAS,CAAC,MAAM,CAAC,IAAI,EAAE,QAAQ,CAAC,CAAC,EACxE,iBAAiB,EACjB,MAAM,CAAC,EAAE,CAAC,EAAE,QAAQ,EAAE,IAAI,EAAE,CAAC,CAC9B;KACJ,CAAC;IACF,QAAQ,CAAC;QACP,IAAI,EAAE,oBAAoB;QAC1B,WAAW,EAAE,8DAA8D;QAC3E,UAAU,EAAE;YACV,IAAI,EAAE,QAAQ;YACd,UAAU,EAAE;gBACV,OAAO,EAAE,EAAE,IAAI,EAAE,QAAQ,EAAE;aAC5B;YACD,oBAAoB,EAAE,KAAK;SAC5B;QACD,IAAI,EAAE,CAAC,MAAM,EAAE,MAAM,EAAE,UAAU,EAAE,WAAW,CAAC;QAC/C,OAAO,EAAE,mBAAmB;QAC5B,OAAO,EAAE,CAAC,UAAU,EAAE,EAAE,CACtB,iBAAiB,CAAC,UAAU,EAAE,SAAS,CAAC,CAAC,IAAI,CAC3C,MAAM,CAAC,OAAO,CAAC,CAAC,OAAO,EAAE,EAAE,CAAC,SAAS,CAAC,QAAQ,CAAC,OAAO,CAAC,CAAC,EACxD,iBAAiB,EACjB,MAAM,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC,GAAG,KAAK,CAAC,CAAC,CAClC;KACJ,CAAC;IACF,QAAQ,CAAC;QACP,IAAI,EAAE,kBAAkB;QACxB,WAAW,EAAE,iDAAiD;QAC9D,UAAU,EAAE;YACV,IAAI,EAAE,QAAQ;YACd,UAAU,EAAE;gBACV,KAAK,EAAE,EAAE,IAAI,EAAE,QAAQ,EAAE;gBACzB,OAAO,EAAE,EAAE,IAAI,EAAE,QAAQ,EAAE;aAC5B;YACD,QAAQ,EAAE,CAAC,OAAO,CAAC;YACnB,oBAAoB,EAAE,KAAK;SAC5B;QACD,IAAI,EAAE,CAAC,MAAM,EAAE,QAAQ,EAAE,WAAW,CAAC;QACrC,OAAO,EAAE,mBAAmB;QAC5B,OAAO,EAAE,CAAC,UAAU,EAAE,EAAE,CACtB,MAAM,CAAC,GAAG,CAAC;YACT,KAAK,EAAE,SAAS,CAAC,UAAU,EAAE,OAAO,CAAC;YACrC,OAAO,EAAE,iBAAiB,CAAC,UAAU,EAAE,SAAS,CAAC;SAClD,CAAC,CAAC,IAAI,CACL,MAAM,CAAC,OAAO,CAAC,CAAC,EAAE,OAAO,EAAE,KAAK,EAAE,EAAE,EAAE,CAAC,SAAS,CAAC,MAAM,CAAC,KAAK,EAAE,OAAO,CAAC,CAAC,EACxE,iBAAiB,EACjB,MAAM,CAAC,GAAG,CAAC,CAAC,OAAO,EAAE,EAAE,CACrB,OAAO,CAAC,GAAG,CAAC,CAAC,KAAK,EAAE,EAAE,CAAC,CAAC;YACtB,IAAI,EAAE,KAAK,CAAC,IAAI;YAChB,IAAI,EAAE,KAAK,CAAC,IAAI;YAChB,IAAI,EAAE,KAAK,CAAC,IAAI;SACjB,CAAC,CAAC,CACJ,CACF;KACJ,CAAC;IACF,QAAQ,CAAC;QACP,IAAI,EAAE,yBAAyB;QAC/B,WAAW,EAAE,sDAAsD;QACnE,UAAU,EAAE,UAAU;QACtB,IAAI,EAAE,CAAC,MAAM,EAAE,UAAU,EAAE,MAAM,EAAE,WAAW,CAAC;QAC/C,OAAO,EAAE,mBAAmB;QAC5B,OAAO,EAAE,CAAC,UAAU,EAAE,EAAE,CACtB,SAAS,CAAC,UAAU,EAAE,MAAM,CAAC,CAAC,IAAI,CAChC,MAAM,CAAC,OAAO,CAAC,CAAC,IAAI,EAAE,EAAE,CAAC,SAAS,CAAC,IAAI,CAAC,IAAI,CAAC,CAAC,EAC9C,iBAAiB,EACjB,MAAM,CAAC,OAAO,CAAC,CAAC,QAAQ,EAAE,EAAE,CAC1B,MAAM,CAAC,GAAG,CAAC;YACT,GAAG,EAAE,GAAG,EAAE,CAAC,IAAI,CAAC,KAAK,CAAC,QAAQ,CAAC;YAC/B,KAAK,EAAE,CAAC,KAAK,EAAE,EAAE,CACf,mBAAmB,CAAC,IAAI,CAAC;gBACvB,OAAO,EAAE,iBAAiB,MAAM,CAAC,KAAK,CAAC,EAAE;aAC1C,CAAC;SACL,CAAC,CACH,EACD,MAAM,CAAC,EAAE,CAAC,EAAE,KAAK,EAAE,IAAI,EAAE,CAAC,CAC3B;KACJ,CAAC;CACH,CAAA"}

package/package.json

@@ -0,0 +1,91 @@
+{
+  "name": "@llm4ts/flow",
+  "version": "0.1.0",
+  "description": "Effect-native LLM workflow, persistence, review, and repository automation",
+  "license": "MIT",
+  "type": "module",
+  "sideEffects": false,
+  "engines": {
+    "node": ">=22"
+  },
+  "files": [
+    "dist",
+    "src"
+  ],
+  "exports": {
+    "./package.json": "./package.json",
+    "./AzureDevOpsTool": "./dist/AzureDevOpsTool.js",
+    "./Bench": "./dist/Bench.js",
+    "./BenchReport": "./dist/BenchReport.js",
+    "./CapabilityGuard": "./dist/CapabilityGuard.js",
+    "./Chat": "./dist/Chat.js",
+    "./Classified": "./dist/Classified.js",
+    "./CostLedger": "./dist/CostLedger.js",
+    "./CostTracker": "./dist/CostTracker.js",
+    "./Equiv": "./dist/Equiv.js",
+    "./EquivReport": "./dist/EquivReport.js",
+    "./Flow": "./dist/Flow.js",
+    "./FlowContext": "./dist/FlowContext.js",
+    "./FlowError": "./dist/FlowError.js",
+    "./FlowEvents": "./dist/FlowEvents.js",
+    "./FlowRecorder": "./dist/FlowRecorder.js",
+    "./GitHubTool": "./dist/GitHubTool.js",
+    "./GitTool": "./dist/GitTool.js",
+    "./Interaction": "./dist/Interaction.js",
+    "./McpServer": "./dist/McpServer.js",
+    "./Mermaid": "./dist/Mermaid.js",
+    "./Pack": "./dist/Pack.js",
+    "./Package": "./dist/Package.js",
+    "./Persistence": "./dist/Persistence.js",
+    "./Plan": "./dist/Plan.js",
+    "./PlanExecution": "./dist/PlanExecution.js",
+    "./Planner": "./dist/Planner.js",
+    "./PrSummary": "./dist/PrSummary.js",
+    "./PriceList": "./dist/PriceList.js",
+    "./Provenance": "./dist/Provenance.js",
+    "./Replay": "./dist/Replay.js",
+    "./Review": "./dist/Review.js",
+    "./ReviewCache": "./dist/ReviewCache.js",
+    "./Reviewer": "./dist/Reviewer.js",
+    "./SpecChecks": "./dist/SpecChecks.js",
+    "./Survey": "./dist/Survey.js",
+    "./TransientRetry": "./dist/TransientRetry.js",
+    "./Workspace": "./dist/Workspace.js",
+    "./WorkspaceLayout": "./dist/WorkspaceLayout.js",
+    "./WorkspaceTools": "./dist/WorkspaceTools.js"
+  },
+  "publishConfig": {
+    "access": "public",
+    "provenance": true
+  },
+  "repository": {
+    "type": "git",
+    "url": "git+https://github.com/riccardomerolla/llm4ts.git",
+    "directory": "packages/flow"
+  },
+  "homepage": "https://github.com/riccardomerolla/llm4ts#readme",
+  "bugs": {
+    "url": "https://github.com/riccardomerolla/llm4ts/issues"
+  },
+  "keywords": [
+    "llm",
+    "effect",
+    "ai",
+    "agents",
+    "workflow",
+    "typescript"
+  ],
+  "dependencies": {
+    "@llm4ts/core": "0.1.0"
+  },
+  "peerDependencies": {
+    "effect": "^4.0.0-beta.102"
+  },
+  "devDependencies": {
+    "effect": "^4.0.0-beta.102"
+  },
+  "scripts": {
+    "clean": "tsc -b tsconfig.json --clean",
+    "test": "vitest run test"
+  }
+}

package/src/AzureDevOpsTool.ts

@@ -0,0 +1,291 @@
+import * as Duration from "effect/Duration"
+import * as Effect from "effect/Effect"
+import * as Redacted from "effect/Redacted"
+import * as Schema from "effect/Schema"
+import { Capabilities } from "@llm4ts/core/Capability"
+import type { HttpClientShape } from "@llm4ts/core/HttpClient"
+import type { JsonValue } from "@llm4ts/core/providers/CliSupport"
+import { ProcessError, type FlowError } from "./FlowError.ts"
+import type { FlowEventsShape } from "./FlowEvents.ts"
+import { guarded } from "./CapabilityGuard.ts"
+
+export class AdoRequest extends Schema.Class<AdoRequest>("AdoRequest")({
+  method: Schema.String,
+  url: Schema.String,
+  body: Schema.optionalKey(Schema.String),
+  contentType: Schema.String.pipe(Schema.withConstructorDefault(Effect.succeed("application/json")))
+}) {}
+
+export class WorkItem extends Schema.Class<WorkItem>("WorkItem")({
+  id: Schema.Int,
+  title: Schema.String,
+  description: Schema.String,
+  acceptanceCriteria: Schema.String,
+  state: Schema.String,
+  tags: Schema.Array(Schema.String)
+}) {}
+
+export class AdoPullRequest extends Schema.Class<AdoPullRequest>("AdoPullRequest")({
+  id: Schema.Int,
+  repoId: Schema.String,
+  projectId: Schema.String,
+  webUrl: Schema.String
+}) {}
+
+export class AdoConfig extends Schema.Class<AdoConfig>("AdoConfig")({
+  orgUrl: Schema.String,
+  project: Schema.String,
+  repository: Schema.String,
+  pat: Schema.Redacted(Schema.String, {
+    disallowJsonEncode: true
+  }),
+  apiVersion: Schema.String.pipe(Schema.withConstructorDefault(Effect.succeed("7.1")))
+}) {}
+
+const encodeBase64 = (value: string): string => {
+  const alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/"
+  const bytes = new TextEncoder().encode(value)
+  let encoded = ""
+  for (let index = 0; index < bytes.length; index += 3) {
+    const first = bytes[index] ?? 0
+    const second = bytes[index + 1]
+    const third = bytes[index + 2]
+    const bits = (first << 16) | ((second ?? 0) << 8) | (third ?? 0)
+    encoded += alphabet[(bits >>> 18) & 63] ?? ""
+    encoded += alphabet[(bits >>> 12) & 63] ?? ""
+    encoded += second === undefined ? "=" : (alphabet[(bits >>> 6) & 63] ?? "")
+    encoded += third === undefined ? "=" : (alphabet[bits & 63] ?? "")
+  }
+  return encoded
+}
+
+export const authorizationHeader = (config: AdoConfig): Readonly<Record<string, string>> => ({
+  Authorization: `Basic ${encodeBase64(`:${Redacted.value(config.pat)}`)}`
+})
+
+const witBase = (config: AdoConfig): string => `${config.orgUrl}/${config.project}/_apis/wit`
+const gitBase = (config: AdoConfig): string =>
+  `${config.orgUrl}/${config.project}/_apis/git/repositories/${config.repository}`
+
+const patchOperations = (fields: Readonly<Record<string, string>>): ReadonlyArray<JsonValue> =>
+  Object.entries(fields).map(([name, value]) => ({
+    op: "add",
+    path: `/fields/${name}`,
+    value
+  }))
+
+export const readWorkItemRequest = (config: AdoConfig, id: number): AdoRequest =>
+  AdoRequest.make({
+    method: "GET",
+    url: `${witBase(config)}/workitems/${id}?$expand=relations&api-version=${config.apiVersion}`
+  })
+
+export const wiqlRequest = (config: AdoConfig, query: string): AdoRequest =>
+  AdoRequest.make({
+    method: "POST",
+    url: `${witBase(config)}/wiql?api-version=${config.apiVersion}`,
+    body: JSON.stringify({ query })
+  })
+
+export const setFieldsRequest = (
+  config: AdoConfig,
+  id: number,
+  fields: Readonly<Record<string, string>>
+): AdoRequest =>
+  AdoRequest.make({
+    method: "PATCH",
+    url: `${witBase(config)}/workitems/${id}?api-version=${config.apiVersion}`,
+    body: JSON.stringify(patchOperations(fields)),
+    contentType: "application/json-patch+json"
+  })
+
+export const createPullRequestRequest = (
+  config: AdoConfig,
+  sourceRef: string,
+  targetRef: string,
+  title: string,
+  description: string
+): AdoRequest =>
+  AdoRequest.make({
+    method: "POST",
+    url: `${gitBase(config)}/pullrequests?api-version=${config.apiVersion}`,
+    body: JSON.stringify({
+      sourceRefName: sourceRef,
+      targetRefName: targetRef,
+      title,
+      description
+    })
+  })
+
+const field = (fields: Readonly<Record<string, JsonValue>>, name: string): string => {
+  const value = fields[name]
+  return typeof value === "string" ? value : ""
+}
+
+export const parseWorkItem = (json: string): Effect.Effect<WorkItem, ProcessError> =>
+  Schema.decodeUnknownEffect(
+    Schema.fromJsonString(
+      Schema.Struct({
+        id: Schema.Int,
+        fields: Schema.Record(Schema.String, Schema.Json)
+      })
+    )
+  )(json).pipe(
+    Effect.map((item) => {
+      const tags = field(item.fields, "System.Tags")
+        .split(";")
+        .map((tag) => tag.trim())
+        .filter((tag) => tag.length > 0)
+      return WorkItem.make({
+        id: item.id,
+        title: field(item.fields, "System.Title"),
+        description: field(item.fields, "System.Description"),
+        acceptanceCriteria: field(item.fields, "Microsoft.VSTS.Common.AcceptanceCriteria"),
+        state: field(item.fields, "System.State"),
+        tags
+      })
+    }),
+    Effect.mapError((error) =>
+      ProcessError.make({
+        message: "ado parse work item",
+        detail: String(error)
+      })
+    )
+  )
+
+export const parseWiqlIds = (json: string): Effect.Effect<ReadonlyArray<number>, ProcessError> =>
+  Schema.decodeUnknownEffect(
+    Schema.fromJsonString(
+      Schema.Struct({
+        workItems: Schema.Array(
+          Schema.Struct({
+            id: Schema.Int
+          })
+        )
+      })
+    )
+  )(json).pipe(
+    Effect.map((result) => result.workItems.map((item) => item.id)),
+    Effect.mapError((error) =>
+      ProcessError.make({
+        message: "ado parse wiql",
+        detail: String(error)
+      })
+    )
+  )
+
+export const parsePullRequest = (
+  config: AdoConfig,
+  json: string
+): Effect.Effect<AdoPullRequest, ProcessError> =>
+  Schema.decodeUnknownEffect(
+    Schema.fromJsonString(
+      Schema.Struct({
+        pullRequestId: Schema.Int,
+        repository: Schema.Struct({
+          id: Schema.String,
+          project: Schema.Struct({
+            id: Schema.String
+          })
+        })
+      })
+    )
+  )(json).pipe(
+    Effect.map((result) =>
+      AdoPullRequest.make({
+        id: result.pullRequestId,
+        repoId: result.repository.id,
+        projectId: result.repository.project.id,
+        webUrl:
+          `${config.orgUrl}/${config.project}/_git/` +
+          `${config.repository}/pullrequest/${result.pullRequestId}`
+      })
+    ),
+    Effect.mapError((error) =>
+      ProcessError.make({
+        message: "ado parse pull request",
+        detail: String(error)
+      })
+    )
+  )
+
+export interface AzureDevOpsToolShape {
+  readonly readWorkItem: (id: number) => Effect.Effect<WorkItem, FlowError>
+  readonly wiqlIds: (query: string) => Effect.Effect<ReadonlyArray<number>, FlowError>
+  readonly setFields: (
+    id: number,
+    fields: Readonly<Record<string, string>>
+  ) => Effect.Effect<void, FlowError>
+  readonly setState: (id: number, state: string) => Effect.Effect<void, FlowError>
+  readonly setAcceptanceCriteria: (id: number, text: string) => Effect.Effect<void, FlowError>
+  readonly createPr: (
+    sourceRef: string,
+    targetRef: string,
+    title: string,
+    body: string
+  ) => Effect.Effect<AdoPullRequest, FlowError>
+}
+
+export const makeAzureDevOpsTool = (
+  config: AdoConfig,
+  http: HttpClientShape,
+  events: FlowEventsShape,
+  timeout: Duration.Duration = Duration.seconds(30)
+): AzureDevOpsToolShape => {
+  const run = (request: AdoRequest): Effect.Effect<string, FlowError> =>
+    http
+      .send(
+        request.method,
+        request.url,
+        request.body,
+        authorizationHeader(config),
+        request.contentType,
+        timeout
+      )
+      .pipe(
+        Effect.mapError((error) =>
+          ProcessError.make({
+            message: `ado ${request.method} ${request.url}`,
+            detail: error.message
+          })
+        )
+      )
+
+  const read = <A>(
+    operation: string,
+    effect: Effect.Effect<A, FlowError>
+  ): Effect.Effect<A, FlowError> => guarded(Capabilities.AdoRead, operation, events, effect)
+  const write = <A>(
+    operation: string,
+    effect: Effect.Effect<A, FlowError>
+  ): Effect.Effect<A, FlowError> => guarded(Capabilities.AdoWrite, operation, events, effect)
+
+  const setFields = (
+    id: number,
+    fields: Readonly<Record<string, string>>
+  ): Effect.Effect<void, FlowError> =>
+    write("ado setFields", run(setFieldsRequest(config, id, fields)).pipe(Effect.asVoid))
+
+  return {
+    readWorkItem: (id) =>
+      read(
+        "ado readWorkItem",
+        run(readWorkItemRequest(config, id)).pipe(Effect.flatMap(parseWorkItem))
+      ),
+    wiqlIds: (query) =>
+      read("ado wiql", run(wiqlRequest(config, query)).pipe(Effect.flatMap(parseWiqlIds))),
+    setFields,
+    setState: (id, state) => setFields(id, { "System.State": state }),
+    setAcceptanceCriteria: (id, text) =>
+      setFields(id, {
+        "Microsoft.VSTS.Common.AcceptanceCriteria": text
+      }),
+    createPr: (sourceRef, targetRef, title, body) =>
+      write(
+        "ado createPr",
+        run(createPullRequestRequest(config, sourceRef, targetRef, title, body)).pipe(
+          Effect.flatMap((json) => parsePullRequest(config, json))
+        )
+      )
+  }
+}