|
1 | 1 | !># Store compiler commands in a `compile_commands.json` table
|
2 | 2 | module fpm_compile_commands
|
3 |
| - use fpm_toml, only: serializable_t, set_string, set_value, set_list, get_value, get_list, toml_table, add_table, toml_array, add_array, toml_stat |
| 3 | + use fpm_toml, only: serializable_t, set_string, set_list, get_value, get_list, toml_table, add_table, & |
| 4 | + toml_array, add_array, toml_stat |
4 | 5 | use jonquil, only: json_serialize, json_ser_config
|
5 | 6 | use fpm_strings, only: string_t, operator(==)
|
6 | 7 | use fpm_error, only: error_t, syntax_error, fatal_error
|
@@ -209,7 +210,7 @@ subroutine cct_write(self, filename, error)
|
209 | 210 | ! Ensure the array has no key
|
210 | 211 | if (allocated(array%key)) deallocate(array%key)
|
211 | 212 |
|
212 |
| - cfg%indent = repeat(' ',4) |
| 213 | + cfg%indent = repeat(' ',3) |
213 | 214 | write (lun, '(A)', iostat=stat, err=1) '{'
|
214 | 215 | write (lun, '(A)', iostat=stat, err=1) json_serialize(array, cfg)
|
215 | 216 | write (lun, '(A)', iostat=stat, err=1) '}'
|
|
0 commit comments