From 91f9f94fd2f7bbde30ecfa562214590f24981bd1 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Wed, 16 Apr 2014 22:45:29 +0300 Subject: [PATCH] Fix missing files --- Data/Hackage.hs | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/Data/Hackage.hs b/Data/Hackage.hs index aff7403..07a8276 100644 --- a/Data/Hackage.hs +++ b/Data/Hackage.hs @@ -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