Skip to content

Instantly share code, notes, and snippets.

@devyn
Created August 27, 2011 10:39
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 devyn/1175234 to your computer and use it in GitHub Desktop.
Save devyn/1175234 to your computer and use it in GitHub Desktop.
I win!
*Data.SelfML> f <- readFile "../../README"
*Data.SelfML> let Right r = transformSML (const (Terminal "This was a regex. It's gone now.")) "urls > * > #0" f in putStrLn r
(fruit Apple Banana Orange)
(food
(fruit Apple Banana Orange)
(veggies Potato Carrot Onion))
(cakes [Chocolate Cake] [Carrot Cake] [Christmas Cake])
(regexen `[a-z\[0-9]+` [[a-z`0-9]])
(booleans
(true)
(false))
(booleans true false)
(parent
(child1 foo bar)
(child2 foo bar)
(child3 foo bar))
(urls
([This was a regex. It's gone now.] mysite.polls.views.index)
([This was a regex. It's gone now.] mysite.polls.views.detail)
([This was a regex. It's gone now.] mysite.polls.views.results)
([This was a regex. It's gone now.] mysite.polls.views.vote))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment