fix build with random-1.2

getStdGen worked with that version but initStdGen is newer. For our
purposes, they are equivilant.

diff --git a/Command/Sim.hs b/Command/Sim.hs
index 93ae309ab68d3f05c4b7e76fff84e8dc1c5d6fd1..47a8d09e508babf24fb51771303b606be9e6eb06 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 <$> initStdGen
+       rng <- fst . random <$> getStdGen
        let st = emptySimState rng simdir
        case simfile of
                Nothing -> startup simdir st []