diff --git a/haskell-lsp-types/src/Language/Haskell/LSP/Types/Uri.hs b/haskell-lsp-types/src/Language/Haskell/LSP/Types/Uri.hs
index ebc8af8c6..df2661afd 100644
--- 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]