slight renaming of constructors in FileMessage.t datatype, to provide more clarity (SAVE_TRIANGLES is for saving to a custom format, LOAD_TRIANGLES is for loading from a file in that custom format, and export is for generating code from custom format)

imperative-shell/file-thread.sml

@@ -12,8 +12,8 @@ struct
       val _ =
         case Mailbox.recv fileMailbox of
           SAVE_TRIANGLES triangles => ()
+        | LOAD_TRIANGLES triangles => ()
         | EXPORT_TRIANGLES triangles => ()
-        | IMPORT_TRIANGLES => ()
     in
       run fileMailbox
     end

message-types/file-msg.sml

@@ -2,14 +2,14 @@ signature FILE_MESSAGE =
 sig
   datatype t =
     SAVE_TRIANGLES of AppType.triangle list
+  | LOAD_TRIANGLES
   | EXPORT_TRIANGLES of AppType.triangle list
-  | IMPORT_TRIANGLES
 end
 
 structure FileMessage :> FILE_MESSAGE =
 struct
   datatype t =
     SAVE_TRIANGLES of AppType.triangle list
+  | LOAD_TRIANGLES
   | EXPORT_TRIANGLES of AppType.triangle list
-  | IMPORT_TRIANGLES
 end