From 822fe0e054265ada35a0f9b4a7305fd97a477375 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Wed, 27 Dec 2023 03:22:55 +0100
Subject: chore: add @topic to issues

---
 app/Prompt.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'app/Prompt.hs')

diff --git a/app/Prompt.hs b/app/Prompt.hs
index 0548c80..4a9b725 100644
--- a/app/Prompt.hs
+++ b/app/Prompt.hs
@@ -34,6 +34,8 @@ help h (Choice c _ q as) = Choice c (Just h) q as
 help h (String c _ q as) = String c (Just h) q as
 
 -- TODO add `compact`
+--
+-- @topic prompt
 compact :: Prompt a -> Prompt a
 compact (Choice _ h' q as) = Choice True h' q as
 compact (String _ h' q as) = String True h' q as
@@ -49,6 +51,8 @@ instance Promptable String where
 prompt :: (Eq a, Promptable a) => Prompt a -> IO a
 prompt p@(Choice c h' q as) = do
   -- TODO add `help`
+  --
+  -- @topic prompt
   let p' = String c Nothing q (map toString (N.toList as))
   a' <- fromString <$> prompt p'
   if isNothing a' || not (a' `elem` (map Just (N.toList as)))
-- 
cgit v1.2.3