numParser :: Parser (Maybe NumberGr)
numParser = option Nothing 
    $ xmlWrapper "number" 
    $ Just <$> parserMap [
        ("sg"  , Singular)
      , ("dual", Dual    )
      , ("pl"  , Plural  )
    ]
numParser :: Parser (Maybe NumberGr)
numParser = option Nothing 
    $ xmlWrapper "number" 
    $ Just <$> parserMap [
        ("sg"  , Singular)
      , ("dual", Dual    )
      , ("pl"  , Plural  )
    ]
numParser = option Nothing 
    $ xmlWrapper "number" 
    $ Just <$> parserMap [
        ("sg"  , Singular)
      , ("dual", Dual    )
      , ("pl"  , Plural  )
    ]