From 06fa97bfcf255fd033d3b5bd77d77d68ec8beef6 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Tue, 18 Feb 2025 11:57:18 +0100
Subject: tea-cleaner: Read configuration file

---
 tea-cleaner/TeaCleaner/CommandLine.hs | 45 -----------------------------------
 1 file changed, 45 deletions(-)
 delete mode 100644 tea-cleaner/TeaCleaner/CommandLine.hs

(limited to 'tea-cleaner/TeaCleaner/CommandLine.hs')

diff --git a/tea-cleaner/TeaCleaner/CommandLine.hs b/tea-cleaner/TeaCleaner/CommandLine.hs
deleted file mode 100644
index b74263d..0000000
--- a/tea-cleaner/TeaCleaner/CommandLine.hs
+++ /dev/null
@@ -1,45 +0,0 @@
-module TeaCleaner.CommandLine
-    ( ProgramOptions(..)
-    , commandLineInfo
-    , execParser
-    ) where
-
-import Data.Text (Text)
-import Options.Applicative
-    ( Parser
-    , ParserInfo
-    , (<**>)
-    , argument
-    , execParser
-    , fullDesc
-    , help
-    , helper
-    , info
-    , long
-    , metavar
-    , progDesc
-    , str
-    , switch
-    )
-
-data ProgramOptions = ProgramOptions
-    { server :: Text
-    , token :: Text
-    , liveRun :: Bool
-    } deriving (Eq, Show)
-
-commandLineInfo :: ParserInfo ProgramOptions
-commandLineInfo = info (commandLine <**> helper)
-    $ fullDesc <> progDesc "Helps to detect some spam gitea accounts"
-
-commandLine :: Parser ProgramOptions
-commandLine = ProgramOptions
-    <$> serverOption
-    <*> tokenOption
-    <*> liveRunOption
-  where
-    serverOption = argument str
-        $ metavar "SERVER" <> help "Gitea server URL"
-    tokenOption = argument str
-        $ metavar "TOKEN" <> help "Access token"
-    liveRunOption = switch $ long "live-run" <> help "Purge suspicious users"
-- 
cgit v1.2.3