From ebbdb6f0f798982fb337b4fd32127e4cb188aecd Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 27 Sep 2024 12:20:34 +0200
Subject: Make version picker a command

---
 lib/SlackBuilder/Config.hs | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

(limited to 'lib/SlackBuilder/Config.hs')

diff --git a/lib/SlackBuilder/Config.hs b/lib/SlackBuilder/Config.hs
index 845a2c7..31e6283 100644
--- a/lib/SlackBuilder/Config.hs
+++ b/lib/SlackBuilder/Config.hs
@@ -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")
-- 
cgit v1.2.3