lalph 0.1.78 → 0.1.80

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "lalph",
   "type": "module",
-  "version": "0.1.78",
+  "version": "0.1.80",
   "publishConfig": {
     "access": "public"
   },

package/src/IssueSources.ts

@@ -74,7 +74,7 @@ export class CurrentIssueSource extends ServiceMap.Service<
         source.layer,
         yield* Layer.CurrentMemoMap,
         yield* Effect.scope,
-      )
+      ).pipe(Effect.withSpan("CurrentIssueSource.build"))
       return ServiceMap.add(services, CurrentIssueSource, source)
     }),
   )

package/src/Prd.ts

@@ -136,65 +136,67 @@ export class Prd extends ServiceMap.Service<
 
     const updatedIssues = new Map<string, PrdIssue>()
 
-    const sync = syncSemaphore.withPermit(
-      Effect.gen(function* () {
-        const updated = yield* readPrd
-        const anyChanges =
-          updated.length !== current.length ||
-          updated.some((u, i) => u.isChangedComparedTo(current[i]!))
-        if (!anyChanges) {
-          return
-        }
+    const sync = Effect.gen(function* () {
+      const updated = yield* readPrd
+      const anyChanges =
+        updated.length !== current.length ||
+        updated.some((u, i) => u.isChangedComparedTo(current[i]!))
+      if (!anyChanges) {
+        return
+      }
 
-        const githubPrs = new Map<string, number>()
-        const toRemove = new Set(
-          current.filter((i) => i.id !== null).map((i) => i.id!),
-        )
+      const githubPrs = new Map<string, number>()
+      const toRemove = new Set(
+        current.filter((i) => i.id !== null).map((i) => i.id!),
+      )
 
-        for (const issue of updated) {
-          toRemove.delete(issue.id!)
+      for (const issue of updated) {
+        toRemove.delete(issue.id!)
 
-          if (issue.id === null) {
-            yield* source.createIssue(issue)
-            continue
-          }
+        if (issue.id === null) {
+          yield* source.createIssue(issue)
+          continue
+        }
 
-          if (issue.githubPrNumber) {
-            githubPrs.set(issue.id, issue.githubPrNumber)
-          }
+        if (issue.githubPrNumber) {
+          githubPrs.set(issue.id, issue.githubPrNumber)
+        }
 
-          const existing = current.find((i) => i.id === issue.id)
-          if (!existing || !existing.isChangedComparedTo(issue)) continue
+        const existing = current.find((i) => i.id === issue.id)
+        if (!existing || !existing.isChangedComparedTo(issue)) continue
 
-          yield* source.updateIssue({
-            issueId: issue.id,
-            title: issue.title,
-            description: issue.description,
-            state: issue.state,
-            blockedBy: issue.blockedBy,
-          })
+        yield* source.updateIssue({
+          issueId: issue.id,
+          title: issue.title,
+          description: issue.description,
+          state: issue.state,
+          blockedBy: issue.blockedBy,
+        })
 
-          updatedIssues.set(issue.id, issue)
-        }
+        updatedIssues.set(issue.id, issue)
+      }
 
-        yield* Effect.forEach(
-          toRemove,
-          (issueId) => source.cancelIssue(issueId),
-          { concurrency: "unbounded" },
-        )
+      yield* Effect.forEach(
+        toRemove,
+        (issueId) => source.cancelIssue(issueId),
+        { concurrency: "unbounded" },
+      )
 
-        current = yield* source.issues
-        yield* fs.writeFileString(
-          prdFile,
-          PrdIssue.arrayToYaml(
-            current.map((issue) => {
-              const prNumber = githubPrs.get(issue.id!)
-              if (!prNumber) return issue
-              return new PrdIssue({ ...issue, githubPrNumber: prNumber })
-            }),
-          ),
-        )
-      }).pipe(Effect.uninterruptible),
+      current = yield* source.issues
+      yield* fs.writeFileString(
+        prdFile,
+        PrdIssue.arrayToYaml(
+          current.map((issue) => {
+            const prNumber = githubPrs.get(issue.id!)
+            if (!prNumber) return issue
+            return new PrdIssue({ ...issue, githubPrNumber: prNumber })
+          }),
+        ),
+      )
+    }).pipe(
+      Effect.uninterruptible,
+      syncSemaphore.withPermit,
+      Effect.withSpan("Prd.sync"),
     )
 
     const updateSyncHandle = yield* FiberHandle.make()
@@ -255,7 +257,7 @@ export class Prd extends ServiceMap.Service<
       flagUnmergable,
       findById,
     }
