1 files changed, 5 insertions, 5 deletions
diff --git a/KeyRing.hs b/KeyRing.hs
index c6aa6a4..653a76d 100644
--- a/KeyRing.hs
+++ b/KeyRing.hs
@@ -760,12 +760,12 @@ writeHostsFiles
         [SockAddr])
     -> IO [(FilePath, KikiReportAction)]
 writeHostsFiles krd secring pubring (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do
-    let hns = files ishosts
+    let hns = files isMutableHosts
-        ishosts Hosts = True
+        isMutableHosts (MutableRef _,Hosts) = True
-        ishosts _     = False
+        isMutableHosts _ = False
        files istyp = do
-            (f,(rtyp,ftyp)) <- Map.toList (kFiles krd)
+            (f,typ) <- Map.toList (kFiles krd)
-            guard (istyp ftyp)
+            guard (istyp typ)
            resolveInputFile secring pubring f
    -- 3. add hostnames from gpg for addresses not in U

diff --git a/KeyRing.hs b/KeyRing.hs index c6aa6a4..653a76d 100644 --- a/KeyRing.hs +++ b/KeyRing.hs
@@ -760,12 +760,12 @@ writeHostsFiles
760	[SockAddr])	760	[SockAddr])
761	-> IO [(FilePath, KikiReportAction)]	761	-> IO [(FilePath, KikiReportAction)]
762	writeHostsFiles krd secring pubring (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do	762	writeHostsFiles krd secring pubring (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do
763	let hns = files ishosts	763	let hns = files isMutableHosts
764	ishosts Hosts = True	764	isMutableHosts (MutableRef _,Hosts) = True
765	ishosts _ = False	765	isMutableHosts _ = False
766	files istyp = do	766	files istyp = do
767	(f,(rtyp,ftyp)) <- Map.toList (kFiles krd)	767	(f,typ) <- Map.toList (kFiles krd)
768	guard (istyp ftyp)	768	guard (istyp typ)
769	resolveInputFile secring pubring f	769	resolveInputFile secring pubring f
770		770
771	-- 3. add hostnames from gpg for addresses not in U	771	-- 3. add hostnames from gpg for addresses not in U