aboutsummaryrefslogtreecommitdiff
path: root/player/player.F90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-04-16 11:33:11 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2021-04-16 11:33:11 -0400
commita60a9d10ce94acc0c5bfed2a20c8bed4e91be725 (patch)
tree59cfacd7c0460817b434768fac12a8c56ae2c946 /player/player.F90
parentefb5d8cec9531637c91fc1087f9c83b4d89a5612 (diff)
downloadlevitating-a60a9d10ce94acc0c5bfed2a20c8bed4e91be725.tar.gz
levitating-a60a9d10ce94acc0c5bfed2a20c8bed4e91be725.zip
Fixed issue with connect calls that were manifested on macOS.
Diffstat (limited to 'player/player.F90')
-rw-r--r--player/player.F903
1 files changed, 3 insertions, 0 deletions
diff --git a/player/player.F90 b/player/player.F90
index dc05619..49803c5 100644
--- a/player/player.F90
+++ b/player/player.F90
@@ -58,6 +58,9 @@ implicit none
checkin_json_available = request_json(url, j_checkin)
if(checkin_json_available) then
work_to_do = work_available(j_checkin)
+ else
+ Print *, "Checkin failed: "//trim(url)
+ work_to_do = .false.
end if
if(work_to_do) then