Add get_json convenience function

VictorNicollet · May 4, 2012 · ff9ea6c · ff9ea6c
1 parent ae70acc
commit ff9ea6c
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 0 deletions.
diff --git a/src/action.ml b/src/action.ml
@@ -112,6 +112,11 @@ let run callback =
 
 module Convenience = struct
 
+  let get_json req = 
+    match req # post with 
+      | Some (`JSON json) -> Some json 
+      | _                 -> None
+
   let nilreq s a = new nilreq s a
 
   let single_domain_server ?(secure=false) ?port ?cookies domain = 

diff --git a/src/action.mli b/src/action.mli
@@ -372,6 +372,9 @@ val run : (Netcgi_fcgi.cgi -> unit) -> unit
 (** Helper functions for your convenience. *)
 module Convenience : sig
 
+  (** Get the JSON data out of a request, or [None] if missing. *)
+  val get_json : ('server,'args) request -> Json_type.t option
+
   (** A server that responds to a single domain.
       [let server = single_domain_server "www.domain.com"].
   *)