- PdnsRequestQ qname qtype id _ _ _ -> do
- ncres <- queryNmc mgr cfg qname id
- case ncres of
- Left e -> putStrLn $ "ERROR\t" ++ e
- Right dom -> putStrLn $ pdnsOut qtype dom
+ PdnsRequestQ qname qtype id _ _ _ ->
+ queryNmc mgr cfg qname id >>= putStr . (pdnsOut ver id qname qtype)