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

Make logs a little quieter

Browse Source
This commit is contained in:
Bryan Richter 2025-03-18 14:00:59 +02:00
parent 0205d03302
commit 9523039dee
No known key found for this signature in database
GPG Key ID: B202264020068BFB
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Stackage/Database/Cron.hs
View File

@ -554,7 +554,7 @@ decideOnSnapshotUpdate SnapshotFileInfo {sfiSnapName, sfiUpdatedOn, sfiSnapshotF
Nothing -> maybe NoSnapshotFile DoesntExist <$> sfiSnapshotFileGetter Nothing -> maybe NoSnapshotFile DoesntExist <$> sfiSnapshotFileGetter
-- Add new snapshot to the database, when necessary -- Add new snapshot to the database, when necessary
case mKeySnapFile of case mKeySnapFile of
NothingToDo -> Nothing <$ logInfo (mkLogMsg "already exists and is up to date.") NothingToDo -> Nothing <$ logDebug (mkLogMsg "already exists and is up to date.")
NoSnapshotFile -> Nothing <$ logWarn (mkLogMsg "has no (readable?) snapshot file.") NoSnapshotFile -> Nothing <$ logWarn (mkLogMsg "has no (readable?) snapshot file.")
NeedsUpdate (Entity oldSnapKey oldSnap) sf@SnapshotFile {sfCompiler, sfPublishDate} NeedsUpdate (Entity oldSnapKey oldSnap) sf@SnapshotFile {sfCompiler, sfPublishDate}
| Just publishDate <- sfPublishDate -> do | Just publishDate <- sfPublishDate -> do