address reviews II

IntersectMBO · Mar 27, 2023 · 4b824c7 · 4b824c7
1 parent a9ee666
commit 4b824c7
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/cardano-testnet/src/Testnet/Util/Cli.hs b/cardano-testnet/src/Testnet/Util/Cli.hs
@@ -40,21 +40,21 @@ data KeyNames = KeyNames
   , signingKeyFile :: FilePath
   }
 
-type KeyGen a = H.Integration (File (VKey a), File (SKey a))
+type KeyGen a = (File (VKey a), File (SKey a))
 
-cliAddressKeyGen :: TmpDir -> KeyNames -> KeyGen PaymentKey
+cliAddressKeyGen :: TmpDir -> KeyNames -> H.Integration (KeyGen PaymentKey)
 cliAddressKeyGen = shelleyKeyGen "address" "key-gen"
 
-cliStakeAddressKeyGen :: TmpDir -> KeyNames -> KeyGen StakeKey
+cliStakeAddressKeyGen :: TmpDir -> KeyNames -> H.Integration (KeyGen StakeKey)
 cliStakeAddressKeyGen = shelleyKeyGen "stake-address" "key-gen"
 
-cliNodeKeyGenVrf :: TmpDir -> KeyNames -> KeyGen VrfKey
+cliNodeKeyGenVrf :: TmpDir -> KeyNames -> H.Integration (KeyGen VrfKey)
 cliNodeKeyGenVrf = shelleyKeyGen "node" "key-gen-VRF"
 
-cliNodeKeyGenKes :: TmpDir -> KeyNames -> KeyGen KesKey
+cliNodeKeyGenKes :: TmpDir -> KeyNames -> H.Integration (KeyGen KesKey)
 cliNodeKeyGenKes = shelleyKeyGen "node" "key-gen-KES"
 
-shelleyKeyGen :: String -> String -> TmpDir -> KeyNames -> KeyGen x
+shelleyKeyGen :: String -> String -> TmpDir -> KeyNames -> H.Integration (KeyGen x)
 shelleyKeyGen command subCommand tmpDir keyNames = do
   let
     vKeyPath = tmpDir </> verificationKeyFile keyNames