Fake log messages with one per millisecond

At once message per second, we quickly hit the "2 hours in future" validation for very large logs (like `gha-patch.txt`).
restyled-io · Jul 25, 2024 · e9a9e3e · e9a9e3e
1 parent bacbd12
commit e9a9e3e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Restyled/Development/Seeds.hs b/src/Restyled/Development/Seeds.hs
@@ -223,8 +223,8 @@ seedJob Repo {..} pullRequest createdAt mExitCode untimestamped = do
       , JobExitCode =. Just ec
       ]
 
-secondsFrom :: UTCTime -> NonEmpty UTCTime
-secondsFrom = NE.iterate $ addUTCTime 1
+msecondsFrom :: UTCTime -> [UTCTime]
+msecondsFrom = iterate $ addUTCTime 0.001
 
 seedJobLogLines
   :: ( MonadUnliftIO m