DuckTyping in F#

duck.fs

type DeliveryResult =
    | Success of SuccessfulDelivery
    | Bounce of Bounce

let TopicTest = Regex(@"Some relevant regex here", RegexOptions.Compiled)


let inline TryExtractTopic record =
    let envId = ( ^a : (member EnvId : string) record)
    match TopicTest.IsMatch(envId) with
    | false -> None
    | true ->
        Some <| TopicTest.Match(envId).Groups.["topic"].Value

let inline TryPublish<'a when 'a : (member EnvId : string)> (record : 'a) =
    match TryExtractTopic record with
    | Some topic ->
        use chan = bus.OpenPublishChannel()
        chan.Publish<'a>(record, fun x -> x.WithTopic(topic) |> ignore)
    | None -> ()


let Publish record =
    match record with
    | Bounce b ->
        TryPublish b
    | Success s ->
        TryPublish s