yesod-dsl-0.1.1.19: codegen/class-select-entity.cg

result_~{entityName e} <- select $ from $ \e -> do
    let _ = e ^. ~{entityName e}Id
~{maybeFilter e}
    return e