summaryrefslogtreecommitdiff
path: root/src/connector.ml
blob: d00d036cf6a55de15b6042e1ca52b9119bd24069 (plain)
1
2
3
4
5
6
type t = Squared | Rounded

let of_kind (k : t) =
  match k with
  | Squared -> ("└", "┐", "┘", "┌")
  | Rounded -> ("╰", "╮", "╯", "╭")