Don't write hosts files that are not marked mutable

1 files changed, 3 insertions, 0 deletions

diff --git a/kiki.hs b/kiki.hs
index 60c0b6b..0d87b90 100644
--- a/kiki.hs
+++ b/kiki.hs
@@ -1136,6 +1136,8 @@ main = do
                     wallets
         rings = map (\fname -> (ArgFile fname, (MutableRef Nothing, KeyRingFile passfd)))
                     keyrings_
+        hosts = maybe [] (map decorate) $ Map.lookup "--hosts" margs
+                    where decorate fname = (ArgFile fname, (MutableRef Nothing, Hosts))
         importStyle = maybe (\_ _ -> subkeysOnly)
                             (\f rt kd -> f rt kd >> importPublic)
                         $ mplus import_f importifauth_f
@@ -1152,6 +1154,7 @@ main = do
                 ++ rings
                 ++ pems
                 ++ walts
+                ++ hosts
             , kImports = Map.fromList $
                 [ ( HomePub, importStyle ) ]
             , kManip = noManip