preparation for adding new additional threads/mailboxes (namely, the file mailbox)
This commit is contained in:
15
message-types/file-msg.sml
Normal file
15
message-types/file-msg.sml
Normal file
@@ -0,0 +1,15 @@
|
||||
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
|
||||
Reference in New Issue
Block a user