From ff5c89ee76c707228afc66afac573c6fd0efffa3 Mon Sep 17 00:00:00 2001
From: Joe Crayne <joe@jerkface.net>
Date: Sat, 16 May 2020 08:32:17 -0400
Subject: Refactor toward draft-ietf-openpgp-rfc4880bis-09.

---
 Data/OpenPGP/Util/Base.hs | 3 ---
 1 file changed, 3 deletions(-)

(limited to 'Data/OpenPGP/Util/Base.hs')

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)
     curve = curveFromOID (keyParam 'c' k)
 
 
-toStrictBS :: LZ.ByteString -> BS.ByteString
-toStrictBS = BS.concat . LZ.toChunks
-
 toLazyBS :: BS.ByteString -> LZ.ByteString
 toLazyBS = LZ.fromChunks . (:[])
 
-- 
cgit v1.2.3