m

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/router.ml b/lib/router.ml
index 56a297c..a29a8bc 100644
--- a/lib/router.ml
+++ b/lib/router.ml
@@ -32,7 +32,7 @@ let static (path : Parts.t) (_db : Handler.pool) (_req : Request.t)
   | Ok body ->
     (match Body.to_string body with
      | Error _ -> Ok (Response.create `Internal_server_error)
-     | Ok str -> Ok (Response.of_string ~body:str Status.(`Accepted)))
+     | Ok str -> Ok (Response.of_string ~body:str `Accepted))
 ;;
 
 (* match Parts.wildcard_match path with *)
@@ -40,7 +40,9 @@ let static (path : Parts.t) (_db : Handler.pool) (_req : Request.t)
 (* | _ -> Ok (Response.of_string ~body:"" Status.(`Accepted)) *)
 
 (* Define all routes in the application *)
-let routes : (Handler.pool -> Request.t -> (Response.t, Caqti_error.t) result) route list R.t =
+let routes
+  : (Handler.pool -> Request.t -> (Response.t, Caqti_error.t) result) route list R.t
+  =
   (* Use fold_left to build up a map of routes *)
   List.fold_left
   (* For each (verb, route) pair, add the route to the map under that verb *)