Source file abstract_axis.ml

1
2
3
4
5
6
7
type t = Inline | Block

let other = function Inline -> Block | Block -> Inline

let to_absolute_naive = function
  | Inline -> Absolute_axis.Horizontal
  | Block -> Absolute_axis.Vertical