From b7797bf50387e1da4e0dabf55b4b985b06898721 Mon Sep 17 00:00:00 2001 From: 5HT Date: Sun, 7 Apr 2024 15:26:30 +0300 Subject: [PATCH] format --- src/joe/main.ml | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/joe/main.ml b/src/joe/main.ml index bdaf589..1785ceb 100644 --- a/src/joe/main.ml +++ b/src/joe/main.ml @@ -69,12 +69,12 @@ let main f = let sufix = backend_type_to_suffix !backend_type in write_file f f_without_filename sufix; match !backend_type with - | Intel | ARM -> ( - let arch = backend_type_to_arch !backend_type in - String.concat " " ["gcc"; f_without_filename^sufix; "src/"^arch^"/libmincaml.c src/"^arch^"/stub.c -o "; f_without_filename ^ ".exe"] |> Sys.command |> ignore - ) + | Intel | ARM -> + ( let arch = backend_type_to_arch !backend_type in + String.concat " " [ "gcc"; f_without_filename^sufix; + "src/"^arch^"/libmincaml.c src/"^arch^"/stub.c -o "; + f_without_filename ^ ".exe"] |> Sys.command |> ignore ) | _ -> () - let () = let files = ref [] in