Delete old UpgradeCheck records

commercialhaskell · Apr 17, 2019 · b85d072 · b85d072
1 parent e5d9245
commit b85d072
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/src/Stack/Storage.hs b/src/Stack/Storage.hs
@@ -557,4 +557,6 @@ upgradeChecksSince since = withStorage $ count [UpgradeCheckTimestamp >=. since]
 
 -- | Log in the database that an upgrade check occurred at the given time.
 logUpgradeCheck :: HasConfig env => UTCTime -> RIO env ()
-logUpgradeCheck = withStorage . insert_ . UpgradeCheck
+logUpgradeCheck time = withStorage $ do
+  deleteWhere ([] :: [Filter UpgradeCheck])
+  insert_ $ UpgradeCheck time