FSharp and DotLiquid

annoying

open System.Linq

let isSimpleType (typ:Type) =
     typ.IsPrimitive || typ.IsEnum || primitiveTypes.Contains typ

open System.Collections
open System.Reflection

let rec private proxy(target : obj) = 
    let maybeTarget = Some target

    let result = match maybeTarget with
    | Some t -> 
        let flags = BindingFlags.Instance ||| BindingFlags.NonPublic ||| BindingFlags.Public
        let properties = target.GetType().GetProperties(flags)

        properties
        |> Seq.map(fun property ->
                    match isSimpleType property.PropertyType with
                    | true -> property.Name, property.GetValue(target)
                    | false -> property.Name, proxy(property.GetValue(target)) :> obj)
        |> dict
    | None -> Seq.empty |> dict

    Hash.FromDictionary(result)

let render(view : View) = 
    let template = getTemplate(view.route)

    match view.model with 
    | null -> template.Render()
    | _ -> 
        let liquidModel = proxy view
        template.Render liquidModel