1 files changed, 3 insertions, 1 deletions

diff --git a/Data/OpenPGP/Util/Sign.hs b/Data/OpenPGP/Util/Sign.hs
index a074dcb..1af6053 100644
--- a/Data/OpenPGP/Util/Sign.hs
+++ b/Data/OpenPGP/Util/Sign.hs
@@ -76,6 +76,8 @@ xed25519Sign cv25519key hsh dta = do
 -- In order to set more options on a signature, pass in a signature packet.
 -- Operation is unsafe in that it silently re-uses "random" bytes when
 -- entropy runs out.  Use pgpSign for a safer interface.
+--
+-- TODO: Produce hash_head field.
 unsafeSign :: (RG g) => -- CryptoRandomGen g) =>
     OpenPGP.Message          -- ^ SecretKeys, one of which will be used
     -> OpenPGP.SignatureOver -- ^ Data to sign, and optional signature packet
@@ -129,7 +131,7 @@ unsafeSign keys over hsh keyid timestamp g = (over {OpenPGP.signatures_over = [s
         hsh -- force hash algorithm
         (OpenPGP.hashed_subpackets s)
         (OpenPGP.unhashed_subpackets s)
-        (OpenPGP.hash_head s)
+        (OpenPGP.hash_head s) -- FIXME: This is not right.
         (map OpenPGP.MPI final)
     findSigOrDefault Nothing  = OpenPGP.signaturePacket
         4