Jack/image-triangles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

minor commenting in Main

Browse source
This commit is contained in:
Jack Wines 2024-02-05 09:55:23 -08:00
parent b08826ec94
commit 5f98759aee
No known key found for this signature in database
GPG key ID: 25B20640600571E6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Main.hs
View file

@ -120,7 +120,7 @@ main :: IO ()
main = do main = do
CLIOptions{..} <- getRecord "image options" CLIOptions{..} <- getRecord "image options"
let (Options{gen = gen}) = defaultOpts let (Options{gen = gen}) = defaultOpts
gen' <- getStdGen -- pure . mkStdGen $ 2344 gen' <- getStdGen -- for consistency, swap with something like: pure . mkStdGen $ 2344
let gens :: [StdGen] = map fst . iterate (split . snd) . split $ gen' let gens :: [StdGen] = map fst . iterate (split . snd) . split $ gen'
print gen' print gen'
image <- Img.readImageRGB VU input image <- Img.readImageRGB VU input