diff options
author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-08 23:31:03 -0500 |
---|---|---|
committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2011-08-08 23:31:03 -0500 |
commit | f3ae8c4ff4494cc97dbd42be5a2a4775e4844c35 (patch) | |
tree | 8f039a13e366e83305c34f3da8a5a1595cf8c954 /Data/OpenPGP.hs | |
parent | d236fa95573aa816c777a7e74df3aac10634a8de (diff) |
Haskel98 parsing compat
Diffstat (limited to 'Data/OpenPGP.hs')
-rw-r--r-- | Data/OpenPGP.hs | 18 |
1 files 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 | |||
326 | return (k s2k_useage undefined undefined undefined undefined) | 326 | return (k s2k_useage undefined undefined undefined undefined) |
327 | _ -> | 327 | _ -> |
328 | return (k undefined undefined undefined undefined undefined) | 328 | return (k undefined undefined undefined undefined undefined) |
329 | if s2k_useage > 0 then do | 329 | if s2k_useage > 0 then do { |
330 | encrypted <- getRemainingLazyByteString | 330 | encrypted <- getRemainingLazyByteString; |
331 | return (k' encrypted undefined) | 331 | return (k' encrypted undefined) |
332 | else do | 332 | } else do |
333 | key <- foldM (\m f -> do | 333 | key <- foldM (\m f -> do |
334 | mpi <- get :: Get MPI | 334 | mpi <- get :: Get MPI |
335 | return $ Map.insert f mpi m) key (secret_key_fields algorithm) | 335 | return $ Map.insert f mpi m) key (secret_key_fields algorithm) |
@@ -475,9 +475,9 @@ instance Binary Message where | |||
475 | put (Message xs) | 475 | put (Message xs) |
476 | get = do | 476 | get = do |
477 | done <- isEmpty | 477 | done <- isEmpty |
478 | if done then do | 478 | if done then do { |
479 | return (Message []) | 479 | return (Message []); |
480 | else do | 480 | } else do |
481 | next_packet <- get :: Get Packet | 481 | next_packet <- get :: Get Packet |
482 | (Message tail) <- get :: Get Message | 482 | (Message tail) <- get :: Get Message |
483 | return (Message (next_packet:tail)) | 483 | return (Message (next_packet:tail)) |
@@ -554,9 +554,9 @@ put_signature_subpacket (IssuerPacket keyid) = | |||
554 | get_signature_subpackets :: Get [SignatureSubpacket] | 554 | get_signature_subpackets :: Get [SignatureSubpacket] |
555 | get_signature_subpackets = do | 555 | get_signature_subpackets = do |
556 | done <- isEmpty | 556 | done <- isEmpty |
557 | if done then do | 557 | if done then do { |
558 | return [] | 558 | return []; |
559 | else do | 559 | } else do |
560 | next_packet <- get :: Get SignatureSubpacket | 560 | next_packet <- get :: Get SignatureSubpacket |
561 | tail <- get_signature_subpackets | 561 | tail <- get_signature_subpackets |
562 | return (next_packet:tail) | 562 | return (next_packet:tail) |