Payments.purs

approveOtp ::
  Session ->
  Session
approveOtp (Session session) = let approveOtpV = execState (do
                                     modify_ ((\{ approved } ->
                                       { approved: "F"
                                       }))
                                     if Array.any (\(Event e) ->
                                       String.toLower (fromMaybe "null" e.label) == "approve_otp") session.events
                                       then modify_ ((\{ approved } ->
                                         { approved: "T"
                                         }))
                                       else modify_ ((\st ->
                                         st))
                                     modify_ ((\{ approveOtp } ->
                                       { approveOtp: Just approved
                                       }))) { foo: Nothing
                                            }
                               in Session $ session { approveOtp = approveOtpV
                                                    }