haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix missing files

Browse Source
This commit is contained in:
Michael Snoyman 2014-04-16 22:45:29 +03:00
parent 1e8dd991bc
commit 91f9f94fd2
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
Data/Hackage.hs
View File

@ -262,11 +262,15 @@ createView viewName modifyCabal src sink = withSystemTempDirectory "createview"
, toPathPiece version
, ".cabal"
])
let key = HackageViewCabal viewName name version
exists <- storeExists key
if exists
then return mempty
else do
fp = fpFromString dir </> relfp
key = HackageViewCabal viewName name version
mprev <- storeRead key
case mprev of
Just src -> do
liftIO $ createTree $ directory fp
src $$ sinkFile fp
return $ asSet $ singletonSet relfp
Nothing -> do
msrc <- storeRead $ HackageCabal name version
case msrc of
Nothing -> return mempty
@ -285,7 +289,6 @@ createView viewName modifyCabal src sink = withSystemTempDirectory "createview"
return orig
_ -> return orig
sourceLazy new $$ storeWrite key
let fp = fpFromString dir </> relfp
liftIO $ createTree $ directory fp
writeFile fp new
return $ asSet $ singletonSet relfp