diff options
author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-30 08:51:09 -0500 |
---|---|---|
committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-30 08:51:09 -0500 |
commit | 9877a30e04b83d8ed24aee704ffe150dd0678d8d (patch) | |
tree | c959d0fe6f2e0e74f23c11270972ec4c828558ce /Data | |
parent | 7f3399b05626d1e7fb35a615702810e37781f83b (diff) |
do not use if returning Bool
Diffstat (limited to 'Data')
-rw-r--r-- | Data/OpenPGP.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index ea0d19f..a9a5b4e 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
@@ -881,7 +881,7 @@ parse_signature_subpacket 12 = do | |||
881 | fpr <- getSomeByteString 20 | 881 | fpr <- getSomeByteString 20 |
882 | -- bitfield must have bit 0x80 set, says the spec | 882 | -- bitfield must have bit 0x80 set, says the spec |
883 | return $ RevocationKeyPacket { | 883 | return $ RevocationKeyPacket { |
884 | sensitive = if bitfield .&. 0x40 == 0x40 then True else False, | 884 | sensitive = bitfield .&. 0x40 == 0x40, |
885 | revocation_key_algorithm = kalgo, | 885 | revocation_key_algorithm = kalgo, |
886 | revocation_key_fingerprint = | 886 | revocation_key_fingerprint = |
887 | pad $ map toUpper $ foldr (padB `oo` showHex) "" (B.unpack fpr) | 887 | pad $ map toUpper $ foldr (padB `oo` showHex) "" (B.unpack fpr) |
@@ -922,7 +922,7 @@ parse_signature_subpacket 23 = do | |||
922 | empty <- isEmpty | 922 | empty <- isEmpty |
923 | flag1 <- if empty then return 0 else get :: Get Word8 | 923 | flag1 <- if empty then return 0 else get :: Get Word8 |
924 | return $ KeyServerPreferencesPacket { | 924 | return $ KeyServerPreferencesPacket { |
925 | keyserver_no_modify = if flag1 .&. 0x80 == 0x80 then True else False | 925 | keyserver_no_modify = flag1 .&. 0x80 == 0x80 |
926 | } | 926 | } |
927 | -- PreferredKeyServerPacket, http://tools.ietf.org/html/rfc4880#section-5.2.3.18 | 927 | -- PreferredKeyServerPacket, http://tools.ietf.org/html/rfc4880#section-5.2.3.18 |
928 | parse_signature_subpacket 24 = | 928 | parse_signature_subpacket 24 = |