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