From ccb71807423d306d0718e9f2a7189a4a3fdebe79 Mon Sep 17 00:00:00 2001
From: LLLL Colonq <llll@colonq>
Date: Tue, 3 Jun 2025 02:37:51 -0400
Subject: Remove bullfrog

---
 .../src/Fig/Monitor/Bullfrog/Utils.hs              | 29 ----------------------
 1 file changed, 29 deletions(-)
 delete mode 100644 fig-monitor-bullfrog/src/Fig/Monitor/Bullfrog/Utils.hs

(limited to 'fig-monitor-bullfrog/src/Fig/Monitor/Bullfrog')

diff --git a/fig-monitor-bullfrog/src/Fig/Monitor/Bullfrog/Utils.hs b/fig-monitor-bullfrog/src/Fig/Monitor/Bullfrog/Utils.hs
deleted file mode 100644
index b0ae02b..0000000
--- a/fig-monitor-bullfrog/src/Fig/Monitor/Bullfrog/Utils.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-{-# Language ApplicativeDo #-}
-
-module Fig.Monitor.Bullfrog.Utils
-  ( FigMonitorBullfrogException(..)
-  , Config(..)
-  , loadConfig
-  ) where
-
-import Fig.Prelude
-
-import qualified Toml
-
-newtype FigMonitorBullfrogException = FigMonitorBullfrogException Text
-  deriving (Show, Eq, Ord)
-instance Exception FigMonitorBullfrogException
-
-newtype Config = Config
-  { authToken :: Text
-  } deriving (Show, Eq, Ord)
-
-configCodec :: Toml.TomlCodec Config
-configCodec = do
-  authToken <- Toml.text "auth_token" Toml..= (\a -> a.authToken)
-  pure $ Config{..}
-
-loadConfig :: FilePath -> IO Config
-loadConfig path = Toml.decodeFileEither configCodec path >>= \case
-  Left err -> throwM . FigMonitorBullfrogException $ tshow err
-  Right config -> pure config
-- 
cgit v1.2.3