diff options
| author | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-19 10:57:55 -0400 |
|---|---|---|
| committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2021-04-19 10:57:55 -0400 |
| commit | da7eca3be90ac97534145a3c141bcb8a45a6fdeb (patch) | |
| tree | 98c86ec2475670baab17ac8724dd10eaff7027a0 /player | |
| parent | a60a9d10ce94acc0c5bfed2a20c8bed4e91be725 (diff) | |
| download | levitating-da7eca3be90ac97534145a3c141bcb8a45a6fdeb.tar.gz levitating-da7eca3be90ac97534145a3c141bcb8a45a6fdeb.zip | |
Properly set the result logical to true when json instructions are properly received.
Diffstat (limited to 'player')
| -rw-r--r-- | player/instructions.f90 | 2 | ||||
| -rw-r--r-- | player/player.F90 | 5 |
2 files changed, 3 insertions, 4 deletions
diff --git a/player/instructions.f90 b/player/instructions.f90 index f110dae..a1aaa9d 100644 --- a/player/instructions.f90 +++ b/player/instructions.f90 @@ -366,6 +366,8 @@ contains task_count = get_task_count(j) + Print *, "Task count: ", task_count + ! Remember to zero-index your json! do i = 1, task_count diff --git a/player/player.F90 b/player/player.F90 index 49803c5..308be3b 100644 --- a/player/player.F90 +++ b/player/player.F90 @@ -72,14 +72,11 @@ implicit none instr_json_available = request_json(url, j_instructions) if(instr_json_available) then - Print *, "instructions available" - ! Task loop call perform_tasks(j_instructions, job_id) call destroy_instructions(j_instructions) end if - else #ifdef GNU @@ -219,7 +216,7 @@ contains status_code = request_to_temporary_file(url, filename) if(status_code == STATUS_SUCCESS) then j = parse_instructions(filename) - call delete_file(filename) + request_json = .true. else request_json = .false. end if |