Files
sml-projects/message-types/draw-msg.sml

12 lines
231 B
Standard ML
Raw Normal View History

signature DRAW_MESSAGE =
sig
datatype t = DRAW_BUTTON of Real32.real vector
| NO_DRAW
end
structure DrawMessage :> DRAW_MESSAGE =
struct
datatype t = DRAW_BUTTON of Real32.real vector
| NO_DRAW
end