Rename selectPassword to copyPassword

This commit is contained in:
Martin Potier 2019-09-25 10:03:38 +03:00
parent 1fba240b51
commit c0dba2d167
No known key found for this signature in database
GPG key ID: D4DD957DBA4AD89E

View file

@ -33,7 +33,7 @@ passGeneratePrompt :: XPConfig -> X ()
passGeneratePrompt _ = return () -- Not implemented
passPrompt :: XPConfig -> X ()
passPrompt = mkPassPrompt "Select password" selectPassword
passPrompt = mkPassPrompt "Select password" copyPassword
mkPassPrompt :: String -> (String -> X ()) -> XPConfig -> X ()
mkPassPrompt label f conf = do
@ -51,6 +51,5 @@ mkPassPrompt label f conf = do
files <- runProcessWithInput "find" [ passwordStoreDir, "-type", "f", "-name", "*.gpg", "-printf", "%p\n"] []
return . lines $ files
selectPassword :: String -> X ()
selectPassword pass = spawn $ "gpg --decrypt " ++ pass ++ " | /home/eeva/.nix-profile/bin/copy"
copyPassword :: String -> X ()
copyPassword pass = spawn $ "gpg --decrypt " ++ pass ++ " | /home/eeva/.nix-profile/bin/copy"