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"