diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-25 15:06:39 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-25 15:06:39 -0500 |
| commit | 9320bdfde1cceb3db19bb44ad2522e9f57d7b475 (patch) | |
| tree | 7e472f8d1326c29a85e3f4639e3c3637d67eab67 /Data/OpenPGP | |
| parent | 945512be4374fd48bfe09ca4018fc5fe94d3f26e (diff) | |
hlint
Diffstat (limited to 'Data/OpenPGP')
| -rw-r--r-- | Data/OpenPGP/Crypto.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP/Crypto.hs b/Data/OpenPGP/Crypto.hs index 052489d..5049d00 100644 --- a/Data/OpenPGP/Crypto.hs +++ b/Data/OpenPGP/Crypto.hs | |||
| @@ -127,7 +127,7 @@ sign keys message hsh keyid timestamp = | |||
| 127 | LZ.fromString firstUserID | 127 | LZ.fromString firstUserID |
| 128 | ] | 128 | ] |
| 129 | } `LZ.append` OpenPGP.trailer sig | 129 | } `LZ.append` OpenPGP.trailer sig |
| 130 | sig = (findSigOrDefault (find OpenPGP.isSignaturePacket m)) | 130 | sig = findSigOrDefault (find OpenPGP.isSignaturePacket m) |
| 131 | 131 | ||
| 132 | -- Either a SignaturePacket was found, or we need to make one | 132 | -- Either a SignaturePacket was found, or we need to make one |
| 133 | findSigOrDefault (Just s) = OpenPGP.signaturePacket | 133 | findSigOrDefault (Just s) = OpenPGP.signaturePacket |