From e1f844b3999655b87ba4ee177f6136619b655bd7 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 6 Jan 2015 11:16:25 +0200 Subject: [PATCH] Don't generate Hoogle databases on server (should have already been there...) --- Application.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Application.hs b/Application.hs index 70ec6a5..026369c 100644 --- a/Application.hs +++ b/Application.hs @@ -237,6 +237,7 @@ makeFoundation useEcho conf = do let updateDB = lookup "STACKAGE_CABAL_LOADER" env /= Just "0" + hoogleGen = lookup "STACKAGE_HOOGLE_GEN" env /= Just "0" forceUpdate = lookup "STACKAGE_FORCE_UPDATE" env == Just "1" loadCabalFiles' = appLoadCabalFiles updateDB forceUpdate foundation dbconf p @@ -249,7 +250,7 @@ makeFoundation useEcho conf = do loadCabalFiles' - liftIO $ createHoogleDatabases blobStore' runDB' putStrLn urlRender' + when hoogleGen $ liftIO $ createHoogleDatabases blobStore' runDB' putStrLn urlRender' liftIO $ threadDelay $ 30 * 60 * 1000000 return foundation