blob: 6168b10455894e8fac201e1ae585155d1656c144 (
plain)
1
2
3
4
5
6
7
|
(*─────────────────────────────────────────────────────────────────────────────┐
│ SPDX-FileCopyrightText: 2025 toastal <https://toast.al/contact/> │
│ SPDX-License-Identifier: LGPL-2.1-or-later WITH OCaml-LGPL-linking-exception │
└─────────────────────────────────────────────────────────────────────────────*)
let pp ppf = Fmt.pf ppf {|┏┓╻+╻ ╱┏┳┓┏┓┏┳┓┏┓╻@.┃┃┃┃┗━┓╹┃╹┣┫┃┃┃┣┫┃@.╹┗┛╹╱ ╹ ╹ ╹╹╹ ╹╹╹┗┛|}
let show = Fmt.str "%t" pp
|
