input-output-hk/foliage
1
1
Fork 0
mirror of https://github.com/input-output-hk/foliage.git synced 2024-12-02 07:54:45 +03:00
Code Issues Packages Projects Releases Wiki Activity

Update app/Foliage/HackageSecurity.hs

Browse Source 
Co-authored-by: Andrea Bedini <andrea@andreabedini.com>
This commit is contained in:
Yvan Sraka 2023-05-15 10:58:44 +02:00 committed by GitHub
parent 59e0d72cb9
commit f40673352f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 0 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
app/Foliage/HackageSecurity.hs
View File

@ -40,18 +40,6 @@ createKeys base = do
putStrLn " root keys:" putStrLn " root keys:"
createDirectoryIfMissing True (base </> "root") createDirectoryIfMissing True (base </> "root")
replicateM_ 3 $ createKey' KeyTypeEd25519 >>= writeKeyWithId (base </> "root") replicateM_ 3 $ createKey' KeyTypeEd25519 >>= writeKeyWithId (base </> "root")
putStrLn " target keys:"
createDirectoryIfMissing True (base </> "target")
replicateM_ 3 $ createKey' KeyTypeEd25519 >>= writeKeyWithId (base </> "target")
putStrLn " timestamp keys:"
createDirectoryIfMissing True (base </> "timestamp")
replicateM_ 1 $ createKey' KeyTypeEd25519 >>= writeKeyWithId (base </> "timestamp")
putStrLn " snapshot keys:"
createDirectoryIfMissing True (base </> "snapshot")
replicateM_ 1 $ createKey' KeyTypeEd25519 >>= writeKeyWithId (base </> "snapshot")
putStrLn " mirrors keys:"
createDirectoryIfMissing True (base </> "mirrors")
replicateM_ 3 $ createKey' KeyTypeEd25519 >>= writeKeyWithId (base </> "mirrors")
writeKeyWithId :: FilePath -> Some Key -> IO () writeKeyWithId :: FilePath -> Some Key -> IO ()
writeKeyWithId base k = do writeKeyWithId base k = do