voiceParser :: Parser (Maybe Voice)
voiceParser = option Nothing
  $ xmlWrapper "voice" 
  $ Just <$> parserMap [
       ("act" , Active )
     , ("pass", Passive)
     , ("mid" , Middle )
     , ("mp"  , MidPass)
     ]
voiceParser :: Parser (Maybe Voice)
voiceParser = option Nothing
  $ xmlWrapper "voice" 
  $ Just <$> parserMap [
       ("act" , Active )
     , ("pass", Passive)
     , ("mid" , Middle )
     , ("mp"  , MidPass)
     ]
voiceParser = option Nothing
  $ xmlWrapper "voice" 
  $ Just <$> parserMap [
       ("act" , Active )
     , ("pass", Passive)
     , ("mid" , Middle )
     , ("mp"  , MidPass)
     ]