Add coercion to normal error

purescript-node · Jul 20, 2023 · c1b8e37 · c1b8e37
1 parent f78d827
commit c1b8e37
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/Node/Errors/SystemError.purs b/src/Node/Errors/SystemError.purs
@@ -1,5 +1,6 @@
 module Node.Errors.SystemError
   ( SystemError
+  , toError
   , address
   , code
   , dest
@@ -17,11 +18,15 @@ import Prelude
 import Data.Function.Uncurried (Fn2, runFn2)
 import Data.Maybe (Maybe)
 import Data.Nullable (Nullable, toMaybe)
+import Effect.Exception (Error)
 import Foreign (Foreign)
 import Unsafe.Coerce (unsafeCoerce)
 
 foreign import data SystemError :: Type
 
+toError :: SystemError -> Error
+toError = unsafeCoerce
+
 instance Show SystemError where
   show = unsafeCoerce