Remove type paramter from router middleware

Signed-off-by: Rudi Grinberg <[email protected]>

opium/src/middlewares/middleware_router.ml

@@ -10,7 +10,7 @@ module Method_map = Map.Make (struct
   ;;
 end)
 
-type 'a t = (Route.t * 'a) list Method_map.t
+type t = (Route.t * Rock.Handler.t) list Method_map.t
 
 let empty = Method_map.empty
 

opium/src/middlewares/middleware_router.mli

@@ -1,7 +1,7 @@
-type 'a t
+type t
 
-val m : Rock.Handler.t t -> Rock.Middleware.t
-val empty : 'action t
-val add : 'a t -> route:Route.t -> meth:Method.t -> action:'a -> 'a t
+val m : t -> Rock.Middleware.t
+val empty : t
+val add : t -> route:Route.t -> meth:Method.t -> action:Rock.Handler.t -> t
 val param : Request.t -> string -> string
 val splat : Request.t -> string list

opium/src/opium.mli

@@ -17,10 +17,10 @@ module App = App
 module Route = Route
 
 module Router : sig
-  type 'action t
+  type t
 
-  val empty : 'action t
-  val add : 'a t -> route:Route.t -> meth:Method.t -> action:'a -> 'a t
+  val empty : t
+  val add : t -> route:Route.t -> meth:Method.t -> action:Rock.Handler.t -> t
   val param : Request.t -> string -> string
   val splat : Request.t -> string list
 end
@@ -93,7 +93,7 @@ module Middleware : sig
 
       will redirect any URI containing two segments with the last segment containing
       "hello" to the handler defined in [Handler.hello_world]. *)
-  val router : Rock.Handler.t Router.t -> Rock.Middleware.t
+  val router : Router.t -> Rock.Middleware.t
 
   (** {3 [debugger]} *)