yesod-dsl-0.1: codegen/read-input-object-fields.cg

    e~{show pId} <- do
~{indent 8 $ prepareFields e fields}
~{maybeSelectExisting e fields fr}
        return $ ~{entityName e} {
~{indent 16 $ mapFields e fields} 
            }