oModifyBody :: (Body -> Body) -> Object -> Object
oModifyBody f o = o { oBody = f (oBody o) }
oModifyBody :: (Body -> Body) -> Object -> Object
oModifyBody f o = o { oBody = f (oBody o) }
oModifyBody f o = o { oBody = f (oBody o) }