Source file style.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
open! Core

type t =
  | Dark
  | Light
  | Vscode of { is_dark : bool }
[@@deriving sexp, compare, equal]

let to_string = function
  | Dark -> "dark"
  | Light -> "light"
  | Vscode _ -> "vscode"
;;