Make version picker a command
All checks were successful
Build / audit (push) Successful in 8s
Build / test (push) Successful in 15m28s

This commit is contained in:
2024-09-27 12:20:34 +02:00
parent f758ea7904
commit ebbdb6f0f7
3 changed files with 28 additions and 30 deletions

View File

@@ -35,7 +35,7 @@ data PackageSettings = PackageSettings
, is64 :: Bool
, github :: Maybe (Text, Text)
, packagist :: Maybe (Text, Text)
, text :: Maybe Text
, text :: Maybe (Text, [String])
} deriving (Eq, Show)
settingsCodec :: Toml.TomlCodec Settings
@@ -57,6 +57,10 @@ packageSettingsCodec = PackageSettings
<$> Toml.text "name" .= name
<*> Toml.text "template" .= template
<*> Toml.bool "is64" .= is64
<*> Toml.dioptional (flip Toml.table "github" $ Toml.pair (Toml.text "owner") (Toml.text "name")) .= github
<*> Toml.dioptional (flip Toml.table "packagist" $ Toml.pair (Toml.text "owner") (Toml.text "name")) .= packagist
<*> Toml.dioptional (flip Toml.table "text" $ Toml.text "url") .= text
<*> Toml.dioptional (Toml.table githubCodec "github") .= github
<*> Toml.dioptional (Toml.table packagistCodec "packagist") .= packagist
<*> Toml.dioptional (Toml.table textCodec "text") .= text
where
githubCodec = Toml.pair (Toml.text "owner") (Toml.text "name")
packagistCodec = Toml.pair (Toml.text "owner") (Toml.text "name")
textCodec = Toml.pair (Toml.text "url") (Toml.arrayOf Toml._String "picker")