diff options
Diffstat (limited to 'src/server.ml')
| -rw-r--r-- | src/server.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/server.ml b/src/server.ml index 2c1c4b9..d3cf00e 100644 --- a/src/server.ml +++ b/src/server.ml @@ -47,7 +47,7 @@ let respond ?(mime="text/html; charset=utf-8") ?(status=`OK) body = let headers = Header.init_with "Content-Type" mime in Server.respond_string ~status ~body ~headers () -let serve base_url celcat_url mode = +let serve base_url celcat_url mode stop = let fetch = fetch celcat_url in let callback _conn req _body = let meth = Request.meth req and @@ -75,4 +75,4 @@ let serve base_url celcat_url mode = | _ -> Server.respond_string ~status:`Method_not_allowed ~body:"Method not allowed\n" () in - Server.create ~mode (Server.make ~callback ()) + Server.create ~stop ~mode (Server.make ~callback ()) |