unikernel/duniverse/ocaml-cstruct/ppx_test/with-lwt/dune

@@ -0,0 +1,5 @@
+(executables
+ (names ppx_cstruct_and_lwt)
+ (preprocess
+  (pps lwt_ppx ppx_cstruct))
+ (libraries cstruct lwt lwt.unix))

unikernel/duniverse/ocaml-cstruct/ppx_test/with-lwt/ppx_cstruct_and_lwt.ml

@@ -0,0 +1,15 @@
+[%%cstruct type foo = {
+  magic: uint8_t [@len 16];
+}[@@little_endian]]
+
+[%%cenum
+type foo64 =
+  | ONE64
+  | TWO64
+  | THREE64
+  [@@uint64_t]
+]
+
+let foo = 
+  let%lwt foo = Lwt.return () in 
+  Lwt.return foo