@@ -455,6 +455,8 @@ elemToCell ns element
455elemToCell _ _ = Nothing
455elemToCell _ _ = Nothing
457data ParPart = PlainRun Run
457data ParPart = PlainRun Run
458+ | Insertion ChangeId Author ChangeDate [Run]
459+ | Deletion ChangeId Author ChangeDate [Run]
458 | BookMark BookMarkId Anchor
460 | BookMark BookMarkId Anchor
459 | InternalHyperLink Anchor [Run]
461 | InternalHyperLink Anchor [Run]
460 | ExternalHyperLink RelId [Run]
462 | ExternalHyperLink RelId [Run]
@@ -604,4 +606,6 @@ type Target = String
604type Anchor = String
606type Anchor = String
605type BookMarkId = String
607type BookMarkId = String
606type RelId = String
608type RelId = String
607−
609+type ChangeId = String
611+type ChangeDate = String