From 1b3f67199ef1c6120570316b8cddb764502809d1 Mon Sep 17 00:00:00 2001
From: Martin Potier <martin.potier@marvid.fr>
Date: Wed, 14 Apr 2021 12:33:09 +0300
Subject: [PATCH] New project, limit passwords

---
 lib/Password.hs | 2 +-
 lib/Projects.hs | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/Password.hs b/lib/Password.hs
index 48f408f..772ac23 100644
--- a/lib/Password.hs
+++ b/lib/Password.hs
@@ -40,7 +40,7 @@ mkPassPrompt label f conf = do
   -- I'm just sorting here, but could use some kind of fuzzy matching instead, but it requires a bit more effort
   passwords <- sort <$> liftIO getPasswords
   -- Other change, use infixof instead of prefixof
-  mkXPrompt (Pass label) conf (\input -> pure (sortBy (compare `on` levenshtein input) . filter (consumes input) $ passwords)) f
+  mkXPrompt (Pass label) conf (\input -> pure (sortBy (compare `on` levenshtein input) . take 5 . filter (consumes input) $ passwords)) f
   where
     consumes [] _ = True -- everything consumed
     consumes (_:_) [] = False -- all not consumed
diff --git a/lib/Projects.hs b/lib/Projects.hs
index ebef8c3..c732404 100644
--- a/lib/Projects.hs
+++ b/lib/Projects.hs
@@ -37,6 +37,7 @@ projects =  [ adminProject "wrk-config"
             , adminProject "cdc-config"
             , adminProject "overlays-personal"
             , candyProject "dhall-packages"
+            , candyProject "hfdb"
             , spinChat "element"
             , spinChat "wire"
             , spinChat "signal"