DHTLinks... wip

1 files changed, 14 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 931e1ba0..df36f5d8 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -131,6 +131,13 @@ data DHTAnnouncable = forall dta tok ni r.
     , announceSendData :: dta -> tok -> Maybe ni -> IO (Maybe r)
     }
 
+data DHTLink = forall status linkid. (Show status, Typeable status, Show linkid, Typeable linkid) => DHTLink
+    { linkInit    :: String -> IO (Either String status)
+    , linkStatus  :: IO (Either String status)
+    , linkNewPipe :: String -> linkid -> IO (Either String status)
+    , linkUnPipe  :: linkid -> IO (Either String status)
+    }
+
 data DHTSearch nid ni = forall addr tok r. DHTSearch
     { searchThread     :: ThreadId
     , searchState      :: SearchState nid addr tok ni r
@@ -161,6 +168,7 @@ data DHT = forall nid ni. ( Show     ni
     , dhtPing          :: Map.Map String (DHTPing ni)
     , dhtQuery         :: Map.Map String (DHTQuery nid ni)
     , dhtAnnouncables  :: Map.Map String DHTAnnouncable
+    , dhtLinks         :: Map.Map String DHTLink
     , dhtParseId       :: String -> Either String nid
     , dhtSearches      :: TVar (Map.Map (String,nid) (DHTSearch nid ni))
     , dhtFallbackNodes :: IO [ni]
@@ -776,6 +784,9 @@ main = do
                                                                     Just _ -> return Nothing
                                                               })]
 
+                    , dhtLinks = Map.fromList
+                                    [ {- TODO -}
+                                    ]
                     , dhtSecretKey = return Nothing
                     }
                 dhts = Map.fromList $
@@ -892,6 +903,9 @@ main = do
                                                                               chksum
                                                                         return nospam
                                                                })]
+                    , dhtLinks = Map.fromList
+                                    [ {- TODO -}
+                                    ]
                     , dhtSecretKey = return $ Just $ transportSecret (Tox.toxCryptoKeys tox)
                     }
                 dhts = Map.fromList $