Fix regression in System.FilePath.Windows.normalise

W.normalise "//." would return "\\\\.\\" instead of "\\\\.". This is a regression since the 1.4.100.0 rewrite. Fixes #187
haskell · Feb 18, 2023 · 3e5cdbc · 3e5cdbc
1 parent 0a1a344
commit 3e5cdbc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/FilePath/Internal.hs b/System/FilePath/Internal.hs
@@ -963,7 +963,7 @@ normalise filepath =
            then singleton _period
            else joinDrive d p
 
-    addPathSeparator = isDirPath filepath
+    addPathSeparator = isDirPath pth
       && not (hasTrailingPathSeparator result)
       && not (isRelativeDrive drv)