diff options
| author | joe <joe@jerkface.net> | 2017-10-25 05:09:55 -0400 |
|---|---|---|
| committer | joe <joe@jerkface.net> | 2017-10-25 05:09:55 -0400 |
| commit | 44573e84be43e4396f4508edb3c04760b6bf8efc (patch) | |
| tree | 7568d8c1c2c367604ba9da4d91aca773ff4647b1 /examples/dhtd.hs | |
| parent | f0f355d6ff8a68b5240301f882f6d5a9a77fdba1 (diff) | |
Debugged encodeDataToRoute/parseDataToRoute.
Diffstat (limited to 'examples/dhtd.hs')
| -rw-r--r-- | examples/dhtd.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/examples/dhtd.hs b/examples/dhtd.hs index cf0328e8..4dad2fe7 100644 --- a/examples/dhtd.hs +++ b/examples/dhtd.hs | |||
| @@ -430,6 +430,7 @@ clientSession s@Session{..} sock cnum h = do | |||
| 430 | forM pairs $ \(_,pk) -> delRoster roster pk | 430 | forM pairs $ \(_,pk) -> delRoster roster pk |
| 431 | readTVar userkeys | 431 | readTVar userkeys |
| 432 | hPutClient h . showReport $ map mkrow ks | 432 | hPutClient h . showReport $ map mkrow ks |
| 433 | ("roster", s) -> cmd0 $ atomically (dnsPresentation roster) >>= hPutClient h | ||
| 433 | ("g", s) | Just DHT{..} <- Map.lookup netname dhts | 434 | ("g", s) | Just DHT{..} <- Map.lookup netname dhts |
| 434 | -> cmd0 $ do | 435 | -> cmd0 $ do |
| 435 | -- arguments: method | 436 | -- arguments: method |