@@ -661,14 +661,14 @@ elemToParPart ns element
661 | isElem ns "w" "r" element =
661 | isElem ns "w" "r" element =
662 elemToRun ns element >>= (\r -> return $ PlainRun r)
662 elemToRun ns element >>= (\r -> return $ PlainRun r)
663elemToParPart ns element
663elemToParPart ns element
664− | isElem ns "w" "ins" element
664+ | isElem ns "w" "ins" element || isElem ns "w" "moveTo" element
665 , Just cId <- findAttr (elemName ns "w" "id") element
665 , Just cId <- findAttr (elemName ns "w" "id") element
666 , Just cAuthor <- findAttr (elemName ns "w" "author") element
666 , Just cAuthor <- findAttr (elemName ns "w" "author") element
667 , Just cDate <- findAttr (elemName ns "w" "date") element = do
667 , Just cDate <- findAttr (elemName ns "w" "date") element = do
668 runs <- mapD (elemToRun ns) (elChildren element)
668 runs <- mapD (elemToRun ns) (elChildren element)
669 return $ Insertion cId cAuthor cDate runs
669 return $ Insertion cId cAuthor cDate runs
670elemToParPart ns element
670elemToParPart ns element
671− | isElem ns "w" "del" element
671+ | isElem ns "w" "del" element || isElem ns "w" "moveFrom" element
672 , Just cId <- findAttr (elemName ns "w" "id") element
672 , Just cId <- findAttr (elemName ns "w" "id") element
673 , Just cAuthor <- findAttr (elemName ns "w" "author") element
673 , Just cAuthor <- findAttr (elemName ns "w" "author") element
674 , Just cDate <- findAttr (elemName ns "w" "date") element = do
674 , Just cDate <- findAttr (elemName ns "w" "date") element = do