From 11987749fc6e6d3e53ea737d46d5ab13a16faeb8 Mon Sep 17 00:00:00 2001 From: James Crayne Date: Sat, 28 Sep 2019 13:43:29 -0400 Subject: Factor out some new libraries word64-map: Data.Word64Map network-addr: Network.Address tox-crypto: Crypto.Tox lifted-concurrent: Control.Concurrent.Lifted.Instrument Control.Concurrent.Async.Lifted.Instrument psq-wrap: Data.Wrapper.PSQInt Data.Wrapper.PSQ minmax-psq: Data.MinMaxPSQ tasks: Control.Concurrent.Tasks kad: Network.Kademlia Network.Kademlia.Bootstrap Network.Kademlia.Routing Network.Kademlia.CommonAPI Network.Kademlia.Persistence Network.Kademlia.Search --- examples/nalias2.hs | 18 ------------------ 1 file changed, 18 deletions(-) delete mode 100644 examples/nalias2.hs (limited to 'examples/nalias2.hs') 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 @@ -import System.Environment -import Control.Monad -import qualified Data.Text as Text - -import DNSCache - -main = do - dns <- newDNSCache - args <- getArgs - forM args $ \arg -> do - putStrLn $ arg ++ ":" - let targ = Text.pack arg - addrs <- forwardResolve dns targ - putStrLn $ " forward: " ++ show addrs - forM addrs $ \addr -> do - names <- reverseResolve dns addr - putStrLn $ " reverse "++show addr++": "++show names - return () -- cgit v1.2.3