From 000f67e46b9ac8f19d2fe589d8c8fff1a0ffa216 Mon Sep 17 00:00:00 2001 From: joe Date: Tue, 15 Apr 2014 17:43:39 -0400 Subject: finished writeRingKeys --- KeyRing.hs | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/KeyRing.hs b/KeyRing.hs index eda19d1..b738a25 100644 --- a/KeyRing.hs +++ b/KeyRing.hs @@ -31,7 +31,7 @@ import Data.ASN1.Encoding ( encodeASN1, encodeASN1', decodeASN1' ) import Data.ASN1.BinaryEncoding ( DER(..) ) import Data.Time.Clock.POSIX ( getPOSIXTime ) import qualified Data.Map as Map -import qualified Data.ByteString.Lazy as L ( null, readFile, ByteString, toChunks ) +import qualified Data.ByteString.Lazy as L ( null, readFile, writeFile, ByteString, toChunks ) import qualified Data.ByteString as S ( unpack, splitAt, concat, cons ) import qualified Data.ByteString.Lazy.Char8 as Char8 ( span, unpack, break ) import qualified Crypto.Types.PubKey.ECC as ECC @@ -700,8 +700,11 @@ writeRingKeys krd db wk secring pubring = do else let rs = flip map changes $ \c -> (f,MissingPacket (showPacket (packet c))) in (ws,report++rs) - todo -- porting from kiki.hs writeOutKeyrings - return $ KikiSuccess [] + forM_ towrites $ \(f,x) -> do + let m = Message $ map packet x + -- warn $ "writing "++f + L.writeFile f (encode m) + return $ KikiSuccess report runKeyRing :: KeyRingData -> (KeyRingRuntime -> a) -> IO (KikiResult a) -- cgit v1.2.3