S3: Fix irrefutable pattern failure when accessing encrypted S3 credentials.

1 files changed, 6 insertions, 3 deletions

diff --git a/Remote/S3.hs b/Remote/S3.hs
index 2ef96dbda..c9527ba67 100644
--- a/Remote/S3.hs
+++ b/Remote/S3.hs
@@ -289,12 +289,15 @@ s3GetCreds c = maybe fromconfig (return . Just) =<< liftIO getenv
 					liftIO $ decrypt s3creds cipher
 				_ -> return Nothing
 		decrypt s3creds cipher = do
-			[ak, sk, _rest] <- lines <$>
+			creds <- lines <$>
 				withDecryptedContent cipher
 					(return $ L.pack $ fromB64 s3creds)
 					(return . L.unpack)
-			setenv (ak, sk)
-			return $ Just (ak, sk)
+			case creds of
+				[ak, sk] -> do
+					setenv (ak, sk)
+					return $ Just (ak, sk)
+				_ -> do error "bad s3creds"
 
 {- Stores S3 creds encrypted in the remote's config if possible. -}
 s3SetCreds :: RemoteConfig -> Annex RemoteConfig