mirror of
https://github.com/input-output-hk/foliage.git
synced 2024-09-11 20:27:09 +03:00
Do not auto-generate keys
This commit is contained in:
parent
72f2efc615
commit
8ccda8e124
@ -63,8 +63,11 @@ buildAction
|
||||
SignOptsSignWithKeys keysPath -> do
|
||||
ks <- doesDirectoryExist keysPath
|
||||
unless ks $ do
|
||||
putWarn $ "You don't seem to have created a set of TUF keys. I will create one in " <> keysPath
|
||||
liftIO $ createKeys keysPath
|
||||
putError $ unwords
|
||||
[ "I cannot find a set of TUF keys in " <> keysPath <> ","
|
||||
, "Use the create-keys command to create them."
|
||||
]
|
||||
fail "Keys not found"
|
||||
return $ \name -> readKeysAt (keysPath </> name)
|
||||
SignOptsDon'tSign ->
|
||||
return $ const $ return []
|
||||
|
@ -93,17 +93,14 @@ buildCommand =
|
||||
)
|
||||
where
|
||||
signOpts =
|
||||
( SignOptsSignWithKeys
|
||||
<$> strOption
|
||||
( long "keys"
|
||||
<> metavar "KEYS"
|
||||
<> help "TUF keys location"
|
||||
<> showDefault
|
||||
<> value "_keys"
|
||||
)
|
||||
)
|
||||
<|> ( SignOptsDon'tSign
|
||||
<$ switch (long "no-signatures" <> help "Don't sign the repository")
|
||||
pure SignOptsDon'tSign
|
||||
<|> ( SignOptsSignWithKeys
|
||||
<$> strOption
|
||||
( long "sign-with-keys"
|
||||
<> metavar "KEYS"
|
||||
<> help "TUF keys location"
|
||||
<> value "_keys"
|
||||
)
|
||||
)
|
||||
|
||||
createKeysCommand :: Parser Command
|
||||
|
Loading…
Reference in New Issue
Block a user