add fpm_model.json in the build archive

fortran-lang · Feb 24, 2024 · ba71c56 · ba71c56
1 parent 5bc7f90
commit ba71c56
Showing 1 changed file with 7 additions and 1 deletion.
diff --git a/src/fpm/git.f90 b/src/fpm/git.f90
@@ -333,7 +333,13 @@ subroutine git_archive(source, destination, ref, verbose, error)
       call fatal_error(error, "Cannot find a suitable archive format for 'git archive'."); return
     end if
 
-    call run('git archive '//ref//' --format='//archive_format//' -o '//destination, echo=verbose, exitstat=stat)
+    call run('fpm build --dump fpm_model.json', echo=verbose, exitstat=stat)
+    call run('git archive ' &
+         // ref // &
+         ' --format=' // archive_format // &
+         ' -o ' // destination // &
+         ' --add-file=fpm_model.json', echo=verbose, exitstat=stat)
+    call run('rm fpm_model.json', echo=verbose, exitstat=stat)
     if (stat /= 0) then
       call fatal_error(error, "Error packing '"//source//"'."); return
     end if