Skip to content

Instantly share code, notes, and snippets.

@voidlizard

voidlizard/gist:1002987

Created June 1, 2011 18:46
Show Gist options
  • Save voidlizard/1002987 to your computer and use it in GitHub Desktop.
Save voidlizard/1002987 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
test :: MyServerPartT Response
test = methodM [POST, GET] >> do
decodeBody reqPolicy
auth (Check ["test", "*"])
ok $ toResponse "Okay"
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment