chore: make issue ids obligatory

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