如何在Haskell中重新实现这个Python XML解析函数？

I recently wrote the following Python function which will take a Google Picasa contacts.xml file and output a dictionary with ID and Name.I recently wrote the following Python function