fabs/cheesebot
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Recognize urls without www component.

Browse source 
For more complex regexp, another library might be required.
This commit is contained in:
Fabien Freling 2014-12-07 23:14:24 +01:00
parent adcb83ac8f
commit 229932ece4
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
ocaml/evaluate.ml
View file

@ -2,7 +2,7 @@ open Str
let is_url url = let is_url url =
let regexp = regexp "\\(https?\\://\\)?www\\..+\\..+" in let regexp = regexp "\\(https?\\://\\)?\\(www\\.\\)?.+\\..+" in
string_match regexp url 0 string_match regexp url 0