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

This commit is contained in:
Joey Hess 2015-01-06 14:50:15 -04:00
parent ae14354686
commit c15fc92c16
2 changed files with 25 additions and 1 deletions

View file

@ -187,7 +187,7 @@ newState c r = AnnexState
- Ensures the config is read, if it was not already. -}
new :: Git.Repo -> IO AnnexState
new r = do
r' <- Git.Config.read r
r' <- Git.adjustPath <$> Git.Config.read r
let c = extractGitConfig r'
newState c <$> if annexDirect c then fixupDirect r' else return r'