haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-27 22:50:24 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix some path names for Windows #195

Browse Source
This commit is contained in:
Michael Snoyman 2014-03-17 07:18:43 -07:00
parent 84edb38325
commit 622c2b8c63
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Stackage/LoadDatabase.hs
View File

@ -123,6 +123,9 @@ loadPackageDB settings coreMap core deps = do
findCabalAndAddPackage tarball p v pdb = findCabalAndAddPackage tarball p v pdb =
loop loop
where where
fixPath '\\' = '/'
fixPath c = c
expectedPath = let PackageName p' = p in concat expectedPath = let PackageName p' = p in concat
[ packageVersionString (p, v) [ packageVersionString (p, v)
, "/" , "/"
@ -142,7 +145,7 @@ loadPackageDB settings coreMap core deps = do
, show e , show e
] ]
loop (Tar.Next entry rest) loop (Tar.Next entry rest)
| Tar.entryPath entry == expectedPath = | map fixPath (Tar.entryPath entry) == expectedPath =
case Tar.entryContent entry of case Tar.entryContent entry of
Tar.NormalFile bs _ -> addPackage p v bs pdb Tar.NormalFile bs _ -> addPackage p v bs pdb
_ -> error $ concat _ -> error $ concat