Skip to content

Instantly share code, notes, and snippets.

@moonmaster9000

moonmaster9000/bird_bad_word.hs

Created August 1, 2010 12:22
Show Gist options
  • Save moonmaster9000/503303 to your computer and use it in GitHub Desktop.
Save moonmaster9000/503303 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
bird_bad_word.hs
get ["echo", word]
| length word == 4 = body "4 letter word" >> status 403
| otherwise = body word
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment