diff --git a/ocaml/evaluate.ml b/ocaml/evaluate.ml index e4e8046..c561401 100644 --- a/ocaml/evaluate.ml +++ b/ocaml/evaluate.ml @@ -2,7 +2,7 @@ open Str let is_url url = - let regexp = regexp "\\(https?\\://\\)?www\\..+\\..+" in + let regexp = regexp "\\(https?\\://\\)?\\(www\\.\\)?.+\\..+" in string_match regexp url 0