Refactor sign to handle keys

Also, now if you pass in a message with a signature packet we'll just
use that one instead of making a default one.

Return value is now just the new/filled-in signature packet, update
example accordingly.

1 files changed, 6 insertions, 4 deletions

diff --git a/examples/sign.hs b/examples/sign.hs
index 8fc9352..e8bea1a 100644
--- a/examples/sign.hs
+++ b/examples/sign.hs
@@ -14,8 +14,10 @@ main = do
         time <- getClockTime
         let TOD t _ = time
         keys <- decodeFile (argv !! 0)
+        let dataPacket = OpenPGP.LiteralDataPacket 'u' "t.txt"
+                        (fromIntegral t) (LZ.fromString "This is a message.")
         let message = OpenPGP.Message [
-                OpenPGP.LiteralDataPacket 'u' "t.txt" (fromIntegral t)
-                        (LZ.fromString "This is a message.") ]
-        LZ.putStr $ encode $
-                OpenPGP.sign keys message OpenPGP.SHA256 [] (fromIntegral t)
+                OpenPGP.sign keys (OpenPGP.Message [dataPacket])
+                        OpenPGP.SHA256 [] (fromIntegral t),
+                dataPacket]
+        LZ.putStr $ encode message