                                               :original     []
                                               :confirmation []}))
 
-(fx/defn wait-for-card-tap
+(fx/defn proceed-to-login
   [{:keys [db] :as cofx}]
   (let [card-connected? (get-in db [:hardwallet :card-connected?])]
     (if card-connected?
       (login-with-keycard cofx false)
       (fx/merge cofx
                 {:db (-> db
+                         (assoc-in [:hardwallet :on-card-connected] :hardwallet/get-application-info)
                          (assoc-in [:hardwallet :on-card-read] :hardwallet/login-with-keycard))}
                 (navigation/navigate-to-cofx :hardwallet-connect nil)))))
 

    (fx/merge cofx
              {:db (-> db
                       (assoc-in [:hardwallet :setup-error] (i18n/label :t/invalid-pairing-password))
                       (assoc-in [:hardwallet :on-card-connected] nil))}
              (when (not= setup-step :enter-pair-code)
                (process-error code error)))))


              {:db (-> db
                       (assoc-in [:hardwallet :card-connected?] true)
                       (assoc-in [:hardwallet :card-read-in-progress?] (boolean on-card-read)))}
              (when on-card-connected
                (dispatch-event on-card-connected))
              (when on-card-connected
                (clear-on-card-connected))
              (when (and on-card-read
                         (nil? on-card-connected))
                (get-application-info pairing on-card-read))
              (when setup-running?
                (navigation/navigate-to-cofx :hardwallet-setup nil)))))

