fix build on windows

This commit is contained in:
Joey Hess 2013-07-09 16:25:15 -04:00
parent 118c5ace44
commit ea6fdc745f

View file

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