add model build internal

fortran-lang · Feb 25, 2024 · cae8e97 · cae8e97
1 parent 8297433
commit cae8e97
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/src/fpm/cmd/publish.f90 b/src/fpm/cmd/publish.f90
@@ -67,6 +67,8 @@ subroutine cmd_publish(settings)
     tmp_file = get_temp_filename()
     call git_archive('.', tmp_file, 'HEAD', settings%verbose, error)
     if (allocated(error)) call fpm_stop(1, '*cmd_publish* Archive error: '//error%message)
+    call model%dump('fpm_model.json', error, json=.true.)
+    if (allocated(error)) call fpm_stop(1, '*cmd_publish* Model dump error: '//error%message)
 
     upload_data = [ &
     & string_t('package_name="'//package%name//'"'), &