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

try all drive letters

Browse source
This commit is contained in:
Joey Hess 2013-12-09 16:56:52 -04:00
parent 2066e90421
commit 4866ec84df
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Assistant/WebApp/Configurators/Local.hs
View file

@ -348,6 +348,9 @@ getEnableDirectoryR uuid = page "Enable a repository" (Just Configuration) $ do
{- List of removable drives. -} {- List of removable drives. -}
driveList :: IO [RemovableDrive] driveList :: IO [RemovableDrive]
#ifdef mingw32_HOST_OS
driveList = return $ map (:":") ['A'..'Z']
#else
#ifdef WITH_CLIBS #ifdef WITH_CLIBS
driveList = mapM (gen . mnt_dir) =<< filter sane <$> getMounts driveList = mapM (gen . mnt_dir) =<< filter sane <$> getMounts
where where
@ -375,6 +378,7 @@ driveList = mapM (gen . mnt_dir) =<< filter sane <$> getMounts
#else #else
driveList = return [] driveList = return []
#endif #endif
#endif
{- Bootstraps from first run mode to a fully running assistant in a {- Bootstraps from first run mode to a fully running assistant in a
- repository, by running the postFirstRun callback, which returns the - repository, by running the postFirstRun callback, which returns the