Merge branch 'issue-187'

haskell · Feb 18, 2023 · b0cbd5f · b0cbd5f
2 parents 0a1a344 + 3e5cdbc
commit b0cbd5f
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)