personParser :: Parser (Maybe Person)
personParser = option Nothing
  $ xmlWrapper "person" 
  $ Just <$> parserMap [
       ("1st" , First)
     , ("2nd" , Second)
     , ("3rd" , Third)
     ]
personParser :: Parser (Maybe Person)
personParser = option Nothing
  $ xmlWrapper "person" 
  $ Just <$> parserMap [
       ("1st" , First)
     , ("2nd" , Second)
     , ("3rd" , Third)
     ]
personParser = option Nothing
  $ xmlWrapper "person" 
  $ Just <$> parserMap [
       ("1st" , First)
     , ("2nd" , Second)
     , ("3rd" , Third)
     ]