style(Tty): clean up useless code

RedPRL · Sep 24, 2023 · 589ecca · 589ecca
1 parent 5bdd2ef
commit 589ecca
Showing 1 changed file with 0 additions and 8 deletions.
diff --git a/src/tty/Tty.ml b/src/tty/Tty.ml
@@ -48,14 +48,6 @@ struct
 
   (* helper functions *)
 
-  let vline attr height str =
-    I.vcat @@ List.init height (fun _ -> I.string attr str)
-
-  let column ~align images =
-    let maxby f xs = List.(fold_left max 0 (map f xs)) in
-    let width = maxby I.width images in
-    List.map (I.hsnap ~align width) images |> I.vcat
-
   let hcat_with_pad ~pad l =
     I.hcat @@ List.map (I.pad ~l:pad) l