Skip to content

Instantly share code, notes, and snippets.

@jeremyabbott
Created September 5, 2019 04:25
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 jeremyabbott/f20322520a29559d51d2e8324a2afff3 to your computer and use it in GitHub Desktop.
Save jeremyabbott/f20322520a29559d51d2e8324a2afff3 to your computer and use it in GitHub Desktop.
let imageController id = controller {
show (fun ctx imageId -> (sprintf "Edit handler - id: %s; imageId %s" id imageId ) |> Controller.text ctx)
}
let topRouter = router {
forwardf "/%s/images" imageController
}
let app = application {
pipe_through endpointPipe
use_router topRouter
url "http://0.0.0.0:8085/"
memory_cache
use_gzip
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment