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

1 files changed, 18 insertions, 0 deletions

diff --git a/dht/examples/nalias2.hs b/dht/examples/nalias2.hs
new file mode 100644
index 00000000..609f2ec6
--- /dev/null
+++ b/dht/examples/nalias2.hs
@@ -0,0 +1,18 @@
+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 ()