package quickterface

  1. Overview
  2. Docs

Source file log.ml

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 }