X-Git-Url: http://git.annexia.org/?p=whenjobs.git;a=blobdiff_plain;f=lib%2Fwhenutils.ml;h=cdfca47b1590b75ccd2102dfd85d077134e66a5a;hp=9614ef89b4fb625b86f9445a6a2d5370f3e25e1a;hb=65b5a307fc1c55a197ee337180842ac6885ba784;hpb=82b61d8519571f6a3feadc8575958945292c6d9f

diff --git a/lib/whenutils.ml b/lib/whenutils.ml
index 9614ef8..cdfca47 100644
--- a/lib/whenutils.ml
+++ b/lib/whenutils.ml
@@ -41,6 +41,9 @@ module StringSet = Set.Make (String)
 
 let (//) = Filename.concat
 
+let isalpha = function 'a'..'z' | 'A'..'Z' -> true | _ -> false
+let isalnum = function 'a'..'z' | 'A'..'Z' | '0'..'9' -> true | _ -> false
+
 let rec filter_map f = function
   | [] -> []
   | x :: xs ->