1 (* Copyright (C) 2004-2007 Henry Cejtin, Matthew Fluet, Suresh
2 * Jagannathan, and Stephen Weeks.
4 * MLton is released under a BSD-style license.
5 * See the file MLton-LICENSE for details.
8 functor Scale (S: SCALE_STRUCTS): SCALE =
13 datatype t = One | Two | Four | Eight
21 val layout = Layout.str o toString
23 val fromInt: int -> t option =
30 val fromBytes: Bytes.t -> t option =