From cd621636eb37431808a737e5280ddf9974ac7b4a Mon Sep 17 00:00:00 2001
From: Bryan Richter <bryan@haskell.foundation>
Date: Tue, 31 Dec 2024 14:37:39 +0200
Subject: [PATCH] Disable /build-version

Closes #339
---
 src/Application.hs | 11 +++++++++--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/src/Application.hs b/src/Application.hs
index 5f0bcd3..a090513 100644
--- a/src/Application.hs
+++ b/src/Application.hs
@@ -47,7 +47,7 @@ import Yesod.Core.Types (loggerSet)
 import Yesod.Default.Config2
 import Yesod.Default.Handlers
 import Yesod.GitRepo
-import Yesod.GitRev (tGitRev)
+import Yesod.GitRev (GitRev(..))
 
 -- Import all relevant handler modules here.
 import Handler.Blog
@@ -159,7 +159,14 @@ withFoundation appLogFunc appSettings inner = do
         appMirrorStatus <- mkUpdateMirrorStatus
         hoogleLocker <- newHoogleLocker appLogFunc appHttpManager (appDownloadBucketUrl appSettings)
         let appGetHoogleDB = singleRun hoogleLocker
-        let appGitRev = $$tGitRev
+        let appGitRev = GitRev
+                { gitRevHash = "invalid"
+                , gitRevBranch = "invalid"
+                , gitRevDirty = False
+                , gitRevCommitDate = "2024-12-31"
+                , gitRevCommitCount = 0
+                , gitRevCommitMessage = "This page has been deprecated. Comment on https://github.com/commercialhaskell/stackage-server/issues/339 if this broke your workflow!"
+                }
         runConcurrently $ runContentUpdates *> Concurrently (inner App {..})
 
 getLogOpts :: AppSettings -> IO LogOptions