Source file staged.ml

1
2
3
4
5
type 'a t = 'a

let unstage t = t

let stage t = t