From a86fa24e7e78ae880f62f3910b02601fb8abf8be Mon Sep 17 00:00:00 2001 From: joe Date: Thu, 25 Aug 2016 00:11:32 -0400 Subject: white space --- Data/OpenPGP/Util/Sign.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'Data/OpenPGP/Util/Sign.hs') diff --git a/Data/OpenPGP/Util/Sign.hs b/Data/OpenPGP/Util/Sign.hs index 4a6eb4f..466f05c 100644 --- a/Data/OpenPGP/Util/Sign.hs +++ b/Data/OpenPGP/Util/Sign.hs @@ -142,7 +142,7 @@ stampit timestamp sig = sig { OpenPGP.hashed_subpackets = hashed' } -- | Make a signature -- -- In order to set more options on a signature, pass in a signature packet. -pgpSign :: +pgpSign :: OpenPGP.Message -- ^ SecretKeys, one of which will be used -> OpenPGP.SignatureOver -- ^ Data to sign, and optional signature packet -> OpenPGP.HashAlgorithm -- ^ HashAlgorithm to use in signature @@ -153,7 +153,7 @@ pgpSign seckeys dta hash_algo keyid = timestamp <- now -- g <- Thomas.newGenIO :: IO Thomas.SystemRandom g <- fmap Vincent.cprgCreate $ Vincent.createEntropyPool - let _ = g :: Vincent.SystemRNG + let _ = g :: Vincent.SystemRNG let sigs = map (stampit timestamp) $ OpenPGP.signatures_over dta dta' = dta { OpenPGP.signatures_over = sigs } let (r,g') = unsafeSign seckeys dta' hash_algo keyid timestamp g -- cgit v1.2.3