From f9c2d9284c96df230e5a645b9c06d9718673a895 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Mon, 15 Dec 2014 13:43:13 +0200
Subject: [PATCH] Possibly fix a path separator issue #372

---
 Stackage/PackageIndex.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Stackage/PackageIndex.hs b/Stackage/PackageIndex.hs
index 13a1e3c9..6b4c8087 100644
--- a/Stackage/PackageIndex.hs
+++ b/Stackage/PackageIndex.hs
@@ -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