diff options
| author | Joe Crayne <joe@jerkface.net> | 2020-05-16 08:32:17 -0400 |
|---|---|---|
| committer | Joe Crayne <joe@jerkface.net> | 2020-05-19 11:58:22 -0400 |
| commit | ff5c89ee76c707228afc66afac573c6fd0efffa3 (patch) | |
| tree | 93b3ab9bcfe674582895eea8c0ce6b9eff88f558 /Data/OpenPGP/Util/Base.hs | |
| parent | 8fdfd0fc119519041683bc74e9d7a35231728ae3 (diff) | |
Refactor toward draft-ietf-openpgp-rfc4880bis-09.
Diffstat (limited to 'Data/OpenPGP/Util/Base.hs')
| -rw-r--r-- | Data/OpenPGP/Util/Base.hs | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/Data/OpenPGP/Util/Base.hs b/Data/OpenPGP/Util/Base.hs index b43427c..431c12c 100644 --- a/Data/OpenPGP/Util/Base.hs +++ b/Data/OpenPGP/Util/Base.hs | |||
| @@ -76,9 +76,6 @@ ecdsaKey k = Vincent.ECDSA.PublicKey curve (Vincent.ECDSA.Point x y) | |||
| 76 | curve = curveFromOID (keyParam 'c' k) | 76 | curve = curveFromOID (keyParam 'c' k) |
| 77 | 77 | ||
| 78 | 78 | ||
| 79 | toStrictBS :: LZ.ByteString -> BS.ByteString | ||
| 80 | toStrictBS = BS.concat . LZ.toChunks | ||
| 81 | |||
| 82 | toLazyBS :: BS.ByteString -> LZ.ByteString | 79 | toLazyBS :: BS.ByteString -> LZ.ByteString |
| 83 | toLazyBS = LZ.fromChunks . (:[]) | 80 | toLazyBS = LZ.fromChunks . (:[]) |
| 84 | 81 | ||