From 68fa14a4bb5303fc1b4bffea7643c469c6894c02 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 2 Sep 2020 17:39:52 +0300
Subject: [PATCH] Force using only latest Hoogle DBs

---
 src/Handler/Hoogle.hs         | 7 ++++++-
 src/Stackage/Database/Cron.hs | 1 +
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/Handler/Hoogle.hs b/src/Handler/Hoogle.hs
index 9dd60bb..fd3cc92 100644
--- a/src/Handler/Hoogle.hs
+++ b/src/Handler/Hoogle.hs
@@ -23,7 +23,12 @@ getHoogleDB name = track "Handler.Hoogle.getHoogleDB" do
     liftIO $ appGetHoogleDB app name
 
 getHoogleR :: SnapName -> Handler Html
-getHoogleR name = track "Handler.Hoogle.getHoogleR" do
+getHoogleR name0 = track "Handler.Hoogle.getHoogleR" do
+    let branch =
+          case name0 of
+            SNLts _ _ -> LtsBranch
+            SNNightly _ -> NightlyBranch
+    name <- newestSnapshot branch >>= maybe notFound return
     Entity _ snapshot <- lookupSnapshot name >>= maybe notFound return
     mquery <- lookupGetParam "q"
     mPackageName <- lookupGetParam "package"
diff --git a/src/Stackage/Database/Cron.hs b/src/Stackage/Database/Cron.hs
index dfe6ef7..c4cf221 100644
--- a/src/Stackage/Database/Cron.hs
+++ b/src/Stackage/Database/Cron.hs
@@ -229,6 +229,7 @@ runStackageUpdate doNotUpload = do
         runConduit $ sourceSnapshots .| foldMC (createOrUpdateSnapshot corePackageGetters) (pure ())
     unless doNotUpload uploadSnapshotsJSON
     buildAndUploadHoogleDB doNotUpload
+    logInfo "Finished building and uploading Hoogle DBs"
     run $ mapM_ (`rawExecute` []) ["TRUNCATE TABLE latest_version", "COMMIT", "VACUUM", "BEGIN"]