Skip to content

Commit

Permalink
Switch log to stdout by default.
Browse files Browse the repository at this point in the history
toots committed Jul 2, 2018
1 parent 091cefc commit 1c7f6f9
Showing 2 changed files with 8 additions and 5 deletions.
4 changes: 3 additions & 1 deletion CHANGES
Original file line number Diff line number Diff line change
@@ -19,6 +19,8 @@ Changed:

- Better log messages for root exit and buffer override.

- Switch default log to stdout.

Fixed:

- Decouple dyntools compilation.
@@ -58,7 +60,7 @@ Fixed:

- Fixed `mutexify`

- Make sure that metadata are always passed in incresing position order in `map_metadata` (#469)
- Make sure that metadata are always passed in increasing position order in `map_metadata` (#469)

1.3.2 (02-09-2017)
=====
9 changes: 5 additions & 4 deletions src/main.ml
Original file line number Diff line number Diff line change
@@ -38,6 +38,11 @@ let () =
Configure.conf#plug "init" Init.conf ;
Configure.conf#plug "log" Log.conf

(* Set log to stdout by default *)
let () =
Log.conf_stdout#set_d (Some true);
Log.conf_file#set_d (Some false)

(* Should we not run the active sources? *)
let dont_run = ref false

@@ -104,12 +109,8 @@ let do_eval, eval =
load_libs () ;
match src with
| `StdIn ->
Log.conf_stdout#set_d (Some true) ;
Log.conf_file#set_d (Some false) ;
Lang.from_in_channel ~lib ~parse_only:!parse_only stdin
| `Expr_or_File expr when (not (Sys.file_exists expr)) ->
Log.conf_stdout#set_d (Some true) ;
Log.conf_file#set_d (Some false) ;
Lang.from_string ~lib ~parse_only:!parse_only expr
| `Expr_or_File f ->
let basename = Filename.basename f in

0 comments on commit 1c7f6f9

Please sign in to comment.