1
2
3
4
5
6
7
8
9
10
11
open! Core
type t = { items_rev : Log_item.t list }
let make () = { items_rev = [] }
let render ~render_info { items_rev } =
let open Notty.I in
items_rev |> List.rev |> List.map ~f:(Log_item.render ~render_info) |> vcat
let add_log_item t item = { items_rev = item :: t.items_rev }