mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix tilde expansion

Browse source
This commit is contained in:
Joey Hess 2012-08-02 07:55:10 -04:00
parent 9a038b4a9b
commit 22d7447ced
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/WebApp/Configurators.hs
View file

@ -100,7 +100,7 @@ checkRepositoryPath p = do
tocheck <- ifM (doesDirectoryExist path) tocheck <- ifM (doesDirectoryExist path)
(return path, return $ parentDir path) (return path, return $ parentDir path)
not <$> (catchBoolIO $ fileAccess tocheck False True False) not <$> (catchBoolIO $ fileAccess tocheck False True False)
expandTilde home ('~':path) = home </> path expandTilde home ('~':'/':path) = home </> path
expandTilde _ path = path expandTilde _ path = path
{- On first run, if run in the home directory, default to putting it in {- On first run, if run in the home directory, default to putting it in