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}