done with functionality relating to performing file operations on terminal

2025-08-26 16:15:40 +01:00
parent dcd3c3117e
commit 2de690f325
8 changed files with 84 additions and 70 deletions
--- a/imperative-shell/file-thread.sml
+++ b/imperative-shell/file-thread.sml
@@ -49,10 +49,10 @@ struct
    let
      val _ =
        case Mailbox.recv fileMailbox of
-          SAVE_SQUARES str => saveString (filename, str)
-        | EXPORT_SQUARES str => saveString (exportFilename, str)
-        | EXPORT_COLLISIONS str => saveString (collisionFilename, str)
-        | LOAD_SQUARES => loadSquares (filename, inputMailbox)
+          SAVE_SQUARES {filepath, output} => saveString (filepath, output)
+        | EXPORT_SQUARES {filepath, output} => saveString (filepath, output)
+        | EXPORT_COLLISIONS {filepath, output} => saveString (filepath, output)
+        | LOAD_SQUARES filename => loadSquares (filename, inputMailbox)
    in
      run (fileMailbox, inputMailbox)
    end