caseParser :: Parser (Maybe Case)
caseParser = option Nothing
  $ xmlWrapper "case" 
  $ Just <$> parserMap [
        ("nom" , Nominative)
      , ("acc" , Accusative)
      , ("gen" , Genitive  )
      , ("voc" , Vocative  )
      , ("dat" , Dative    )
    ]
caseParser :: Parser (Maybe Case)
caseParser = option Nothing
  $ xmlWrapper "case" 
  $ Just <$> parserMap [
        ("nom" , Nominative)
      , ("acc" , Accusative)
      , ("gen" , Genitive  )
      , ("voc" , Vocative  )
      , ("dat" , Dative    )
    ]
caseParser = option Nothing
  $ xmlWrapper "case" 
  $ Just <$> parserMap [
        ("nom" , Nominative)
      , ("acc" , Accusative)
      , ("gen" , Genitive  )
      , ("voc" , Vocative  )
      , ("dat" , Dative    )
    ]