Possibly fix a path separator issue #372

This commit is contained in:
Michael Snoyman 2014-12-15 13:43:13 +02:00
parent 18b12d86ff
commit f9c2d9284c

View File

@ -90,7 +90,7 @@ sourcePackageIndex = do
return gpd
parseNameVersion t1 = do
let (p', t2) = break (== '/') t1
let (p', t2) = break (== '/') $ T.replace "\\" "/" t1
p <- simpleParse p'
t3 <- maybe (throwM $ InvalidCabalPath t1 "no slash") return
$ stripPrefix "/" t2