@@ -123,6 +123,9 @@ loadPackageDB settings coreMap core deps = do
123123 findCabalAndAddPackage tarball p v pdb =
124124 loop
125125 where
126+ fixPath '\\' = '/'
127+ fixPath c = c
128+
126129 expectedPath = let PackageName p' = p in concat
127130 [ packageVersionString (p, v)
128131 , "/"
@@ -142,7 +145,7 @@ loadPackageDB settings coreMap core deps = do
142145 , show e
143146 ]
144147 loop (Tar.Next entry rest)
145− | Tar.entryPath entry == expectedPath =
148+ | map fixPath (Tar.entryPath entry) == expectedPath =
146149 case Tar.entryContent entry of
147150 Tar.NormalFile bs _ -> addPackage p v bs pdb
148151 _ -> error $ concat