Fix timeout silently succeeding in waitForHttpReadyEffect

Effect.timeoutOption returns Option.None on timeout (on the success channel),
not a TimeoutError on the error channel. The previous code discarded the Option
result, so a timeout was treated as success. Now we explicitly match the Option:
None maps to BackendTimeoutError, Some maps to Effect.void. The now-unreachable
TimeoutError catchTag is removed.

Author: cursoragent

apps/desktop/src/backendReadiness.ts

@@ -3,6 +3,7 @@ import * as Cause from "effect/Cause";
 import * as Data from "effect/Data";
 import * as Duration from "effect/Duration";
 import * as Effect from "effect/Effect";
+import * as Option from "effect/Option";
 import * as Predicate from "effect/Predicate";
 import * as Schedule from "effect/Schedule";
 import { HttpClient } from "effect/unstable/http";
@@ -60,9 +61,13 @@ export const waitForHttpReadyEffect = Effect.fn("waitForHttpReadyEffect")(functi
   yield* client.get(requestUrl).pipe(
     Effect.asVoid,
     Effect.timeoutOption(timeout),
+    Effect.flatMap(
+      Option.match({
+        onNone: () => Effect.fail(new BackendTimeoutError({ url: baseUrl })),
+        onSome: () => Effect.void,
+      }),
+    ),
     Effect.catchTags({
-      TimeoutError: () => Effect.fail(new BackendTimeoutError({ url: baseUrl })),
-      // Maybe map this to different error kind?
       HttpClientError: () => Effect.fail(new BackendTimeoutError({ url: baseUrl })),
     }),
   );