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

comment

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

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

@ -349,6 +349,8 @@ 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 #ifdef mingw32_HOST_OS
-- Just enumerate all likely drive letters for Windows.
-- Could use wmic, but it only works for administrators.
driveList = return $ map (:":") ['A'..'Z'] driveList = return $ map (:":") ['A'..'Z']
#else #else
#ifdef WITH_CLIBS #ifdef WITH_CLIBS