From c2b98ba395aa486c18fa002175d93aa789b231d6 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Mon, 28 Aug 2023 21:05:47 +0200
Subject: Reimplement the info file printer

---
 app/SlackBuilder/Config.hs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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

diff --git a/app/SlackBuilder/Config.hs b/app/SlackBuilder/Config.hs
index d7652e8..c2a7f0b 100644
--- a/app/SlackBuilder/Config.hs
+++ b/app/SlackBuilder/Config.hs
@@ -1,5 +1,6 @@
 module SlackBuilder.Config
     ( Settings(..)
+    , MaintainerSettings(..)
     , settingsCodec
     ) where
 
@@ -13,6 +14,12 @@ data Settings = Settings
     , branch :: Text
     , downloadURL :: Text
     , remotePath :: Text
+    , maintainer :: MaintainerSettings
+    } deriving (Eq, Show)
+
+data MaintainerSettings = MaintainerSettings
+    { name :: !Text
+    , email :: !Text
     } deriving (Eq, Show)
 
 settingsCodec :: Toml.TomlCodec Settings
@@ -22,3 +29,9 @@ settingsCodec = Settings
     <*> Toml.text "branch" .= branch
     <*> Toml.text "download_url" .= downloadURL
     <*> Toml.text "remote_path" .= remotePath
+    <*> Toml.table maintainerSettingsCodec "maintainer" .= maintainer
+
+maintainerSettingsCodec :: Toml.TomlCodec MaintainerSettings
+maintainerSettingsCodec = MaintainerSettings
+    <$> Toml.text "name" .= name
+    <*> Toml.text "email" .= email
-- 
cgit v1.2.3