Fake log messages with one per millisecond

pbrisbin · pbrisbin · commit e9a9e3e432cd · 2024-07-24T22:25:00.000-04:00
At once message per second, we quickly hit the "2 hours in future"
validation for very large logs (like `gha-patch.txt`).
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

Original file line number	Diff line number	Diff line change
`@@ -223,8 +223,8 @@ seedJob Repo {..} pullRequest createdAt mExitCode untimestamped = do`
`223`	`223`	`, JobExitCode =. Just ec`
`224`	`224`	`]`
`225`	`225`
`226`		`-secondsFrom :: UTCTime -> NonEmpty UTCTime`
`227`		`-secondsFrom = NE.iterate $ addUTCTime 1`
	`226`	`+msecondsFrom :: UTCTime -> [UTCTime]`
	`227`	`+msecondsFrom = iterate $ addUTCTime 0.001`
`228`	`228`
`229`	`229`	`seedJobLogLines`
`230`	`230`	`:: ( MonadUnliftIO m`