Merge pull request #2 from bohdanszymanik/master

[WiP] PR to do define request for POST
OlegZee · Oct 28, 2015 · 8b4f7d7 · 8b4f7d7
2 parents 1706971 + 52c5cb1
commit 8b4f7d7
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/core/HttpCli.fs b/core/HttpCli.fs
@@ -25,10 +25,12 @@ let post (url : string) (define : DefineRequest) (data : byte []) =
         request.ContentType <- "application/x-www-form-urlencoded"
         request.ContentLength <- int64 data.Length
 
+        do define request
+
         use stream = request.GetRequestStream()
         stream.Write(data, 0, data.Length)
         stream.Close()
 
-        do define request)
+)
 
 let get (url : string) = send url "GET"