fix drive path so fileAccess will work with it

2013-12-09 17:58:49 -04:00 · 2013-12-09 17:58:49 -04:00 · 0bb9ace195
commit 0bb9ace195
parent 43b6a0f71c
1 changed files with 1 additions and 1 deletions
--- a/Assistant/WebApp/Configurators/Local.hs
+++ b/Assistant/WebApp/Configurators/Local.hs
@ -351,7 +351,7 @@ 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 (\l -> gen $ l:":") ['A'..'Z']
+driveList = return $ map (\l -> gen $ l:":\\") ['A'..'Z']
  where
 	gen dir = RemovableDrive
 		Nothing