1. Dmitry Grebeniuk
  2. amall

Commits

Dmitry Grebeniuk  committed 651f51e

+ Amall_http.it_post_vars

  • Participants
  • Parent commits 25050ce
  • Branches default

Comments (0)

Files changed (1)

File src/amall_http.ml

View file
 ;
 
 
-value (request_with_post_vars
-: request -> I.iteratee char (request * list (string * string))
-)
-request
+value it_post_vars : I.iteratee char (list (string * string))
  =
   I.gather_to_string >>= fun s ->
   let vars =
                 (var_key, String.urldecode var_val)
          )
   in
+    I.return vars
+;
+
+
+value (request_with_post_vars
+: request -> I.iteratee char (request * list (string * string))
+)
+request
+ =
+  it_post_vars >>= fun vars ->
   let () =
     List.iter
       (fun (k, v) ->