Merge pull request #682 from IntersectMBO/comments-and-indentation

Comments and indentation

cardano-cli/src/Cardano/CLI/EraBased/Run/CreateTestnetData.hs

@@ -351,6 +351,11 @@ runGenesisCreateTestNetDataCmd Cmd.GenesisCreateTestNetDataCmdArgs
           stakeKeyToCredential :: Hash StakeKey -> L.Credential L.Staking L.StandardCrypto
           stakeKeyToCredential (StakeKeyHash v) = L.KeyHashObj v
 
+    -- | 'zipWithDeepSeq' is like 'zipWith' but it ensures each element of the result is fully
+    -- evaluated before calculating the rest of the list. We do this in order to avoid the
+    -- case were we expand the intermediate representation (the two input lists) before
+    -- converging to the result. The intermediate representation is larger than the result,
+    -- so we try to avoid having it all in memory at once to reduce the memory footprint.
     zipWithDeepSeq :: NFData c => (a -> b -> c) -> [a] -> [b] -> [c]
     zipWithDeepSeq _ _ [] = []
     zipWithDeepSeq _ [] _ = []
@@ -571,9 +576,9 @@ buildPoolParams nw dir index specifiedRelays = do
 
 -- | This function should only be used for testing purposes.
 -- Keys returned by this function are not cryptographically secure.
-computeInsecureStakeKeyAddr :: StdGen
-                            -> IO (StdGen, ( VerificationKey PaymentKey
-                                           , VerificationKey StakeKey ))
+computeInsecureStakeKeyAddr
+  :: StdGen
+  -> IO (StdGen, (VerificationKey PaymentKey, VerificationKey StakeKey))
 computeInsecureStakeKeyAddr g0 = do
     (paymentKeys, g1) <- first getVerificationKey <$> generateInsecureSigningKey g0 AsPaymentKey
     (stakeKeys  , g2) <- first getVerificationKey <$> generateInsecureSigningKey g1 AsStakeKey