From 43ebbc5e6705d2cf86650f1918e28b9b7e94406d Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Wed, 9 Aug 2023 20:59:42 +0200
Subject: Use TOML configuration

---
 app/Main.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'app/Main.hs')

diff --git a/app/Main.hs b/app/Main.hs
index ac1aae2..7e821e5 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -6,14 +6,23 @@ import qualified Data.Text.IO as Text.IO
 import Data.Maybe (fromMaybe)
 import Options.Applicative (execParser)
 import SlackBuilder.CommandLine
+import SlackBuilder.Config
 import SlackBuilder.Updater
+import qualified Toml
+import qualified Data.Text as Text
 
 main :: IO ()
 main = do
     programCommand <- execParser slackBuilderParser
+    settings <- Toml.decodeFile settingsCodec "config/config.toml"
     latestVersion <- case programCommand of
         PackagistCommand packagistArguments ->
             latestPackagist packagistArguments
         TextCommand textArguments -> latestText textArguments
+        GhCommand ghArguments -> latestGitHub settings ghArguments (stripPrefix "v")
 
     Text.IO.putStrLn $ fromMaybe "" latestVersion
+  where
+    stripPrefix prefix string = Just
+        $ fromMaybe string
+        $ Text.stripPrefix prefix string
-- 
cgit v1.2.3