mkPassPrompt' :: (IO String) -> PromptLabel -> (String -> X ()) -> XPConfig -> X ()
mkPassPrompt' dir promptLabel passwordFunction xpconfig = do
  passwords <- io (dir >>= getPasswords)
  mkXPrompt (Pass promptLabel) xpconfig (mkComplFunFromList passwords) passwordFunction
mkPassPrompt' :: (IO String) -> PromptLabel -> (String -> X ()) -> XPConfig -> X ()
mkPassPrompt' dir promptLabel passwordFunction xpconfig = do
  passwords <- io (dir >>= getPasswords)
  mkXPrompt (Pass promptLabel) xpconfig (mkComplFunFromList passwords) passwordFunction
mkPassPrompt' dir promptLabel passwordFunction xpconfig = do
  passwords <- io (dir >>= getPasswords)
  mkXPrompt (Pass promptLabel) xpconfig (mkComplFunFromList passwords) passwordFunction