From d644dd0595949d5388bf4bb2dcfc1d5fa29f5f17 Mon Sep 17 00:00:00 2001
From: Andrew Cady <d@jerkface.net>
Date: Sun, 7 Jul 2019 15:11:08 -0400
Subject: use a type for the return value of getHostnames

---
 lib/KeyRing.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'lib/KeyRing.hs')

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)
-- 
cgit v1.2.3