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