diff options
| author | Clint Adams <clint@debian.org> | 2012-05-21 23:33:44 -0400 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-05-22 13:25:30 -0500 |
| commit | 57b5e98c50e57aa9bfc7e71311e0999967a0e24c (patch) | |
| tree | a3fb12c628a5396effe018e58111398a03ebe4a2 /Data | |
| parent | 98b6518c73aaa805b991be548586d126f89b9bc0 (diff) | |
Parse V2 signatures the same way as V3 signatures.
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 9ddb19f..26ec335 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -403,7 +403,7 @@ parse_packet :: Word8 -> Get Packet | |||
| 403 | parse_packet 2 = do | 403 | parse_packet 2 = do |
| 404 | version <- get | 404 | version <- get |
| 405 | case version of | 405 | case version of |
| 406 | 3 -> do | 406 | _ | version `elem` [2,3] -> do |
| 407 | _ <- fmap (assertProp (==5)) (get :: Get Word8) | 407 | _ <- fmap (assertProp (==5)) (get :: Get Word8) |
| 408 | signature_type <- get | 408 | signature_type <- get |
| 409 | creation_time <- get :: Get Word32 | 409 | creation_time <- get :: Get Word32 |