[lsp] generate proto only once

Signed-off-by: Rudi Grinberg <[email protected]>
pereb4ik · Oct 21, 2019 · 94306e0 · 94306e0
1 parent 3952841
commit 94306e0
Showing 1 changed file with 5 additions and 9 deletions.
diff --git a/lsp/src/lsp/uri.ml b/lsp/src/lsp/uri.ml
@@ -2,12 +2,12 @@ type t = string [@@deriving yojson { strict = false }]
 
 let to_string uri = uri
 
+let proto =
+  match Sys.win32 with
+  | true -> "file:///"
+  | false -> "file://"
+
 let to_path (uri : t) =
-  let proto =
-    match Sys.win32 with
-    | true -> "file:///"
-    | false -> "file://"
-  in
   let path =
     match Std.String.chop_prefix ~prefix:proto uri with
     | Some path -> path
@@ -18,10 +18,6 @@ let to_path (uri : t) =
   |> Std.String.replace_all ~pattern:"%5C" ~with_:"/"
 
 let of_path (path : string) =
-  let proto = match Sys.win32 with
-    | true -> "file:///"
-    | false -> "file://"
-  in
   let path =
     path
     |> Std.String.replace_all ~pattern:"\\" ~with_:"/"