diff options
| author | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-25 11:19:10 -0500 |
|---|---|---|
| committer | Stephen Paul Weber <singpolyma@singpolyma.net> | 2012-04-25 11:19:10 -0500 |
| commit | 4e01c764e40a1c7ba45ed1e0d1a44677338ac549 (patch) | |
| tree | 13e65931f9af2d73af53d8a5c31db2cf87b2bc43 /Data | |
| parent | b3a00a8206490fdf92762b1db86a06348582b4f7 (diff) | |
better TODO error
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 b77b36d..54fc132 100644 --- a/Data/OpenPGP.hs +++ b/Data/OpenPGP.hs | |||
| @@ -306,7 +306,7 @@ parse_packet :: Word8 -> Get Packet | |||
| 306 | parse_packet 2 = do | 306 | parse_packet 2 = do |
| 307 | version <- get | 307 | version <- get |
| 308 | case version of | 308 | case version of |
| 309 | 3 -> undefined -- TODO: V3 sigs | 309 | 3 -> error "V3 signatures are not supported yet" -- TODO: V3 sigs |
| 310 | 4 -> do | 310 | 4 -> do |
| 311 | signature_type <- get | 311 | signature_type <- get |
| 312 | key_algorithm <- get | 312 | key_algorithm <- get |