diff --git a/stog_blocks.ml b/stog_blocks.ml index 5b8cd3d0ab6c90b0121fd46298391a6469a03b85..d879c8bfd19432b37f7ea82ef9f40ddc67e82ebe 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 0bf2d9808d2973aa3ebc9f63ec774cab8544503d..9310b856824b50f1591299695e2fbd76b9af1447 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 ;;