Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
10 lines (8 sloc) 152 Bytes
open Core.Std
let touch t s =
let count =
match List.Assoc.find t s with
| None -> 0
| Some x -> x
in
List.Assoc.add t s (count + 1)