1 files 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)