fix for new domain-name api

mirage · Jul 22, 2019 · 6484325 · 6484325
1 parent 55ded2f
commit 6484325
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/mirage/resolver_mirage.ml b/mirage/resolver_mirage.ml
@@ -93,7 +93,7 @@ module Make_with_stack (T: Mirage_time_lwt.S) (S: Mirage_stack_lwt.V4) = struct
       (match Ipaddr.V4.of_string host with
        | Ok addr -> Lwt.return (Ok addr)
        | Error _ ->
-         let hostname = Domain_name.of_string_exn host in
+         let hostname = Domain_name.host_exn (Domain_name.of_string_exn host) in
          DNS.gethostbyname dns hostname) >|= function
       | Error (`Msg err) -> `Unknown ("name resolution failed: " ^ err)
       | Ok addr ->