From e1eb6c363cc79747931a960a465a34fb084c9c02 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Fri, 15 Dec 2023 03:14:35 +0100
Subject: chore: drop global option `internalTags`
---
app/Main.hs | 23 ++---------------------
1 file changed, 2 insertions(+), 21 deletions(-)
(limited to 'app')
diff --git a/app/Main.hs b/app/Main.hs
index 06b326c..fe031af 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -353,7 +353,6 @@ import Prelude hiding (id)
data Options = Options
{ command :: Command,
- internalTags :: Bool,
colorize :: Color,
noPager :: Bool,
width :: Maybe Int
@@ -369,18 +368,10 @@ options :: O.Parser Options
options =
Options
<$> cmd
- <*> internalTagsFlag
<*> colorOption
<*> noPagerFlag
<*> widthOption
-internalTagsFlag :: O.Parser Bool
-internalTagsFlag =
- O.switch
- ( O.long "internal-tags"
- <> O.help "Whether to display internal tags."
- )
-
colorOption :: O.Parser Color
colorOption =
O.option
@@ -584,19 +575,9 @@ main = do
if edit
then editIssues [issue]
else putDoc colorize noPager width $ showIssue (M.elems issues) issue
- Options {colorize, noPager, width, internalTags, command = Tags} -> do
+ Options {colorize, noPager, width, command = Tags} -> do
issues <- (.issues) <$> H.getIssues
- let tags =
- concatMap
- ( \issue ->
- issue.tags
- ++ ( if internalTags
- then issue.internalTags
- else []
- )
- )
- issues
- putDoc colorize noPager width tags
+ putDoc colorize noPager width $ concatMap (.tags) issues
Options {colorize, noPager, width, command = Search {pattern, closed, detailed}} -> do
issues <-
I.applyClosed closed
--
cgit v1.2.3