Text.XML.Cursor 위치를 얻는 방법?

Question

show 커서의 경로가 인간 친화적 인 형태로 표시 될 수 있습니까 (예 : root.element.childA)?

Answer 1

ancestor은 현재 커서의 모든 조상 목록을 제공하는 Axis입니다. 커서의 접근자인 node을 사용하여 NodeElement 생성자에서 show으로 문자열로 변환하고 intersperse으로 편리한 점 표기법으로 모두 패킹하여 Node 및 패턴 일치를 다시 얻을 수 있습니다.

import Data.List (intersperse) 
import Text.XML (Node(elementName)) 
import Text.XML.Cursor (Cursor(node), ancestor) 

prettyCursor :: Cursor node -> String 
prettyCursor = intersperse "." . filter (not.null) . map (elemname.node) . ancestor 
    where 
    elemname (NodeElement Element{ elementName = e }) = show e 
    elemname _ = ""