genderParser :: Parser (Maybe Gender)
genderParser = option Nothing
    $ xmlWrapper "gender" 
    $ Just <$> parserMap [
        ("masc", Masculine)
      , ("fem" , Feminine )
      , ("neut",  Neuter  )
    ]
genderParser :: Parser (Maybe Gender)
genderParser = option Nothing
    $ xmlWrapper "gender" 
    $ Just <$> parserMap [
        ("masc", Masculine)
      , ("fem" , Feminine )
      , ("neut",  Neuter  )
    ]
genderParser = option Nothing
    $ xmlWrapper "gender" 
    $ Just <$> parserMap [
        ("masc", Masculine)
      , ("fem" , Feminine )
      , ("neut",  Neuter  )
    ]