12 lines
270 B
Forth
12 lines
270 B
Forth
namespace PureGym.App
|
|
|
|
open System.Runtime.ExceptionServices
|
|
|
|
[<RequireQualifiedAccess>]
|
|
module Exception =
|
|
|
|
let reraiseWithOriginalStackTrace<'a> (e : exn) : 'a =
|
|
let edi = ExceptionDispatchInfo.Capture e
|
|
edi.Throw ()
|
|
failwith "unreachable"
|