mirror of
https://github.com/c-cube/sidekick.git
synced 2025-12-06 03:05:31 -05:00
7 lines
177 B
OCaml
7 lines
177 B
OCaml
open Types_
|
|
|
|
type t = const = { c_name: string } [@@unboxed]
|
|
|
|
let[@inline] name self = self.c_name
|
|
let pp out (a : t) = Fmt.string out a.c_name
|
|
let make c_name : t = { c_name }
|