-  }),
+  }).pipe(Effect.withSpan("Prd.build")),
 }) {
   static layerNoWorktree = Layer.effect(this, this.make)
   static layer = this.layerNoWorktree.pipe(Layer.provideMerge(Worktree.layer))

package/src/Tracing.ts

@@ -0,0 +1,64 @@
+import {
+  Cause,
+  Duration,
+  Effect,
+  Fiber,
+  Layer,
+  Logger,
+  LogLevel,
+  Tracer,
+} from "effect"
+import { CurrentLoggers } from "effect/Logger"
+import { MinimumLogLevel } from "effect/References"
+
+export const TracingLayer = Layer.unwrap(
+  Effect.gen(function* () {
+    const logLevel = yield* MinimumLogLevel
+    if (LogLevel.isLessThan("Trace", logLevel)) {
+      return Layer.empty
+    }
+    return TracerLogger
+  }),
+)
+
+const TracerLogger = Effect.gen(function* () {
+  const loggers = yield* CurrentLoggers
+  const tracer = yield* Tracer.Tracer
+  const fiber = Fiber.getCurrent()!
+
+  const log = (message: string, time: bigint) => {
+    const date = new Date(Number(time / BigInt(1e6)))
+    const options: Logger.Logger.Options<string> = {
+      message,
+      fiber,
+      date,
+      logLevel: "Trace",
+      cause: Cause.empty,
+    }
+    loggers.forEach((logger) => {
+      logger.log(options)
+    })
+  }
+
+  return Tracer.make({
+    span(name, parent, annotations, links, startTime, kind, options) {
+      const span = tracer.span(
+        name,
+        parent,
+        annotations,
+        links,
+        startTime,
+        kind,
+        options,
+      )
+      log(`${name}: started`, startTime)
+      const oldEnd = span.end
+      span.end = (endTime, cause) => {
+        const duration = Duration.nanos(endTime - span.status.startTime)
+        log(`${name}: completed. Took ${Duration.format(duration)}`, endTime)
+        return oldEnd.call(span, endTime, cause)
+      }
+      return span
+    },
+  })
+}).pipe(Layer.effect(Tracer.Tracer))

package/src/cli.ts

@@ -14,6 +14,8 @@ import { commandAgent } from "./commands/agent.ts"
 import PackageJson from "../package.json" with { type: "json" }
 import { resetCurrentIssueSource } from "./IssueSources.ts"
 import { GithubCli } from "./Github/Cli.ts"
+import { TracingLayer } from "./Tracing.ts"
+import { MinimumLogLevel } from "effect/References"
 
 commandRoot.pipe(
   Command.withSubcommands([
@@ -32,6 +34,10 @@ commandRoot.pipe(
       }
     }),
   ),
+  Command.provide(TracingLayer),
+  Command.provide(({ verbose }) =>
+    verbose ? Layer.succeed(MinimumLogLevel, "All") : Layer.empty,
+  ),
   (_) =>
     Command.run(_, {
       version: PackageJson.version,

package/src/commands/root.ts

@@ -90,6 +90,11 @@ const specsDirectory = Flag.directory("specs").pipe(
   Flag.withDefault(".specs"),
 )
 
+const verbose = Flag.boolean("verbose").pipe(
+  Flag.withDescription("Enable verbose logging"),
+  Flag.withAlias("v"),
+)
+
 // handled in cli.ts
 const reset = Flag.boolean("reset").pipe(
   Flag.withDescription("Reset the current issue source before running"),
@@ -104,6 +109,7 @@ export const commandRoot = Command.make("lalph", {
   stallMinutes,
   reset,
   specsDirectory,
+  verbose,
 }).pipe(
   Command.withHandler(
     Effect.fnUntraced(function* ({
@@ -124,7 +130,10 @@ export const commandRoot = Command.make("lalph", {
       const semaphore = Effect.makeSemaphoreUnsafe(runConcurrency)
       const fibers = yield* FiberSet.make()
 
-      yield* resetInProgress.pipe(Effect.provide(source))
+      yield* resetInProgress.pipe(
+        Effect.provide(source),
+        Effect.withSpan("Main.resetInProgress"),
+      )
 
       yield* Effect.log(
         `Executing ${iterationsDisplay} iteration(s) with concurrency ${runConcurrency}`,