yesod-dsl-0.2.0: codegen/class-update-entity.cg

update $ \e -> do
    let _ = e ^. ~{entityName e}Id
    set e $ map (\u -> case u of
~{indent 12 $ concatMap (updateEntityField e) $ classFields c}
        ) updates
~{maybeFilter e}