fix bare repo optimisation on Windows

This commit is contained in:
Joey Hess 2014-02-25 13:47:09 -04:00
parent 06142f4943
commit 360ecb9f35

View file

@ -285,7 +285,7 @@ keyUrls r key = map tourl locs'
#ifndef mingw32_HOST_OS #ifndef mingw32_HOST_OS
locs' = locs locs' = locs
#else #else
locs' = map (replace "\\" "/") (annexLocations key) locs' = map (replace "\\" "/") locs
#endif #endif
dropKey :: Remote -> Key -> Annex Bool dropKey :: Remote -> Key -> Annex Bool