Refactor toward draft-ietf-openpgp-rfc4880bis-09.

1 files changed, 0 insertions, 7 deletions

diff --git a/Data/OpenPGP.hs b/Data/OpenPGP.hs
index 4133f38..f05f83e 100644
--- a/Data/OpenPGP.hs
+++ b/Data/OpenPGP.hs
@@ -129,9 +129,6 @@ compress algo = toStrictBS . lazyCompress algo . toLazyBS
 decompress :: CompressionAlgorithm -> B.ByteString -> B.ByteString
 decompress algo = toStrictBS . lazyDecompress algo . toLazyBS
 
-toStrictBS :: LZ.ByteString -> B.ByteString
-toStrictBS = B.concat . LZ.toChunks
-
 toLazyBS :: B.ByteString -> LZ.ByteString
 toLazyBS = LZ.fromChunks . (:[])
 
@@ -194,10 +191,6 @@ pad l s = replicate (l - length s) '0' ++ s
 padBS :: Int -> B.ByteString -> B.ByteString
 padBS l s = B.replicate (fromIntegral l - B.length s) 0 `B.append` s
 
-checksum :: B.ByteString -> Word16
-checksum = fromIntegral .
-        B.foldl (\c i -> (c + fromIntegral i) `mod` 65536) (0::Integer)
-
 data Packet =
         AsymmetricSessionKeyPacket {
                 version        :: Word8,