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.

1 files changed, 2 insertions, 2 deletions

diff --git a/Crypto.hs b/Crypto.hs
index e42a21e28..12c70ef04 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