Permalink
Switch branches/tags
Nothing to show
Find file
Fetching contributors…
Cannot retrieve contributors at this time
8 lines (3 sloc) 146 Bytes
let re () = Pcre.regexp "(?:0*)http://(?:(?:[0-9a-zA-Z.-])+)(?:(?:/.*)?)"
let m rex s = Pcre.pmatch ~rex s
let f r us = List.for_all (m r) us