diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/app/Main.hs b/app/Main.hs index df63624..fe802ad 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -353,7 +353,7 @@ import Data.Text qualified as T import Data.Text.IO qualified as T import Data.Text.Lazy qualified as LT import Data.Text.Lazy.IO qualified as LT -import History (getHistory) +import History (History (..), getHistory) import Issue (Issue (..)) import Issue qualified as I import Issue.Filter qualified as I @@ -517,7 +517,10 @@ idArg = O.strArgument ( O.metavar "ID" <> O.completer - (O.listIOCompleter $ map (T.unpack . I.id) . (._3) . last <$> getHistory) + ( O.listIOCompleter $ + map (T.unpack . I.id) . (.issues) + <$> getHistory + ) ) editFlag :: O.Parser Bool @@ -550,8 +553,7 @@ main = do . I.applyFilters filters . I.applyPath files . I.applyClosed closed - . (._3) - . last + . (.issues) <$> getHistory let groupedIssues = I.groupIssuesByTag group ungroupedIssues putDoc colorize noPager width (group, groupedIssues) @@ -561,28 +563,26 @@ main = do . I.applyFilters filters . I.applyPath files . I.applyClosed closed - . (._3) - . last + . (.issues) <$> getHistory putDoc colorize noPager width . (P.vsep . intersperse "") $ map (P.render . P.Summarized) issues Options {colorize, noPager, width, command = Log {patch}} -> do - ess <- concatMap (._2) . reverse <$> getHistory + es <- reverse . (.issueEvents) <$> getHistory putDoc colorize noPager width . P.vsep $ if patch - then map (P.render . P.Detailed) ess - else map (P.render . P.Summarized) ess + then map (P.render . P.Detailed) es + else map (P.render . P.Summarized) es Options {colorize, noPager, width, command = Show {id = Nothing}} -> do issues <- I.applySorts [] . I.applyFilters [] . I.applyClosed False - . (._3) - . last + . (.issues) <$> getHistory putDoc colorize noPager width . P.vsep $ map (showIssue issues) issues Options {colorize, noPager, width, command = Show {id = Just id, edit}} -> do - issues <- (._3) . last <$> getHistory + issues <- (.issues) <$> getHistory issue <- case find ((==) id . T.unpack . I.id) issues of Nothing -> die (printf "no issue with id `%s'\n" id) @@ -597,7 +597,7 @@ main = do I.replaceText issue =<< T.readFile fp else putDoc colorize noPager width $ showIssue issues issue Options {colorize, noPager, width, internalTags, command = Tags} -> do - issues <- (._3) . last <$> getHistory + issues <- (.issues) <$> getHistory let tags = concatMap ( \issue -> |