haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-12 07:18:31 +01:00
Code Issues Actions 1 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 =
loop
where
fixPath '\\' = '/'
fixPath c = c
expectedPath = let PackageName p' = p in concat
[ packageVersionString (p, v)
, "/"
@ -142,7 +145,7 @@ loadPackageDB settings coreMap core deps = do
, show e
]
loop (Tar.Next entry rest)
| Tar.entryPath entry == expectedPath =
| map fixPath (Tar.entryPath entry) == expectedPath =
case Tar.entryContent entry of
Tar.NormalFile bs _ -> addPackage p v bs pdb
_ -> error $ concat