signature FILE_MESSAGE =
sig
  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

structure FileMessage :> FILE_MESSAGE =
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