Make drive splitting total

haskell · Apr 30, 2019 · 1509628 · 1509628
1 parent 7024e38
commit 1509628
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/haskell-lsp-types/src/Language/Haskell/LSP/Types/Uri.hs b/haskell-lsp-types/src/Language/Haskell/LSP/Types/Uri.hs
@@ -60,8 +60,8 @@ platformAdjustToUriPath :: SystemOS -> FilePath -> String
 platformAdjustToUriPath systemOS srcPath =
   if systemOS /= windowsOS then srcPath
     else let
-      drive:rest = FPW.splitDirectories srcPath
+      (drive,rest) = FPW.splitDrive srcPath
       leaveCharUnescaped = (/= ':')
       removePathSeparator = filter (not . FPW.isPathSeparator)
       escapedDrive = removePathSeparator $ escapeURIString leaveCharUnescaped drive
-      in '/' : FPP.joinPath (escapedDrive : rest)
+      in '/' : FPP.joinPath [escapedDrive,  rest]