Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
7 lines (5 sloc) 132 Bytes
let counter = ref 0
let unique_id s =
let id = String.concat "" [s; (BatString.of_int (!counter))] in
incr counter;
id