- domains_ns <- mapM lookupNS' domains
- let cdns = map (clean (delegates cfg)) domains_ns
-
- case cfg of
- (NS _ _) ->
- -- We're only checking NS records, so report what we found.
- mapM_ report cdns
- (MX _ _) ->
- print "Hello, world."
+
+ -- Bad stuff happens if we try to run these lookups in parallel
+ -- instead of the reports.
+ domains_ns <- mapM lookupNS' nrml_domains
+ let cdns = map (clean nrml_delegates) domains_ns
+
+ _ <- case cfg of
+ (NS _ _) ->
+ -- We're only checking NS records, so report what we found.
+ parallel (map report cdns)
+ (MX _ _) ->
+ return [()]
+
+ stopGlobalPool