colinbull

type UnionTypeConverter() =
    inherit JsonConverter()

    let doRead pos (reader: JsonReader) = 
        reader.Read() |> ignore //pop start obj type label
       // printfn "%sRead %s %A %A" ("".PadLeft(reader.Depth)) pos reader.Value reader.TokenType 

    override x.CanConvert(typ:Type) =
        let result = 
            ((typ.GetInterface(typeof<System.Collections.IEnumerable>.FullName) = null)