degParser :: Parser (Maybe Degree)
degParser = option Nothing
    $ xmlWrapper "degree" 
    $ Just <$> parserMap [
       ("comp" , Comparative )
     , ("superl"  , Superlative)
     ]
degParser :: Parser (Maybe Degree)
degParser = option Nothing
    $ xmlWrapper "degree" 
    $ Just <$> parserMap [
       ("comp" , Comparative )
     , ("superl"  , Superlative)
     ]
degParser = option Nothing
    $ xmlWrapper "degree" 
    $ Just <$> parserMap [
       ("comp" , Comparative )
     , ("superl"  , Superlative)
     ]