haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-24 09:51:57 +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 , toPathPiece version
, ".cabal" , ".cabal"
]) ])
let key = HackageViewCabal viewName name version fp = fpFromString dir </> relfp
exists <- storeExists key key = HackageViewCabal viewName name version
if exists mprev <- storeRead key
then return mempty case mprev of
else do Just src -> do
liftIO $ createTree $ directory fp
src $$ sinkFile fp
return $ asSet $ singletonSet relfp
Nothing -> do
msrc <- storeRead $ HackageCabal name version msrc <- storeRead $ HackageCabal name version
case msrc of case msrc of
Nothing -> return mempty Nothing -> return mempty
@ -285,7 +289,6 @@ createView viewName modifyCabal src sink = withSystemTempDirectory "createview"
return orig return orig
_ -> return orig _ -> return orig
sourceLazy new $$ storeWrite key sourceLazy new $$ storeWrite key
let fp = fpFromString dir </> relfp
liftIO $ createTree $ directory fp liftIO $ createTree $ directory fp
writeFile fp new writeFile fp new
return $ asSet $ singletonSet relfp return $ asSet $ singletonSet relfp