Преобразуйте измененные курсоры обратно в документ

Вот функция filterDocument, которая должна делать то, что вы хотите:

import Text.XML (Document(..), Node(..))
import Text.XML.Cursor (Cursor, fromDocument, node)

filterDocument :: (Cursor -> Cursor) -> Document -> Maybe Document
filterDocument f doc = case node (f (fromDocument doc)) of
    NodeElement root -> Just doc{ documentRoot = root }
    _ -> Nothing

По сути, я просто посмотрел на определение fromDocument и перевернул то, что он делал. Два примечания:

1. Ему нужен оригинал Document, потому что fromDocument отбрасывает пролог и эпилог.
2. Он возвращает результат в виде Maybe, потому что возвращаемый Cursor может указывать на узел, не являющийся элементом (например, комментарий или текстовый узел), но XML-документу нужен элемент в качестве корня.