pc (rule : TypedProducerCase<'t>) =
let rule1 = fun (t : Type, o : obj) ->
if typeof<'t>.IsAssignableFrom(t) then
(fun o -> rule(o :?> 't)) |> Some
else
None
addRuleUnsafe pc rule1
Код надо сразу целиком выкладывать, здесь нет телепатов.
Обсуждают сегодня