Support modifying reuploaded tarballs

This commit is contained in:
2023-10-08 12:28:46 +02:00
parent f3beee3e19
commit 5e161c3dad
8 changed files with 115 additions and 56 deletions

View File

@@ -17,10 +17,8 @@ data Settings = Settings
, maintainer :: MaintainerSettings
} deriving (Eq, Show)
data MaintainerSettings = MaintainerSettings
{ name :: !Text
, email :: !Text
, signature :: !Bool
newtype MaintainerSettings = MaintainerSettings
{ signature :: Bool
} deriving (Eq, Show)
settingsCodec :: Toml.TomlCodec Settings
@@ -34,6 +32,4 @@ settingsCodec = Settings
maintainerSettingsCodec :: Toml.TomlCodec MaintainerSettings
maintainerSettingsCodec = MaintainerSettings
<$> Toml.text "name" .= name
<*> Toml.text "email" .= email
<*> Toml.bool "signature" .= signature
<$> Toml.bool "signature" .= signature