dialectParser :: Parser [Dialect]
dialectParser = xmlWrapper "dialect" $
    T.words <$> takeTill (=='<')
dialectParser :: Parser [Dialect]
dialectParser = xmlWrapper "dialect" $
    T.words <$> takeTill (=='<')
dialectParser = xmlWrapper "dialect" $
    T.words <$> takeTill (=='<')