Switch from test-framework to tasty.

[hath.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index deb902297c45d3fac0990854f7a471c80f09a9b2..2bb586980f5a06bf2de39a54dfdab580c3cda21d 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -7,6 +7,7 @@ import qualified Data.ByteString.Char8 as BS (intercalate, pack, unpack)
 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)
@@ -159,5 +160,7 @@ main = do
         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