WIP

src/gd_v_express.erl

@@ -251,6 +251,9 @@ handle_cast(Unexpected, State) ->
     {noreply, State}.
 
 
+handle_info({retiring, PID, Reason}, State = #s{rider = PID}) ->
+    ok = tell(info, "Rider retired with: ~p", [Reason]),
+    {noreply, State#s{rider = none}};
 handle_info(Unexpected, State) ->
     ok = log(warning, "Unexpected info: ~tp~n", [Unexpected]),
     {noreply, State}.
@@ -310,9 +313,12 @@ do_accounts(State, Manifest) ->
 do_check(State = #s{rider = none}) ->
     PID = spawn_link(gd_n_rider, init, [{"localhost", 7777}]),
     do_check(State#s{rider = PID});
-do_check(State = #s{rider = PID}) ->
-    Stuff = gd_n_rider:stuff(PID),
-    ok = tell(info, "Rider has Stuff: ~tp", [Stuff]),
+do_check(State = #s{rider = PID, keys = #w{wx = KeyP}}) ->
+    ok =
+        case wxChoice:getStringSelection(KeyP) of
+            ""    -> ok;
+            KeyID -> gd_n_rider:check(PID, KeyID)
+        end,
     State.