Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Remove instrumentation

  • Loading branch information...
commit 59f6f689ab9b733bdfedf69b17e06aa2b44f6df5 1 parent abba729
Victor Nicollet authored

Showing 1 changed file with 1 addition and 9 deletions. Show diff stats Hide diff stats

  1. +1 9 ohmAmazon/ohmAmazon.ml
10 ohmAmazon/ohmAmazon.ml
@@ -276,8 +276,6 @@ module S3 = functor(Account:ACCOUNT) -> struct
276 276 verb_name^"\n\n"^contentType^"\n"^date^"\n"^canonAmzHeaders^"/"^bucket^"/"^key
277 277 in
278 278
279   - let () = print_endline stringToSign in
280   -
281 279 let sign = sign (stringToSign) in
282 280
283 281 let key = BatString.strip ~chars:"/" key in
@@ -385,13 +383,7 @@ module S3 = functor(Account:ACCOUNT) -> struct
385 383 ~verb:(`PUT data)
386 384 ~bucket
387 385 ~key
388   - begin fun call ->
389   - let chan = call # response_body # open_value_rd () in
390   - let rec aux sf = try aux (sf ^ chan # input_line ()) with _ -> chan # close_in () ; sf in
391   - let back = aux "" in
392   - print_endline back ;
393   - true
394   - end
  386 + begin fun call -> true end
395 387 with Http_client.Http_protocol e ->
396 388 Util.log "Amazon.put: %s" (Printexc.to_string e) ; false
397 389

0 comments on commit 59f6f68

Please sign in to comment.
Something went wrong with that request. Please try again.