diff options
| author |  Joey Hess <joey@kitenet.net> | 2012-08-02 07:55:10 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2012-08-02 07:55:10 -0400 |
| commit | 22d7447cede9b8eb43ab552700092b74726e8c60 (patch) | |
| tree | 532592c9c034619395056ff4c0da29a22a664c91 /Assistant/WebApp/Configurators.hs | |
| parent | 9a038b4a9b62824646bf4e876ed9017a1128aa56 (diff) | |
fix tilde expansion
Diffstat (limited to 'Assistant/WebApp/Configurators.hs')
| -rw-r--r-- | Assistant/WebApp/Configurators.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/WebApp/Configurators.hs b/Assistant/WebApp/Configurators.hs index 08a1f60d3..9c308dee1 100644 --- a/Assistant/WebApp/Configurators.hs +++ b/Assistant/WebApp/Configurators.hs @@ -100,7 +100,7 @@ checkRepositoryPath p = do tocheck <- ifM (doesDirectoryExist path) (return path, return $ parentDir path) not <$> (catchBoolIO $ fileAccess tocheck False True False) - expandTilde home ('~':path) = home </> path + expandTilde home ('~':'/':path) = home </> path expandTilde _ path = path {- On first run, if run in the home directory, default to putting it in |