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

9 lines
261 B
Standard ML
Raw Normal View History

structure FileMessage =
struct
datatype t =
SAVE_SQUARES of {output: string, filepath: string}
| LOAD_SQUARES of {filepath: string}
| EXPORT_SQUARES of {output: string, filepath: string}
| EXPORT_COLLISIONS of {output: string, filepath: string}
end