diff options
Diffstat (limited to 'examples/nalias2.hs')
-rw-r--r-- | examples/nalias2.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/examples/nalias2.hs b/examples/nalias2.hs deleted file mode 100644 index 609f2ec6..00000000 --- a/examples/nalias2.hs +++ /dev/null | |||
@@ -1,18 +0,0 @@ | |||
1 | import System.Environment | ||
2 | import Control.Monad | ||
3 | import qualified Data.Text as Text | ||
4 | |||
5 | import DNSCache | ||
6 | |||
7 | main = do | ||
8 | dns <- newDNSCache | ||
9 | args <- getArgs | ||
10 | forM args $ \arg -> do | ||
11 | putStrLn $ arg ++ ":" | ||
12 | let targ = Text.pack arg | ||
13 | addrs <- forwardResolve dns targ | ||
14 | putStrLn $ " forward: " ++ show addrs | ||
15 | forM addrs $ \addr -> do | ||
16 | names <- reverseResolve dns addr | ||
17 | putStrLn $ " reverse "++show addr++": "++show names | ||
18 | return () | ||