summaryrefslogtreecommitdiff
path: root/lib/KeyRing.hs
diff options
context:
space:
mode:
Diffstat (limited to 'lib/KeyRing.hs')
-rw-r--r--lib/KeyRing.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 8b041f1..f8e2290 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -583,9 +583,9 @@ writeHostsFiles
583 [Hosts.Hosts], 583 [Hosts.Hosts],
584 Hosts.Hosts, 584 Hosts.Hosts,
585 [Hostnames], 585 [Hostnames],
586 [SockAddr]) 586 IPsToWriteToHostsFile)
587 -> IO [(FilePath, KikiReportAction)] 587 -> IO [(FilePath, KikiReportAction)]
588writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do 588writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,IPsToWriteToHostsFile outgoing_names) = do
589 let hns = files isMutableHosts 589 let hns = files isMutableHosts
590 isMutableHosts stream | KF_None <- fill stream = False 590 isMutableHosts stream | KF_None <- fill stream = False
591 isMutableHosts stream | Hosts <- typ stream = True 591 isMutableHosts stream | Hosts <- typ stream = True