10 lines
210 B
Standard ML
10 lines
210 B
Standard ML
structure FileMessage =
|
|
struct
|
|
datatype t =
|
|
SAVE_TRIANGLES of AppType.triangle list
|
|
| LOAD_TRIANGLES
|
|
| EXPORT_TRIANGLES of AppType.triangle list
|
|
| LOAD_FILES of string
|
|
| SELECT_PATH of string
|
|
end
|