Files
gitea-repo-config/Gitea.Declarative.Lib/Exception.fs
Patrick Stevens 3a975d7f28 Add tests (#60)
2023-08-06 21:23:21 +01:00

11 lines
284 B
Forth

namespace Gitea.Declarative
open System.Runtime.ExceptionServices
[<RequireQualifiedAccess>]
module internal Exception =
let reraiseWithOriginalStackTrace<'a> (e : exn) : 'a =
let edi = ExceptionDispatchInfo.Capture e
edi.Throw ()
failwith "unreachable"