import Data.List ((\\), intercalate)
import Data.Maybe (catMaybes, isNothing)
import Data.String.Utils (splitWs)
+import Network.DNS.Types ( DNSError (NameError) )
import System.Exit (ExitCode(..), exitWith)
import System.IO (stderr, hPutStrLn)
import Text.Read (readMaybe)
space = BS.pack " "
results =
case eds of
+ -- NameError simply means "not found" so we output nothing.
+ Left NameError -> ""
Left err -> "ERROR (" ++ (show err) ++ ")"
Right ds -> BS.unpack $ BS.intercalate space ds