X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fhttp_getter%2Fhttp_getter_misc.ml;h=7b70a14b1112ce975cc5bc01223d59e3eb4d27bc;hb=03d1ddf4a7fdf03fd497babd84d1963048253f0d;hp=9ab7082974b5603e342f46b507a9e0b5dc12e1ab;hpb=96204969d2611dc618f7ed72ae40612b9526c763;p=helm.git

diff --git a/helm/http_getter/http_getter_misc.ml b/helm/http_getter/http_getter_misc.ml
index 9ab708297..7b70a14b1 100644
--- a/helm/http_getter/http_getter_misc.ml
+++ b/helm/http_getter/http_getter_misc.ml
@@ -273,3 +273,9 @@ let remove_line ~fname position =
       remove position ([], lines))
 ;;
 
+let is_blank_line =
+  let blank_line_RE = Pcre.regexp "(^#)|(^\\s*$)" in
+  fun line ->
+    Pcre.pmatch ~rex:blank_line_RE line
+;;
+