fix asm compilation output

anoma · Dec 14, 2023 · d17c137 · d17c137
1 parent ff4c32d
commit d17c137
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/app/Commands/Dev/Asm/Compile.hs b/app/Commands/Dev/Asm/Compile.hs
@@ -30,7 +30,12 @@ runCommand opts = do
           ensureDir buildDir
           cFile <- inputCFile file
           embed $ TIO.writeFile (toFilePath cFile) _resultCCode
-          Compile.runCommand opts {_compileInputFile = Just (AppPath (preFileFromAbs cFile) False)}
+          outfile <- Compile.outputFile opts file
+          Compile.runCommand
+            opts
+              { _compileInputFile = Just (AppPath (preFileFromAbs cFile) False),
+                _compileOutputFile = Just (AppPath (preFileFromAbs outfile) False)
+              }
   where
     getFile :: Sem r (Path Abs File)
     getFile = getMainFile (opts ^. compileInputFile)