Merge pull request #386 from samoht/no-foreign

Use `main` instead of `foreign`
mirage · Mar 7, 2024 · 60ad2c8 · 60ad2c8
2 parents cb74685 + d6b923b
commit 60ad2c8
Show file tree

Hide file tree

Showing 7 changed files with 7 additions and 7 deletions.
diff --git a/applications/crypto/config.ml b/applications/crypto/config.ml
@@ -8,5 +8,5 @@ let packages =
     package "mirage-crypto";
   ]
 
-let main = foreign "Unikernel.Main" ~packages (random @-> job)
+let main = main "Unikernel.Main" ~packages (random @-> job)
 let () = register "crypto-test" [ main $ default_random ]
diff --git a/applications/dns/config.ml b/applications/dns/config.ml
@@ -2,7 +2,7 @@ open Mirage
 
 let timeout = Runtime_arg.create "Key.timeout"
 let nameservers = Runtime_arg.create "Key.nameservers"
-let unikernel = foreign "Unikernel.Make" (dns_client @-> job)
+let unikernel = main "Unikernel.Make" (dns_client @-> job)
 let stackv4v6 = generic_stackv4v6 default_network
 
 let () =

diff --git a/applications/docteur/config.ml b/applications/docteur/config.ml
@@ -1,6 +1,6 @@
 open Mirage
 
-let unikernel = foreign "Unikernel.Make" (kv_ro @-> job)
+let unikernel = main "Unikernel.Make" (kv_ro @-> job)
 let remote = "https://github.com/mirage/mirage"
 
 let () =

diff --git a/applications/git/config.ml b/applications/git/config.ml
@@ -43,7 +43,7 @@ let ssh_authenticator = Runtime_arg.create "Key.ssh_authenticator"
 let https_authenticator = Runtime_arg.create "Key.https_authenticator"
 
 let minigit =
-  foreign "Unikernel.Make"
+  main "Unikernel.Make"
     ~packages:[ package "ptime" ]
     (git @-> git_client @-> job)
 

diff --git a/applications/http/config.ml b/applications/http/config.ml
@@ -7,7 +7,7 @@ type conn = Connect
 let conn = typ Connect
 
 let minipaf =
-  foreign "Unikernel.Make"
+  main "Unikernel.Make"
     ~packages:
       [
         package "digestif";

diff --git a/device-usage/littlefs/config.ml b/device-usage/littlefs/config.ml
@@ -1,7 +1,7 @@
 open Mirage
 
 let unikernel =
-  foreign "Unikernel.Make"
+  main "Unikernel.Make"
     ~packages:[ package "hxd" ~sublibs:[ "core"; "string" ] ]
     (random @-> kv_rw @-> job)
 

diff --git a/device-usage/ping6/config.ml b/device-usage/ping6/config.ml
@@ -1,7 +1,7 @@
 open Mirage
 
 let main =
-  foreign
+  main
     ~packages:[ package ~min:"3.0.0" "ethernet"; package ~min:"7.0.0" "tcpip" ]
     "Unikernel.Main"
     (network @-> ethernet @-> ipv6 @-> job)