Skip to content


Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
branch: master
Fetching contributors…

Cannot retrieve contributors at this time

8 lines (3 sloc) 0.151 kb
let re () = Str.regexp "\\(0*\\)http://\\([0-9a-zA-Z.-]+\\)\\(\\(/.*\\)?\\)"
let m r s = Str.string_match r s 0
let f r us = List.for_all (m r) us
Jump to Line
Something went wrong with that request. Please try again.