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__
locs = annexLocations key
#else
locs = replace "\\" "/" $ annexLocations key
locs = map (replace "\\" "/") (annexLocations key)
#endif
dropKey :: Remote -> Key -> Annex Bool