comment

2013-12-09 16:59:16 -04:00 · 2013-12-09 16:59:16 -04:00 · a268ac6c1d
commit a268ac6c1d
parent 4866ec84df
1 changed files with 2 additions and 0 deletions
--- a/Assistant/WebApp/Configurators/Local.hs
+++ b/Assistant/WebApp/Configurators/Local.hs
@ -349,6 +349,8 @@ getEnableDirectoryR uuid = page "Enable a repository" (Just Configuration) $ do
 {- List of removable drives. -}
 driveList :: IO [RemovableDrive]
 #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']
 #else
 #ifdef WITH_CLIBS