sig type t = Neg | Zero | Pos val sexp_of_t : Float_intf.S.Sign.t -> Sexplib.Sexp.t val t_of_sexp : Sexplib.Sexp.t -> Float_intf.S.Sign.t end