From 743690d0223bf461f42ca5e0f7edd5ab484529f6 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Mon, 30 Sep 2024 17:36:19 -0400 Subject: [PATCH] fix build with old random getStdGen used to be an IO not a MonadIO action --- Command/Sim.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Command/Sim.hs b/Command/Sim.hs index 47a8d09e50..26398772fd 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 <$> getStdGen + rng <- liftIO $ fst . random <$> getStdGen let st = emptySimState rng simdir case simfile of Nothing -> startup simdir st []