mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix build with random-1.2

Browse source 
getStdGen worked with that version but initStdGen is newer. For our
purposes, they are equivilant.
This commit is contained in:
Joey Hess 2024-09-30 14:56:06 -04:00
parent 75b3f0eb75
commit d2ad07f5a3
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Command/Sim.hs
View file

@ -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." giveup "A sim was previously started. Use `git-annex sim end` to stop it before starting a new one."
showLongNote $ UnquotedString "Sim started." showLongNote $ UnquotedString "Sim started."
rng <- fst . random <$> initStdGen rng <- fst . random <$> getStdGen
let st = emptySimState rng simdir let st = emptySimState rng simdir
case simfile of case simfile of
Nothing -> startup simdir st [] Nothing -> startup simdir st []