diff --git a/src/Main.hs b/src/Main.hs
index 4cd6063..5937adb 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -39,13 +39,12 @@ keychainList :: IO [FilePath]
 keychainList = do
   raw <- readProcess "security" ["list-keychains"] ""
   case runParser parseKeychainList raw of
-    Just list -> return list
+    Just list -> return $ filter ((/="System") . takeBaseName) list
     Nothing   -> error "failed to parse active keychains list"
 
-getKeychain :: IO Keychain
-getKeychain = do
-  paths <- filter ((/="System") . takeBaseName) <$> keychainList
-  raw   <- readProcess "security" ("dump-keychain" : "-d" : paths) ""
+getKeychain :: [FilePath] -> IO Keychain
+getKeychain paths = do
+  raw <- readProcess "security" ("dump-keychain" : "-d" : paths) ""
   case runParser parseKeychain raw of
     Just items -> return items
     Nothing    -> error "failed to parse keychain"