dispatch: update to new dispatch API

inhabitedtype · Nov 19, 2015 · bea5f6d · bea5f6d
1 parent 9663506
commit bea5f6d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/lib/webmachine.ml b/lib/webmachine.ml
@@ -144,12 +144,12 @@ module type S = sig
     (Code.status_code * Header.t * 'body * string list) IO.t
 
   val dispatch :
-    (unit -> 'body resource) Dispatch.route list ->
+    ((Dispatch.tag * string) list * Dispatch.typ * (unit -> 'body resource)) list ->
     body:'body -> request:Request.t ->
     (Code.status_code * Header.t * 'body * string list) option IO.t
 
   val dispatch' :
-    (unit -> 'body resource) Dispatch.DSL.route list ->
+    (string * (unit -> 'body resource)) list ->
     body:'body -> request:Request.t ->
     (Code.status_code * Header.t * 'body * string list) option IO.t
 end

diff --git a/lib/webmachine.mli b/lib/webmachine.mli
@@ -156,7 +156,7 @@ module type S = sig
       is useful for debugging. *)
 
   val dispatch :
-    (unit -> 'body resource) Dispatch.route list ->
+    ((Dispatch.tag * string) list * Dispatch.typ * (unit -> 'body resource)) list ->
     body:'body -> request:Request.t ->
     (Code.status_code * Header.t * 'body * string list) option IO.t
   (** [dispatch routes] returns a request handler that will iterate through
@@ -179,7 +179,7 @@ module type S = sig
    *)
 
   val dispatch' :
-    (unit -> 'body resource) Dispatch.DSL.route list ->
+    (string * (unit -> 'body resource)) list ->
     body:'body -> request:Request.t ->
     (Code.status_code * Header.t * 'body * string list) option IO.t
   (** [dispatch' routes ~body ~request] works in the same way as {dispatch'}