File tree 1 file changed +13
-14
lines changed
1 file changed +13
-14
lines changed Original file line number Diff line number Diff line change @@ -73,20 +73,19 @@ val handle : (t -> Dream.request -> Dream.response Lwt.t) -> Dream.handler
73
73
74
74
is generated for each route type. Such function can be used to define a ` Dream.handler ` :
75
75
``` ocaml
76
- let return = Ppx_deriving_router_runtime.Return.return
77
-
78
- let pages_handle = Pages.handle (fun route _req ->
79
- match route with
80
- | Home -> return (Dream.response "Home page!")
81
- | About -> return (Dream.response "About page!")
82
- | Hello {name; repeat} ->
83
- let name =
84
- match repeat with
85
- | Some repeat ->
86
- List.init repeat (fun _ -> name) |> String.concat ", "
87
- | None -> name
88
- in
89
- return (Dream.response (Printf.sprintf "Hello, %s" name)))
76
+ let pages_handle =
77
+ Pages.handle (fun route _req ->
78
+ match route with
79
+ | Home -> Dream.respond "Home page!"
80
+ | About -> Dream.respond "About page!"
81
+ | Hello { name; repeat } ->
82
+ let name =
83
+ match repeat with
84
+ | Some repeat ->
85
+ List.init repeat (fun _ -> name) |> String.concat ", "
86
+ | None -> name
87
+ in
88
+ Dream.respond (Printf.sprintf "Hello, %s" name))
90
89
```
91
90
92
91
## Using the handler in a Dream app
You can’t perform that action at this time.
0 commit comments