Better error message.

1 files changed, 5 insertions, 3 deletions

diff --git a/kiki.hs b/kiki.hs
index 3f1843f..a662ef5 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1045,13 +1045,15 @@ sync bExport bImport bSecret cmdarg args_raw = do
     -- putStrLn $ "margs = " ++ show (Map.assocs margs)
     unkeysRef <- newIORef Map.empty
     pwRef <- newIORef Nothing
-    let keypairs0 = parseKeySpecs (fromMaybe [] $ Map.lookup "--pems" margs)
+    let keypairs0 = parseKeySpecs specs
+        specs     = fromMaybe [] $ Map.lookup "--pems" margs
         keyrings_ = fromMaybe [] $ Map.lookup "--keyrings" margs
         wallets   = fromMaybe [] $ Map.lookup "--wallets" margs
         passphrase_fd = concat <$> Map.lookup "--passphrase-fd" margs
 
-    when (any isNothing keypairs0) $ do
-        warn "Syntax error in key pair specification"
+    forM_ (take 1 $ filter (isNothing . fst)
+                  $ zip keypairs0 specs      ) $ \(_,badspec) -> do
+        warn $ "Syntax error in key pair specification " ++ show badspec
         exitFailure
 
     input_key <- maybe (return Nothing)