Merge branch 'master' of git://github.com/mor1/ocaml-dns

crotsos · Mar 23, 2012 · d13294f · d13294f
2 parents 94f49e9 + e8a01f0
commit d13294f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/client/odig.ml b/client/odig.ml
@@ -36,7 +36,7 @@ let lookup_name s =
   return ()
 
 let lookup_addr s = 
-  lwt ans = s |> string_to_ipv4 |> Dns_resolver.gethostbyaddr in
+  lwt ans = wrap1 string_to_ipv4 s >>= Dns_resolver.gethostbyaddr in
   let ans = String.concat "; " ans in
   printf "%s -> %s\n%!" s ans;
   return ()