diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-24 17:49:43 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-24 17:49:43 -0500 |
| commit | a47e1ba41aef9276d7654e602fd7445cad0e1355 (patch) | |
| tree | cf61c391906be8cbc68d5933b9d0dc4c52814701 /Data | |
| parent | 180158e2dfee55bbe3a098f394f0fbbab8c17208 (diff) | |
suppress warning
Diffstat (limited to 'Data')
| -rw-r--r-- | Data/OpenPGP.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 3e3eb9e..bab48a4 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -622,7 +622,7 @@ encode_s2k_count iterations | |||
| 622 | | otherwise = result | 622 | | otherwise = result |
| 623 | where | 623 | where |
| 624 | result = fromIntegral $ (fromIntegral c `shiftL` 4) .|. (count - 16) | 624 | result = fromIntegral $ (fromIntegral c `shiftL` 4) .|. (count - 16) |
| 625 | (count, c) = encode_s2k_count' (iterations `shiftR` 6) 0 | 625 | (count, c) = encode_s2k_count' (iterations `shiftR` 6) (0::Word8) |
| 626 | encode_s2k_count' count c | 626 | encode_s2k_count' count c |
| 627 | | count < 32 = (count, c) | 627 | | count < 32 = (count, c) |
| 628 | | otherwise = encode_s2k_count' (count `shiftR` 1) (c+1) | 628 | | otherwise = encode_s2k_count' (count `shiftR` 1) (c+1) |