-report (d, Just leftovers) =
- if null leftovers
- then return ()
- else putStrLn $ "Domain " ++
- (show d) ++
- " delegates somewhere else: " ++
- (join " " (map show leftovers))
-
-clean :: Delegates -> (Domain, Maybe [Domain]) -> (Domain, Maybe [Domain])
-clean _ p@(_, Nothing) = p
-clean (Delegates ds') (d, Just targets) =
- (d, Just $ targets \\ ds)
- where
- ds = map BS.pack ds'
+
+-- Otherwise, subtract our delegates from the list of results and
+-- report the leftovers.
+report delgts (d, Right hosts) = do
+ let leftovers = hosts \\ delgts
+ unless (null leftovers) $
+ putStrLn $ "Domain " ++
+ (show d) ++
+ " delegates somewhere else: " ++
+ (join " " (map show leftovers))
+