haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-11 19:58:28 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Disable /build-version

Browse Source 
Closes #339
This commit is contained in:
Bryan Richter 2024-12-31 14:37:39 +02:00
parent 83f6bd9467
commit cd621636eb
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/Application.hs
View File

@ -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