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

18 lines
383 B
Standard ML
Raw Normal View History

signature FILE_MESSAGE =
sig
datatype t =
SAVE_TRIANGLES of AppType.triangle list
| LOAD_TRIANGLES
| EXPORT_TRIANGLES of AppType.triangle list
| LOAD_FILES of string
end
structure FileMessage :> FILE_MESSAGE =
struct
datatype t =
SAVE_TRIANGLES of AppType.triangle list
| LOAD_TRIANGLES
| EXPORT_TRIANGLES of AppType.triangle list
| LOAD_FILES of string
end