UNFIX

Rufflewind · Jan 23, 2024 · 71a9f98 · 71a9f98
1 parent 28e4eb0
commit 71a9f98
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/System/Directory/Internal/Windows.hsc b/System/Directory/Internal/Windows.hsc
@@ -357,7 +357,7 @@ fromExtendedLengthPath ePath' =
       case path of
         c5 : c6 : c7 : subpath@(c8 : _)
           | (toChar <$> [c5, c6, c7, c8]) == "UNC\\" ->
-            os "\\" <> pack subpath
+            {-os "\\" <> -} pack subpath
         drive : col : subpath
           -- if the path is not "regular", then the prefix is necessary
           -- to ensure the path is interpreted literally