Skip to content

Instantly share code, notes, and snippets.

@dminuoso

dminuoso/f.hs Secret

Last active November 21, 2020 15:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save dminuoso/6fcd4ffac6afc5a7a4ec9f39052dd986 to your computer and use it in GitHub Desktop.
Save dminuoso/6fcd4ffac6afc5a7a4ec9f39052dd986 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
f.hs
p :: Parser Text
p = do
char '<'
eqs <- takeWhile1P Nothing (== '=')
char '>'
pure ("<" <> eqs <> ">")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment