Commit dea11196 authored by Artemiy's avatar Artemiy
Browse files


parent 2bf1ce2a
......@@ -112,6 +112,8 @@ let normalize_url target =
| c -> c |> Char.lowercase_ascii )
(Ubase.from_utf8 target)
(** [normalize_tag tag] takes a tag and rids it of unwanted characters, such as
utf8, speces, dashes and underscores *)
let normalize_tag tag =
let string_map_partial f s =
let b = Buffer.create (String.length s) in
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment