split path catch all cases parsing

ocaml · Jul 3, 2022 · 68a43ae · 68a43ae
1 parent 08812bd
commit 68a43ae
Showing 1 changed file with 3 additions and 8 deletions.
diff --git a/lsp/src/uri_lexer.mll b/lsp/src/uri_lexer.mll
@@ -30,14 +30,9 @@ and path = parse
 | "" { { scheme = "file"; authority = ""; path = "/" } }
 | "//" ([^ '/']* as authority) (['/']_* as path) { { scheme = "file"; authority; path } }
 | "//" ([^ '/']* as authority) { { scheme = "file"; authority; path = "/" } }
-| _* as path 
-{ 
-  let open Import in
-  { scheme = "file"
-  ; authority = ""
-  ; path = String.add_prefix_if_not_exists path ~prefix:"/"
-  }
-}
+| ("/" _* as path) { { scheme = "file"; authority = ""; path } }
+| (_* as path) { { scheme = "file"; authority = ""; path = "/" ^ path } }
+
 
 {
   let of_string s =