Do not fixate on NonFatal for catchException

src/main/scala/dotty/result/package.scala

@@ -389,16 +389,17 @@ object Result:
       case Ok(value)  => scala.util.Success(value)
       case Err(error) => scala.util.Failure(error)
 
-  /** Evaluates `body`, catching [[scala.util.control.NonFatal NonFatal]]
-    * exceptions as errors.
+  /** Evaluates `body`, catching exceptions accepted by `catcher` as errors.
     * @see
     *   [[scala.util.Try Try.apply]] for a similar method returning
-    *   [[scala.util.Try]].
+    *   [[scala.util.Try]], but works on all [[NonFatal]] exceptions.
     * @group construct
     */
-  def catchException[T](body: => T): Result[T, Throwable] =
+  def catchException[T, E](catcher: PartialFunction[Throwable, E])(
+      body: => T
+  ): Result[T, E] =
     try Ok(body)
-    catch case NonFatal(ex) => Err(ex)
+    catch case ex => Err(catcher.applyOrElse(ex, _ => throw ex))
 
   /** Right unit for chains of [[cons]]. An [[Ok]] with an [[EmptyTuple]] value.
     * @group construct

src/test/scala/result/Result.scala

@@ -130,12 +130,19 @@ class ResultTest extends munit.FunSuite {
   }
 
   test("constructors") {
-    assertEquals(Result.catchException(1), Ok(1))
+    assertEquals(Result.catchException({ case ex => ex })(1), Ok(1))
     val exc = new Exception("bleh")
-    assertEquals(Result.catchException(throw exc), Err(exc))
+    assertEquals(
+      Result.catchException({ case ex: Exception => ex })(throw exc),
+      Err(exc)
+    )
 
     case object NoLog extends Exception("no log")
 
+    assert(
+      Try { Result.catchException({ case NoLog => 1 })(throw exc) }.isFailure
+    )
+
     enum LogErr:
       case NL(inner: NoLog.type)