> updateData1 d = modify (\r -> r {data1 = d})

But there is, sadly, no eta-reduced version of record update to make the "\r -> r ..." boilerplate go away; recognition of the syntax requires an expression before the braces.  (Consider the ambiguity of the eta-reduced expression "modify {data1 = d}".)  Also, and much more annoyingly, "data1" must be constant.

If you can decipher the documentation, there are several alternative record packages on Hackage based on functional lenses.  Also there are packages which use Template Haskell to automate the above.