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, 25 insertions, 0 deletions

diff --git a/dht/Presence/Logging.hs b/dht/Presence/Logging.hs
new file mode 100644
index 00000000..b997d341
--- /dev/null
+++ b/dht/Presence/Logging.hs
@@ -0,0 +1,25 @@
+{-# LANGUAGE RankNTypes #-}
+module Logging where
+
+import qualified Data.ByteString.Lazy.Char8 as L
+import qualified Data.ByteString.Char8 as S
+import qualified Data.Text.IO as Text
+import qualified Data.Text as Text
+import qualified Debug.Trace as Debug
+
+debugL :: L.ByteString -> IO ()
+debugS :: S.ByteString -> IO ()
+debugStr :: String -> IO ()
+debugText :: Text.Text -> IO ()
+trace :: forall a. String -> a -> a
+
+
+debugStr str = putStrLn str
+
+debugL bs = L.putStrLn bs
+
+debugS bs = S.putStrLn bs
+
+debugText text = Text.putStrLn text
+
+trace str a = Debug.trace str a