write hosts file to cache.

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/Kiki.hs b/lib/Kiki.hs
index 9fb71be..8090aac 100644
--- a/lib/Kiki.hs
+++ b/lib/Kiki.hs
@@ -240,6 +240,20 @@ refreshCache rt rootdir = do
             return (mkpath,commit)
     (mkpath, commit) <- getMkPathAndCommit (fromMaybe "" rootdir ++ "/var/cache/kiki/config")
 
+    -- Generete hosts file.
+    let hostspath = mkpath "hosts"
+        op = KeyRingOperation
+             { opFiles = Map.fromList $
+                [ ( HomePub, streaminfo { typ=KeyRingFile, spill=KF_All, access=Pub } )
+                , ( ArgFile hostspath, streaminfo { typ=Hosts, spill=KF_None, fill=KF_All, access=Pub } )
+                ]
+             , opPassphrases = []
+             , opHome = Just $ takeDirectory (rtPubring rt)
+             , opTransforms = []
+             }
+    KikiResult _ report <- runKeyRing op
+    outputReport report
+
     let write' wr f bs = do
             createDirectoryIfMissing True $ takeDirectory f
             wr f bs