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/Sign.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/Data/OpenPGP/Util/Sign.hs b/Data/OpenPGP/Util/Sign.hs
index b9c6435..a074dcb 100644
--- a/Data/OpenPGP/Util/Sign.hs
+++ b/Data/OpenPGP/Util/Sign.hs
@@ -113,7 +113,7 @@ unsafeSign keys over hsh keyid timestamp g = (over {OpenPGP.signatures_over = [s
     (Right rsaFinal,_) = Vincent.RSA.signSafer g desc (privateRSAkey k) dta
 #endif
     dsaTruncate (Vincent.DSA.PrivateKey (Vincent.DSA.Params _ _ q) _) = BS.take (integerBytesize q)
-    dta     = toStrictBS $ encode over `LZ.append` OpenPGP.trailer sig
+    dta     = LZ.toStrict $ encode over `LZ.append` OpenPGP.trailer sig
     sig     = findSigOrDefault (listToMaybe $ OpenPGP.signatures_over over)
     -- padding = emsa_pkcs1_v1_5_hash_padding hsh
     desc = hashAlgoDesc hsh
-- 
cgit v1.2.3