From d2ad07f5a3f65b1fd5fa0b01bd45e109071b624b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 30 Sep 2024 14:56:06 -0400 Subject: [PATCH] fix build with random-1.2 getStdGen worked with that version but initStdGen is newer. For our purposes, they are equivilant. --- Command/Sim.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Command/Sim.hs b/Command/Sim.hs index 93ae309ab6..47a8d09e50 100644 --- a/Command/Sim.hs +++ b/Command/Sim.hs @@ -66,7 +66,7 @@ startsim' simfile = do giveup "A sim was previously started. Use `git-annex sim end` to stop it before starting a new one." showLongNote $ UnquotedString "Sim started." - rng <- fst . random <$> initStdGen + rng <- fst . random <$> getStdGen let st = emptySimState rng simdir case simfile of Nothing -> startup simdir st []