Haskell -如何将XML响应解析为Haskell数据类型？

import Text.XML
import Text.XML.Cursor
import Text.XML.Cursor.Generic
import Text.XML.Cursor.Generic.XPath

data Person = Person
  { name :: String
  , age :: Int
  , email :: String
  } deriving (Show)

parseXMLResponse :: String -> Maybe Person
parseXMLResponse xml = do
  doc <- parseText def xml
  let cursor = fromDocument doc
  name <- headMay $ cursor $/ laxElement "person" &/ laxElement "name" &/ content
  age <- headMay $ cursor $/ laxElement "person" &/ laxElement "age" &/ content
  email <- headMay $ cursor $/ laxElement "person" &/ laxElement "email" &/ content
  return $ Person name (read age) email

main :: IO ()
main = do
  let xmlResponse = "<person><name>John Doe</name><age>30</age><email>john.doe@example.com</email></person>"
  case parseXMLResponse xmlResponse of
    Just person -> putStrLn $ "Parsed person: " ++ show person
    Nothing -> putStrLn "Failed to parse XML response"