1 files changed, 16 insertions, 7 deletions

diff --git a/lib/KeyRing/BuildKeyDB.hs b/lib/KeyRing/BuildKeyDB.hs
index 9a806a3..f90f638 100644
--- a/lib/KeyRing/BuildKeyDB.hs
+++ b/lib/KeyRing/BuildKeyDB.hs
@@ -132,7 +132,7 @@ buildKeyDB :: InputFileContext -> Maybe String -> KeyRingOperation
                                     ,{- hs        -} ({- hostdbs0 -}[Hosts.Hosts],
                                                       {- hostdbs  -}[Hosts.Hosts],
                                                       {- u1       -}Hosts.Hosts,
-                                                      {- gpgnames -}[(SockAddr, ([ByteString],[ByteString]))],
+                                                      {- gpgnames -}[Hostnames],
                                                       {- outgoing_names -}[SockAddr])
                                     ,{- accs      -} Map.Map InputFile Access
                                     ,{- transcode -} PacketTranscoder
@@ -564,7 +564,7 @@ mergeHostFiles :: KeyRingOperation -> KeyDB -> InputFileContext
                , ( [Hosts.Hosts]
                  , [Hosts.Hosts]
                  , Hosts.Hosts
-                 , [(SockAddr, ([Char8.ByteString], [Char8.ByteString]))]
+                 , [Hostnames]
                  , [SockAddr]))
              , [(FilePath,KikiReportAction)]))
 mergeHostFiles krd db ctx = do
@@ -586,14 +586,14 @@ mergeHostFiles krd db ctx = do
 
     let gpgnames = map getHostnames $ Map.elems db
         os = do
-            (addr,(ns,_)) <- gpgnames
+            Hostnames addr ns _ _ <- gpgnames
             n <- ns
             return (addr,n)
         setOnions hosts = foldl' (flip $ uncurry Hosts.assignName) hosts os
         -- we ensure .onion names are set properly
         hostdbs = map setOnions hostdbs0
         outgoing_names = do
-            (addr,(_,gns)) <- gpgnames
+            Hostnames addr _ gns _ <- gpgnames
             guard . not $ null gns
             guard $ all (null . Hosts.namesForAddress addr) hostdbs0
             return addr
@@ -902,13 +902,20 @@ generateSubkey transcode kd' (genparam,StreamInfo { spill = KF_Match tag }) = do
         return $ KikiSuccess (kd,report0)
 generateSubkey _ kd _ = return kd
 
+data Hostnames = Hostnames {
+  gpgipv6addr :: SockAddr,
+  verifiedOnionNames :: [L.ByteString],
+  notationPacketNames :: [L.ByteString],
+  cryptonomicName :: Maybe L.ByteString
+}
+
 -- |
 -- Returns (ip6 fingerprint address,(onion names,other host names))
 --
 -- Requires a validly cross-signed tor key for each onion name returned.
 -- (Signature checks are performed.)
-getHostnames :: KeyData -> (SockAddr, ([L.ByteString],[L.ByteString]))
-getHostnames (KeyData topmp _ uids subs) = (addr,(onames,othernames))
+getHostnames :: KeyData -> Hostnames
+getHostnames (KeyData topmp _ uids subs) = Hostnames addr onames othernames Nothing
  where
     othernames = do
         mp <- flattenAllUids "" True uids
@@ -966,7 +973,9 @@ setHostnames pred hosts kd@(KeyData topmp topsigs uids subs) =
     addr = fingerdress topk
     names :: [Char8.ByteString]
     names                          = Hosts.namesForAddress addr hosts
-    (_, (gotOnions, gotNonOnions)) = getHostnames kd
+
+    Hostnames _ gotOnions gotNonOnions cryptonomic = getHostnames kd
+
     namesWithoutGotOnions          = names \\ gotOnions
     notations                      = map (NotationDataPacket True "hostname@" . Char8.unpack) namesWithoutGotOnions
     isName (NotationDataPacket True "hostname@" _) = True