extractInfo :: Data d => d -> ValueInfo
extractInfo value =
    let
        cons = toConstr value
        fields = constrFields cons
        values = gmapQ render value
    in
        ValueInfo (show cons) fields values
extractInfo :: Data d => d -> ValueInfo
extractInfo value =
    let
        cons = toConstr value
        fields = constrFields cons
        values = gmapQ render value
    in
        ValueInfo (show cons) fields values
extractInfo value =
    let
        cons = toConstr value
        fields = constrFields cons
        values = gmapQ render value
    in
        ValueInfo (show cons) fields values