package miaou-core

  1. Overview
  2. Docs
package miaou-core
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file event_result.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
(*****************************************************************************)
(*                                                                           *)
(* SPDX-License-Identifier: MIT                                              *)
(* Copyright (c) 2025 Nomadic Labs <contact@nomadic-labs.com>                *)
(* Copyright (c) 2026 Mathias Bourgoin <mathias.bourgoin@atacama.tech>       *)
(*                                                                           *)
(*****************************************************************************)

type t = [`Handled | `Bubble]

let handled = `Handled

let bubble = `Bubble

let to_bool = function `Handled -> true | `Bubble -> false

[@@@enforce_exempt] (* non-widget module *)