update
This commit is contained in:
parent
3d5b5aa245
commit
225eb9be6d
3
bin/dune
3
bin/dune
|
@ -1,4 +1,5 @@
|
||||||
(executable
|
(executable
|
||||||
(public_name bk910x)
|
(public_name bk910x)
|
||||||
(name main)
|
(name main)
|
||||||
(libraries eio_main bk910x))
|
(preprocess (pps xlog.ppx))
|
||||||
|
(libraries bk910x eio_main xlog))
|
||||||
|
|
17
bin/main.ml
17
bin/main.ml
|
@ -1,8 +1,17 @@
|
||||||
open Eio.Std
|
[%%xlog_import]
|
||||||
|
|
||||||
|
let () =
|
||||||
|
Xlog.init_pretty_writer stdout
|
||||||
|
~min_level:Xlog.DEBUG
|
||||||
|
|
||||||
|
let main ~env =
|
||||||
|
ignore env;
|
||||||
|
[%xlog info "meow meow meow"];
|
||||||
|
try
|
||||||
|
failwith "meow"
|
||||||
|
with e -> [%xlog exn e "oop's"]
|
||||||
|
|
||||||
let main out =
|
|
||||||
Eio.Flow.copy_string "Hello, world!\n" out
|
|
||||||
|
|
||||||
let () =
|
let () =
|
||||||
Eio_main.run @@ fun env ->
|
Eio_main.run @@ fun env ->
|
||||||
main (Eio.Stdenv.stdout env)
|
main ~env
|
||||||
|
|
|
@ -0,0 +1 @@
|
||||||
|
module Eio_serial = Eio_serial
|
3
lib/dune
3
lib/dune
|
@ -1,3 +1,4 @@
|
||||||
(library
|
(library
|
||||||
(name bk910x)
|
(name bk910x)
|
||||||
(libraries eio))
|
(public_name bk910x)
|
||||||
|
(libraries eio xlog))
|
||||||
|
|
|
@ -5,6 +5,7 @@
|
||||||
buildDunePackage,
|
buildDunePackage,
|
||||||
eio,
|
eio,
|
||||||
eio_main,
|
eio_main,
|
||||||
|
xlog,
|
||||||
|
|
||||||
ocaml,
|
ocaml,
|
||||||
dune_3,
|
dune_3,
|
||||||
|
@ -29,7 +30,7 @@ in buildDunePackage rec {
|
||||||
minimalOCamlVersion = "5.1";
|
minimalOCamlVersion = "5.1";
|
||||||
dontStrip = true;
|
dontStrip = true;
|
||||||
|
|
||||||
propagatedBuildInputs = [ eio eio_main ];
|
propagatedBuildInputs = [ eio eio_main xlog ];
|
||||||
|
|
||||||
nativeBuildInputs = lib.optionals enableShell [
|
nativeBuildInputs = lib.optionals enableShell [
|
||||||
ocaml dune_3 odoc utop
|
ocaml dune_3 odoc utop
|
||||||
|
|
Loading…
Reference in New Issue