fix build with old random

getStdGen used to be an IO not a MonadIO action

diff --git a/Command/Sim.hs b/Command/Sim.hs
index 47a8d09e508babf24fb51771303b606be9e6eb06..26398772fd34fdc7eeece3782b6296bc13fb1cb7 100644 (file)
--- 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 []