From 57f909d36869dee02849bbc95cdc3216081fef32 Mon Sep 17 00:00:00 2001 From: Joe Crayne Date: Sun, 22 Dec 2019 11:52:14 -0500 Subject: Special show-as-hex method for generic DHT api. --- kad/src/Network/Kademlia/CommonAPI.hs | 1 + 1 file changed, 1 insertion(+) (limited to 'kad') diff --git a/kad/src/Network/Kademlia/CommonAPI.hs b/kad/src/Network/Kademlia/CommonAPI.hs index 601be5d8..4714cecc 100644 --- a/kad/src/Network/Kademlia/CommonAPI.hs +++ b/kad/src/Network/Kademlia/CommonAPI.hs @@ -38,6 +38,7 @@ data DHT = forall nid ni. ( Show ni , dhtSearches :: TVar (Map.Map (String,nid) (DHTSearch nid ni)) , dhtFallbackNodes :: IO [ni] , dhtBootstrap :: [ni] -> [ni] -> IO () + , dhtShowHexId :: Maybe (nid -> String) } data DHTQuery nid ni = forall addr r tok. -- cgit v1.2.3