16 lines
317 B
Standard ML
16 lines
317 B
Standard ML
signature FILE_MESSAGE =
|
|
sig
|
|
datatype t =
|
|
SAVE_TRIANGLES of AppType.triangle list
|
|
| EXPORT_FILE of AppType.triangle list
|
|
| IMPORT_FILE
|
|
end
|
|
|
|
structure FileMessage :> FILE_MESSAGE =
|
|
struct
|
|
datatype t =
|
|
SAVE_TRIANGLES of AppType.triangle list
|
|
| EXPORT_FILE of AppType.triangle list
|
|
| IMPORT_FILE
|
|
end
|