@@ -455,6 +455,8 @@ elemToCell ns element
455455elemToCell _ _ = Nothing
456456
457457data ParPart = PlainRun Run
458+ | Insertion ChangeId Author ChangeDate [Run]
459+ | Deletion ChangeId Author ChangeDate [Run]
458460 | BookMark BookMarkId Anchor
459461 | InternalHyperLink Anchor [Run]
460462 | ExternalHyperLink RelId [Run]
@@ -604,4 +606,6 @@ type Target = String
604606type Anchor = String
605607type BookMarkId = String
606608type RelId = String
607−
609+type ChangeId = String
610+type Author = String
611+type ChangeDate = String