From 2cc3c2a55f2756197f785b2554c52c2006c29273 Mon Sep 17 00:00:00 2001
From: brekk <brekk@brekkbockrath.com>
Date: Sun, 12 May 2024 09:46:32 -1000
Subject: [PATCH] refactor: give IOError an escape hatch

---
 prelude/__internal__/IO.mad          | 2 ++
 prelude/__internal__/__IOError__.mad | 1 +
 2 files changed, 3 insertions(+)

diff --git a/prelude/__internal__/IO.mad b/prelude/__internal__/IO.mad
index a3d7e4e47..69b6e54d4 100644
--- a/prelude/__internal__/IO.mad
+++ b/prelude/__internal__/IO.mad
@@ -13,6 +13,7 @@ import Error from "__IOError__"
 import {
   AddressAlreadyInUse,
   ArgumentListToLong,
+  GeneralError,
   PermissionDenied,
   UnknownError,
 } from "__IOError__"
@@ -24,6 +25,7 @@ export AddressAlreadyInUse
 export ArgumentListToLong
 export PermissionDenied
 export UnknownError
+export GeneralError
 
 prettyCase :: (String -> String) -> String -> String
 prettyCase = (color, str) => pipe(
diff --git a/prelude/__internal__/__IOError__.mad b/prelude/__internal__/__IOError__.mad
index a12b0694b..65a2c5815 100644
--- a/prelude/__internal__/__IOError__.mad
+++ b/prelude/__internal__/__IOError__.mad
@@ -3,6 +3,7 @@ export type Error
   | ArgumentListToLong
   | PermissionDenied
   | UnknownError
+  | GeneralError(String)
 
 fromLibuvError :: Integer -> Error
 export fromLibuvError = where {