diff options
Diffstat (limited to 'dht/examples/dhtd.hs')
| -rw-r--r-- | dht/examples/dhtd.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs index 26f3f149..6b057af9 100644 --- a/dht/examples/dhtd.hs +++ b/dht/examples/dhtd.hs | |||
| @@ -811,8 +811,8 @@ clientSession s@Session{..} sock cnum h = do | |||
| 811 | where | 811 | where |
| 812 | go | null destination = fmap Right . qhandler self | 812 | go | null destination = fmap Right . qhandler self |
| 813 | | otherwise = case readEither destination of | 813 | | otherwise = case readEither destination of |
| 814 | Right ni -> fmap (maybe (Left "Timeout.") Right) | 814 | Right ni -> fmap (maybe (Left "Timeout.") Right . resultToMaybe) |
| 815 | . flip (searchQuery qsearch) ni | 815 | . flip (searchQuery qsearch) ni -- TODO report canceled |
| 816 | Left e -> const $ return $ Left ("Bad destination: "++e) | 816 | Left e -> const $ return $ Left ("Bad destination: "++e) |
| 817 | maybe (hPutClient h ("Unsupported method: "++method)) | 817 | maybe (hPutClient h ("Unsupported method: "++method)) |
| 818 | goQuery | 818 | goQuery |