diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/app/Main.hs b/app/Main.hs index 70ebf5e..737becc 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -376,7 +376,7 @@ import Data.Function ((&)) import Data.List (find, intersperse, isPrefixOf) import Data.List.Extra (list) import Data.Map qualified as M -import Data.Maybe (catMaybes, maybeToList) +import Data.Maybe (maybeToList) import Data.Set qualified as S import Data.Text qualified as T import Data.Text.IO qualified as T @@ -546,7 +546,7 @@ idArg = O.strArgument ( O.metavar "ID" <> O.completer - (O.listIOCompleter $ catMaybes . map I.id . (._3) . last <$> getHistory) + (O.listIOCompleter $ map (T.unpack . I.id) . (._3) . last <$> getHistory) ) editFlag :: O.Parser Bool @@ -662,7 +662,7 @@ main = do Options {colorize, width, command = Show {id, edit}} -> do issues <- (._3) . last <$> getHistory issue <- - case find ((==) (Just id) . I.id) issues of + case find ((==) id . T.unpack . I.id) issues of Nothing -> die (printf "no issue with id `%s'\n" id) Just issue -> pure issue let meta = I.getMeta issues issue |