From 73b53cc317c9813bfeb5cb1a450845f0a6fb6d03 Mon Sep 17 00:00:00 2001 From: Adam Vogt Date: Fri, 13 Mar 2015 02:56:36 +0100 Subject: address warnings in P.Pass Ignore-this: 52e03c09c4d5339085e0306044de8977 darcs-hash:20150313015636-1499c-a5e6a9954f079f1c7e973eee0aa96372b4cab6c1.gz --- XMonad/Prompt/Pass.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/XMonad/Prompt/Pass.hs b/XMonad/Prompt/Pass.hs index 099a1a6..4c07696 100644 --- a/XMonad/Prompt/Pass.hs +++ b/XMonad/Prompt/Pass.hs @@ -49,8 +49,8 @@ import XMonad.Prompt ( XPrompt , XPConfig , mkXPrompt , mkComplFunFromList) -import System.Directory (getDirectoryContents, getHomeDirectory) -import System.FilePath (takeBaseName, takeExtension, dropExtension, combine) +import System.Directory (getHomeDirectory) +import System.FilePath (takeExtension, dropExtension, combine) import System.Posix.Env (getEnv) import XMonad.Util.Run (runProcessWithInput) @@ -138,6 +138,7 @@ removePassword :: String -> X () removePassword passLabel = spawn $ "pass rm --force " ++ passLabel -- | Retrieve the list of passwords from the password storage 'passwordStoreDir +getPasswords :: FilePath -> IO [String] getPasswords passwordStoreDir = do files <- runProcessWithInput "find" [ passwordStoreDir, -- cgit v1.2.3