(\e -> return (Left (show (e :: IOException))))
main = do
- d <- mergeImport queryOp (emptyNmcDom {domImport = Just "d/root"})
- putStrLn $ show d
+ descendNmcDom queryOp [] (seedNmcDom "root") >>= print
+ descendNmcDom queryOp ["_tcp","_smtp"] (seedNmcDom "root") >>= print