From 2381db468c098b4f87d623c018c5e7b45633fd4d Mon Sep 17 00:00:00 2001
From: malc <moosotc@gmail.com>
Date: Sun, 9 Aug 2015 05:48:18 +0300
Subject: [PATCH] Add "file" as a valid uri scheme

---
 utils.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/utils.ml b/utils.ml
index cb6c56b..ee37236 100644
--- a/utils.ml
+++ b/utils.ml
@@ -290,7 +290,7 @@ let geturl s =
         String.sub s (schemestartpos+1) (colonpos-1-schemestartpos)
       in
       match scheme with
-      | "http" | "https" | "ftp" | "mailto" ->
+      | "http" | "https" | "ftp" | "mailto" | "file" ->
           let epos =
             try String.index_from s colonpos ' '
             with Not_found -> len
-- 
2.11.4.GIT