X-Git-Url: http://gitweb.michael.orlitzky.com/?p=hath.git;a=blobdiff_plain;f=src%2FMain.hs;h=2bb586980f5a06bf2de39a54dfdab580c3cda21d;hp=deb902297c45d3fac0990854f7a471c80f09a9b2;hb=eee156f562f9c1c1194a67cef12f146304d88ce9;hpb=9b637112e7112180e3ddb6129a62b5e21953b469

diff --git a/src/Main.hs b/src/Main.hs
index deb9022..2bb5869 100644
--- 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