haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-07 16:47:27 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Error out on no packages

Browse Source
This commit is contained in:
Michael Snoyman 2018-06-05 13:40:23 -06:00
parent c8c8b971ce
commit f8aa5bc4de
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Stackage/Database/Cron.hs
View File

@ -164,6 +164,8 @@ createHoogleDB db man name = handleAny (\e -> print e $> Nothing) $ do
$ sourceTarFile False tarFP $ sourceTarFile False tarFP
$$ foldMapMC (liftIO . singleDB db name tmpdir) $$ foldMapMC (liftIO . singleDB db name tmpdir)
when (null allPackagePairs) $ error $ "No Hoogle .txt files found for " ++ unpack (toPathPiece name)
stackDir <- getAppUserDataDirectory "stack" stackDir <- getAppUserDataDirectory "stack"
let indexTar = stackDir </> "indices" </> "Hackage" </> "00-index.tar" let indexTar = stackDir </> "indices" </> "Hackage" </> "00-index.tar"
withBinaryFile indexTar ReadMode $ \h -> do withBinaryFile indexTar ReadMode $ \h -> do