ParsePlist.hs

parseXmark :: Parser L.Text
parseXmark = (L.strip . L.pack)  <$>
             (char '<' *> spaces
              *> (many $ noneOf ">") <*
             char '>' <* spaces)


parseLit :: T.Text -> Parser Xexpr
parseLit endMark = (Lit . T.strip . T.pack) <$> (spaces *>
                   (manyTill anyChar
                             (try (string ("</" ++ T.unpack endMark ++ ">")))))


parseSubs :: T.Text -> Parser Xexpr
parseSubs endMark = Subs <$>
                    manyTill (parseXexpr <* spaces)
                             (try (string ("</" ++ T.unpack endMark ++ ">")))