- xpWrap (\(u,v,w,x,y,z) -> Message u v w x y z,
- \m -> (messageXml_file_id m,
- messageHeading m,
- messageCategory m,
- messageSport m,
- messageListings m,
- messageTime_stamp m)) $
+ xpWrap (uncurry6 InjuriesMessage,
+ \m -> (injuriesMessageXml_file_id m,
+ injuriesMessageHeading m,
+ injuriesMessageCategory m,
+ injuriesMessageSport m,
+ injuriesMessageListings m,
+ injuriesMessageTime_stamp m)) $