Parent Directory | Revision Log | Patch
revision 1.54 by spiralvoice, Wed Sep 14 14:35:44 2005 UTC | revision 1.55 by spiralvoice, Sat Sep 17 17:59:46 2005 UTC | |
---|---|---|
# | Line 844 module CanBeCompressed = struct | Line 844 module CanBeCompressed = struct |
844 | end | end |
845 | *) | *) |
846 | ||
let ip_reachable ip = | ||
!!allow_local_network || Ip.reachable ip | ||
847 | let do_if_connected tcp_connection f = | let do_if_connected tcp_connection f = |
848 | match tcp_connection with | match tcp_connection with |
849 | Connection sock -> f sock | Connection sock -> f sock |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |