{-# LANGUAGE OverloadedRecordUpdate #-}

operatorUpdate f = f{(+) = 1}