--for *)/aracon

infParser :: Parser Infinitive
infParser = string "<pos>verb</pos>" >>
    Infinitive <$> tenseParser
               <*> (string "<mood>inf</mood>" >> voiceParser)
infParser :: Parser Infinitive
infParser = string "<pos>verb</pos>" >>
    Infinitive <$> tenseParser
               <*> (string "<mood>inf</mood>" >> voiceParser)
infParser = string "<pos>verb</pos>" >>
    Infinitive <$> tenseParser
               <*> (string "<mood>inf</mood>" >> voiceParser)