Skip to content

Instantly share code, notes, and snippets.

@panesofglass

panesofglass/frank-routing-explicit-params.fs

Created February 24, 2011 23:14
Show Gist options

  • Select an option

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

Select an option

Learn more about clone URLs
Save panesofglass/843096 to your computer and use it in GitHub Desktop.
Download ZIP
Options for Frank routing
Raw
frank-routing-explicit-params.fs
let myApp = function
| GET "/" _ -> render "Hello world!"
| POST "/order" p -> frank {
createThingFromParams p
do! redirectTo "/" }
Raw
frank-routing-list.fs
let myApp = App [
get "/" (render "Hello world!")
post "/order" (frank {
let! p = getParams
createThingFromParams p
do! redirectTo "/" })
]
Raw
frank-routing-pattern-matching.fs
let myApp = function
| GET "/" -> render "Hello world!"
| POST "/order" -> frank {
let! p = getParams
createThingFromParams p
do! redirectTo "/" }
@panesofglass
Copy link
Copy Markdown
Author

panesofglass commented Feb 24, 2011

Added GET("/", _) -> ...at one point, but I think the active pattern is correct as is for the explicit param version.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment