Merge branch 'issue-187'

hasufell · hasufell · commit b0cbd5fc0bd4 · 2023-02-19T01:12:55.000+08:00
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)
 
