moodParser :: Parser (Maybe Mood)
moodParser = option Nothing
  $ xmlWrapper "mood" 
  $ Just <$> parserMap [
       ("ind"     , Indicative )
     , ("imperat" , Imperative )
     , ("subj"    , Subjunctive)
     , ("opt"     , Optative   )
     ]
moodParser :: Parser (Maybe Mood)
moodParser = option Nothing
  $ xmlWrapper "mood" 
  $ Just <$> parserMap [
       ("ind"     , Indicative )
     , ("imperat" , Imperative )
     , ("subj"    , Subjunctive)
     , ("opt"     , Optative   )
     ]
moodParser = option Nothing
  $ xmlWrapper "mood" 
  $ Just <$> parserMap [
       ("ind"     , Indicative )
     , ("imperat" , Imperative )
     , ("subj"    , Subjunctive)
     , ("opt"     , Optative   )
     ]