generics - 如何在F#中声明通用异常类型

Question

如何定义如下异常？

exception CustomExn<'TMessage> of 'TMessage list

Answer 1

也许您可以仅继承System.Exception？

type CustomExn<'TMessage> (message:'TMessage list) =
    inherit System.Exception ()  

let test =
    try
        raise (CustomExn["string"] )
    with 
    | :? CustomExn<string> -> "CustomExn of string"
    | :? CustomExn<int> -> "CustomExn of int"
    | _ ->  "Everything else"