From da7eca3be90ac97534145a3c141bcb8a45a6fdeb Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 19 Apr 2021 10:57:55 -0400
Subject: Properly set the result logical to true when json instructions are
 properly received.

---
 player/player.F90 | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

(limited to 'player/player.F90')

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
-- 
cgit v1.2.3