1 files changed, 2 insertions, 2 deletions

diff --git a/lib/KeyRing.hs b/lib/KeyRing.hs
index 5cdb30c..8b041f1 100644
--- a/lib/KeyRing.hs
+++ b/lib/KeyRing.hs
@@ -582,7 +582,7 @@ writeHostsFiles
      -> ([Hosts.Hosts],
          [Hosts.Hosts],
          Hosts.Hosts,
-         [(SockAddr, (t1, [Char8.ByteString]))],
+         [Hostnames],
          [SockAddr])
      -> IO [(FilePath, KikiReportAction)]
 writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do
@@ -598,7 +598,7 @@ writeHostsFiles krd ctx (hostdbs0,hostdbs,u1,gpgnames,outgoing_names) = do
     -- 3. add hostnames from gpg for addresses not in U
     let u = foldl' f u1 ans
         ans = reverse $ do
-            (addr,(_,ns)) <- gpgnames
+            Hostnames addr _ ns _ <- gpgnames
             guard $ addr `elem` outgoing_names -- . null $ Hosts.namesForAddress addr u0
             n <- ns
             return (addr,n)