From f3ae8c4ff4494cc97dbd42be5a2a4775e4844c35 Mon Sep 17 00:00:00 2001 From: Stephen Paul Weber Date: Mon, 8 Aug 2011 23:31:03 -0500 Subject: Haskel98 parsing compat --- Data/OpenPGP.hs | 18 +++++++++--------- 1 file changed, 9 insertions(+), 9 deletions(-) diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs index 1c76202..c285127 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs @@ -326,10 +326,10 @@ parse_packet 5 = do return (k s2k_useage undefined undefined undefined undefined) _ -> return (k undefined undefined undefined undefined undefined) - if s2k_useage > 0 then do - encrypted <- getRemainingLazyByteString + if s2k_useage > 0 then do { + encrypted <- getRemainingLazyByteString; return (k' encrypted undefined) - else do + } else do key <- foldM (\m f -> do mpi <- get :: Get MPI return $ Map.insert f mpi m) key (secret_key_fields algorithm) @@ -475,9 +475,9 @@ instance Binary Message where put (Message xs) get = do done <- isEmpty - if done then do - return (Message []) - else do + if done then do { + return (Message []); + } else do next_packet <- get :: Get Packet (Message tail) <- get :: Get Message return (Message (next_packet:tail)) @@ -554,9 +554,9 @@ put_signature_subpacket (IssuerPacket keyid) = get_signature_subpackets :: Get [SignatureSubpacket] get_signature_subpackets = do done <- isEmpty - if done then do - return [] - else do + if done then do { + return []; + } else do next_packet <- get :: Get SignatureSubpacket tail <- get_signature_subpackets return (next_packet:tail) -- cgit v1.2.3