diff options
| -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 |