From fa19e9b7e8fab70d9c817890e7efe6918e49df74 Mon Sep 17 00:00:00 2001
From: Stephen Paul Weber <singpolyma@singpolyma.net>
Date: Fri, 27 Apr 2012 17:42:28 -0500
Subject: flags are bit fields

---
 Data/OpenPGP.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'Data')

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 8128a2d..bf99198 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -845,7 +845,7 @@ parse_signature_subpacket 20 = do
 	name <- fmap B.toString $ getSomeByteString $ fromIntegral m
 	value <- fmap B.toString $ getSomeByteString $ fromIntegral n
 	return $ NotationDataPacket {
-		human_readable = flag1 == 0x80,
+		human_readable = flag1 .&. 0x80 == 0x80,
 		notation_name = name,
 		notation_value = value
 	}
@@ -863,7 +863,7 @@ parse_signature_subpacket 23 = do
 	empty <- isEmpty
 	flag1 <- if empty then return 0 else get :: Get Word8
 	return $ KeyServerPreferencesPacket {
-		keyserver_no_modify = if flag1 == 0x80 then True else False
+		keyserver_no_modify = if flag1 .&. 0x80 == 0x80 then True else False
 	}
 -- PreferredKeyServerPacket, http://tools.ietf.org/html/rfc4880#section-5.2.3.18
 parse_signature_subpacket 24 =
-- 
cgit v1.2.3