try to avoid Windows MAX_PATH limit, by using \\?\ prefix on git repo path

1 files changed, 24 insertions, 0 deletions

diff --git a/Git.hs b/Git.hs
index 55b44a925..032824fa7 100644
--- a/Git.hs
+++ b/Git.hs
@@ -30,6 +30,7 @@ module Git (
 	attributes,
 	hookPath,
 	assertLocal,
+	adjustPath,
 ) where
 
 import Network.URI (uriPath, uriScheme, unEscapeString)
@@ -139,3 +140,26 @@ hookPath script repo = do
 #else
 	isexecutable f = isExecutable . fileMode <$> getFileStatus f
 #endif
+
+{- Adusts the path to a local Repo.
+ -
+ - On windows, prefixing a path with \\?\ makes it be processed as a raw
+ - path (/ is not converted to \). The benefit is that such a path does
+ - avoids Windows's 260 byte limitation on the entire path. -}
+adjustPath :: Repo -> Repo
+adjustPath r@(Repo { location = l@(Local { gitdir = d, worktree = w }) }) = r
+	{ location = l 
+		{ gitdir = adjustPath' d
+		, worktree = fmap adjustPath' w
+		}
+	}
+adjustPath r@(Repo { location = LocalUnknown d }) = 
+	r { location = LocalUnknown (adjustPath' d) }
+adjustPath r = r
+
+adjustPath' :: FilePath -> FilePath
+#if mingw32_HOST_OS
+adjustPath' d = "\\\\?\\" ++ d
+#else
+adjustPath' = id
+#endif