Skip to content

Instantly share code, notes, and snippets.

@danidiaz

danidiaz/gist:6495025

Created September 9, 2013 12:39
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save danidiaz/6495025 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save danidiaz/6495025 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
parseKeywords = manyTill' (takeTill isEndOfLine *> endOfLine)
(_string "wt.contentGroup" *> _char '=' *> _char '{')
*> sepBy' (_skipMany1 digit *> _char ':' *> _parseQuot)
(_char ',')
where _string x = skipSpace *> string x
_char x = skipSpace *> char x
_skipMany1 x = skipSpace *> skipMany1 x
_parseQuot = _char '"' *> A.takeWhile isAlpha <* char '"'
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment