diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/app/Main.hs b/app/Main.hs index 26e3401..70ebf5e 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -410,6 +410,7 @@ import System.IO.Temp (withSystemTempFile) import System.Process.Typed qualified as P import Text.Printf import TreeGrepper.Match qualified as G +import Tuple () import Prelude hiding (id) data Options = Options @@ -545,7 +546,7 @@ idArg = O.strArgument ( O.metavar "ID" <> O.completer - (O.listIOCompleter $ catMaybes . map I.id . trd3 . last <$> getHistory) + (O.listIOCompleter $ catMaybes . map I.id . (._3) . last <$> getHistory) ) editFlag :: O.Parser Bool @@ -571,7 +572,7 @@ main = do . applyFilters filters . filter withinPath . applyClosed closed - . trd3 + . (._3) . last <$> getHistory let groupedIssues = I.groupIssuesBy group ungroupedIssues @@ -618,7 +619,7 @@ main = do . applyFilters filters . filter withinPath . applyClosed closed - . trd3 + . (._3) . last <$> getHistory putDoc colorize noPager width . P.vsep $ @@ -659,7 +660,7 @@ main = do ) (reverse ess') Options {colorize, width, command = Show {id, edit}} -> do - issues <- trd3 . last <$> getHistory + issues <- (._3) . last <$> getHistory issue <- case find ((==) (Just id) . I.id) issues of Nothing -> die (printf "no issue with id `%s'\n" id) @@ -730,7 +731,7 @@ main = do ) meta.referencedBy Options {colorize, noPager, width, internalTags, command = Tags} -> do - issues <- trd3 . last <$> getHistory + issues <- (._3) . last <$> getHistory let tags = concatMap ( \issue -> @@ -819,6 +820,3 @@ putDoc colorize noPager width doc = do else LT.putStr s foreign import ccall "unistd.h isatty" c_isatty :: Int -> IO Int - -trd3 :: (a, b, c) -> c -trd3 (_, _, c) = c |