From eafb51959225d871b94136b7b02c5cf7752d49be Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Sun, 17 Apr 2011 11:09:33 -0400
Subject: [PATCH] hmacSha1 wants the secret key as first parameter

I was offline last night and going by function signatures, and unable to
tell which was which. Note sure it matters to HMAC which comes first;
better safe than sorry.
---
 Crypto.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Crypto.hs b/Crypto.hs
index e42a21e282..12c70ef048 100644
--- a/Crypto.hs
+++ b/Crypto.hs
@@ -131,8 +131,8 @@ encryptKey :: Cipher -> Key -> IO Key
 encryptKey c k =
 	return Key {
 		keyName = showDigest $ hmacSha1
-			(fromString $ show k)
-			(fromString $ cipherHmac c),
+			(fromString $ cipherHmac c)
+			(fromString $ show k),
 		keyBackendName = "GPGHMACSHA1",
 		keySize = Nothing, -- size and mtime omitted
 		keyMtime = Nothing -- to avoid leaking data