package wire

  1. Overview
  2. Docs

Source file staged.ml

1
2
3
4
type +'a t = Staged of 'a [@@unboxed]

let[@inline always] stage x = Staged x
let[@inline always] unstage (Staged x) = x