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"