From 7679addc91679c0a167fd0b47c494c2a343e4080 Mon Sep 17 00:00:00 2001
From: drlkf <drlkf@drlkf.net>
Date: Fri, 13 Mar 2026 22:09:06 +0100
Subject: [PATCH] Revert "Force using only latest Hoogle DBs"

This reverts commit 68fa14a4bb5303fc1b4bffea7643c469c6894c02.
---
 src/Handler/Hoogle.hs | 7 +------
 1 file changed, 1 insertion(+), 6 deletions(-)

diff --git a/src/Handler/Hoogle.hs b/src/Handler/Hoogle.hs
index 488779a..7e31cfe 100644
--- a/src/Handler/Hoogle.hs
+++ b/src/Handler/Hoogle.hs
@@ -23,12 +23,7 @@ getHoogleDB name = track "Handler.Hoogle.getHoogleDB" do
     liftIO $ appGetHoogleDB app name
 
 getHoogleR :: SnapName -> Handler Html
-getHoogleR name0 = track "Handler.Hoogle.getHoogleR" do
-    let branch =
-          case name0 of
-            SNLts _ _ -> LtsBranch
-            SNNightly _ -> NightlyBranch
-    name <- newestSnapshot branch >>= maybe notFound return
+getHoogleR name = track "Handler.Hoogle.getHoogleR" do
     Entity _ snapshot <- lookupSnapshot name >>= maybe notFound return
     mquery <- lookupGetParam "q"
     mPackageName <- lookupGetParam "package"