add model build internal

fortran-lang · Feb 25, 2024 · 8297433 · 8297433
1 parent 037ad72
commit 8297433
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 6 deletions.
diff --git a/src/fpm/git.f90 b/src/fpm/git.f90
@@ -448,13 +448,10 @@ 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('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)
+         ' -o ' // destination , echo=verbose, exitstat=stat)
     if (stat /= 0) then
       call fatal_error(error, "Error packing '"//source//"'."); return
     end if

diff --git a/src/fpm_command_line.f90 b/src/fpm_command_line.f90
@@ -134,7 +134,6 @@ module fpm_command_line
     logical :: show_upload_data = .false.
     logical :: is_dry_run = .false.
     character(len=:), allocatable :: token
-    character(len=:),allocatable  :: dump_model
 end type
 
 character(len=:),allocatable :: name
@@ -723,7 +722,6 @@ subroutine get_command_line_settings(cmd_settings)
             & show_model=lget('show-model'),&
             & build_tests=lget('tests'),&
             & verbose=lget('verbose'),&
-            & dump_model = 'fpm_model.json',&
             & token=token_s)
 
         case default