Распарсить большой XML на хаскеле

public class Test {
    public static void main(String[] args) throws Exception {
        DocumentBuilderFactory documentBuilderFactory = DocumentBuilderFactory.newInstance();
        DocumentBuilder documentBuilder = documentBuilderFactory.newDocumentBuilder();
        Document document = documentBuilder.parse(new File("/Users/vbezhenar/tmp/test-primary.xml"));

        long start = System.currentTimeMillis();
        processElemMetadata(document.getDocumentElement());
        long end = System.currentTimeMillis();
        System.out.println(end - start);
    }

    private static void processElemMetadata(Element elemMetadata) {
        NodeList nodesMetadataChildren = elemMetadata.getChildNodes();
        for (int metadataChildIndex = 0; metadataChildIndex < nodesMetadataChildren.getLength(); metadataChildIndex++) {
            Node nodeMetadataChild = nodesMetadataChildren.item(metadataChildIndex);
            if (nodeMetadataChild.getNodeType() != Node.ELEMENT_NODE) {
                continue;
            }
            Element elemMetadataChild = (Element) nodeMetadataChild;
            if (!elemMetadataChild.getTagName().equals("package")) {
                continue;
            }
            processElemPackage(elemMetadataChild);
        }
    }

    private static void processElemPackage(Element elemPackage) {
        NodeList nodesPackageChildren = elemPackage.getChildNodes();
        for (int packageChildIndex = 0; packageChildIndex < nodesPackageChildren.getLength(); packageChildIndex++) {
            Node nodePackageChild = nodesPackageChildren.item(packageChildIndex);
            if (nodePackageChild.getNodeType() != Node.ELEMENT_NODE) {
                continue;
            }
            Element elemPackageChild = (Element) nodePackageChild;
            if (!elemPackageChild.getTagName().equals("name")) {
                continue;
            }
            processElemName(elemPackageChild);
        }
    }

    private static void processElemName(Element elemName) {
        System.out.println(elemName.getTextContent());
    }
}

data S = S1 | S2 | S3

main = do
    dat_ <- LBS.readFile "test-primary.xml"
    void $ foldlM go S1 (parseTags dat_)
    where
        go S1 (TagOpen "package" _) = return S2
        go S2 (TagOpen "name"    _) = return S3
        go S2 (TagClose "package")  = return S1
        go S3 (TagText  t)          = LBS.putStrLn t >> return S2
        go s  _                     = return s