- Reversed{} -> do
- let combined_cidrs = combine_all valid_cidrs
- let addrs = concatMap enumerate combined_cidrs
- let addr_bytestrings = map (BS.pack . show) addrs
- ptrs <- lookup_ptrs addr_bytestrings
- let pairs = zip addr_bytestrings ptrs
- mapM_ (putStrLn . show_pair) pairs
-
- stopGlobalPool
-
- where
- show_pair :: (Domain, PTRResult) -> String
- show_pair (s, eds) =
- (BS.unpack s) ++ ": " ++ results
- where
- space = BS.pack " "
- results =
- case eds of
- Left err -> "ERROR (" ++ (show err) ++ ")"
- Right ds -> BS.unpack $ BS.intercalate space ds