From c58c05f416419624ed46001cd7134b7df80d5beb Mon Sep 17 00:00:00 2001 From: doligez Date: Wed, 10 Sep 2014 10:50:56 +0200 Subject: [PATCH] fix invalid printf formats --- stog_blocks.ml | 2 +- stog_engine.ml | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/stog_blocks.ml b/stog_blocks.ml index 5b8cd3d0..d879c8bf 100644 --- a/stog_blocks.ml +++ b/stog_blocks.ml @@ -43,7 +43,7 @@ let empty_data = { } let random_id () = - Printf.sprintf "%0x-%0x-%0x-%0x" + Printf.sprintf "%04x-%04x-%04x-%04x" (Random.int 0xffff) (Random.int 0xffff) (Random.int 0xffff) (Random.int 0xffff) ;; diff --git a/stog_engine.ml b/stog_engine.ml index 0bf2d980..9310b856 100644 --- a/stog_engine.ml +++ b/stog_engine.ml @@ -508,7 +508,7 @@ let encode_for_url s = | 'A'..'Z' | 'a'..'z' | '0'..'9' | '_' | '-' | '.' | '!' | '*' | '+' | '/' -> Buffer.add_char b s.[i] - | c -> Printf.bprintf b "%%%0x" (Char.code c) + | c -> Printf.bprintf b "%%%02x" (Char.code c) done; Buffer.contents b ;; -- GitLab