From d45ebf57efe6e08d346f9cb23e1fcd9f5eead4f8 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Mon, 17 May 2021 14:48:41 -0400
Subject: Fixed typo in player code

---
 player/instructions.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'player')

diff --git a/player/instructions.f90 b/player/instructions.f90
index 07007a3..587b6c8 100644
--- a/player/instructions.f90
+++ b/player/instructions.f90
@@ -231,11 +231,11 @@ contains
     end subroutine get_task_name
     
     function get_task_failure_okay(j, i) result(res)
+    use json_module, only: json_file
     implicit none
     
         class(json_file)::j
         integer, intent(in)::i
-        character(*), intent(in)::component
         
         logical::res
         
-- 
cgit v1.2.3