minor commenting in Main

src/Main.hs

@@ -120,7 +120,7 @@ main :: IO ()
 main = do
   CLIOptions{..} <- getRecord "image options"
   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'
   print gen'
   image <- Img.readImageRGB VU input