Gui.Base.Password.getPassword eta_B2_B2 eta_B1_B1 = Javascript.JQuery.Basic.getValUnsafe eta_B2_B2 eta_B1_B1 Gui.Base.Password.password_x1 =: GHC.CString.unpackCString# "" Gui.Base.Password.password3 =: let !ds_sOOu = Javascript.Base.Types.FakePtr Gui.Base.Password.password_x1 in select ds_sOOu (GHC.Ptr.Ptr ds1_sOMS -> let !tpl_sOOt = Gui.Base.Password.password_x1, !wild_sOOs = ffi_wrapper3 jsToString ds1_sOMS GHC.Prim.realWorld# in select wild_sOOs (<{GHC.Tuple.(,)}> ds2_sOOr ds3_sOMX -> GHC.Ptr.Ptr ds3_sOMX)) Gui.Base.Password.password_x =: GHC.CString.unpackCString# "input password" Gui.Base.Password.password2 =: let !ds_sOOG = Javascript.Base.Types.FakePtr Gui.Base.Password.password_x in select ds_sOOG (GHC.Ptr.Ptr ds1_sON2 -> let !tpl_sOOF = Gui.Base.Password.password_x, !wild_sOOE = ffi_wrapper3 jsToString ds1_sON2 GHC.Prim.realWorld# in select wild_sOOE (<{GHC.Tuple.(,)}> ds2_sOOD ds3_sON7 -> GHC.Ptr.Ptr ds3_sON7)) Gui.Base.Password.password1 t_sOOf action_sONO s_sONf = select Gui.Base.Password.password3 (GHC.Ptr.Ptr ds1_sONe -> let !wild_sOOQ = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sONe s_sONf in select wild_sOOQ (<{GHC.Tuple.(,)}> ds2_sONp ds3_sONo -> select Gui.Base.Password.password2 (GHC.Ptr.Ptr ds5_sONn -> let !wild1_sOOO = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds5_sONn ds3_sONo ds2_sONp in select wild1_sOOO (<{GHC.Tuple.(,)}> ds7_sONz ds8_sONy -> select t_sOOf (Data.Maybe.Nothing -> select Javascript.Base.String.$fDefaultPtr_$cmempty (GHC.Ptr.Ptr ds9_sOOj -> Gui.Base.Password.password1$1 action_sONO ds7_sONz ds8_sONy ds9_sOOj)) (Data.Maybe.Just v_sOOl -> select v_sOOl (GHC.Ptr.Ptr ds9_sOOo -> Gui.Base.Password.password1$1 action_sONO ds7_sONz ds8_sONy ds9_sOOo)))))) Gui.Base.Password.password1$1 action_sONO ds7_sONz ds8_sONy ds6_sONx = let !wild2_sOON = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds6_sONx ds8_sONy ds7_sONz in select wild2_sOON (<{GHC.Tuple.(,)}> ds9_sOO6 ds10_sONH -> let !ds11_sOOV = Javascript.Base.Types.FakePtr (Gui.Base.Password.password1$2 action_sONO ds10_sONH) in select ds11_sOOV (GHC.Ptr.Ptr ds12_sONY -> select Javascript.JQuery.Events.change_evt (GHC.Ptr.Ptr ds14_sOO4 -> let !wild3_sOOT = ffi_wrapper3 makeCallback ds12_sONY GHC.Prim.realWorld# in select wild3_sOOT (<{GHC.Tuple.(,)}> ds15_sOOL ds16_sOO5 -> let !wild4_sOOS = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds14_sOO4 ds16_sOO5 ds10_sONH ds9_sOO6 in select wild4_sOOS (<{GHC.Tuple.(,)}> ds17_sOOb ds18_sOOc -> <{GHC.Tuple.(,)}> ds17_sOOb (GHC.Ptr.Ptr ds18_sOOc)))))) Gui.Base.Password.password1$2 action_sONO ds10_sONH ds11_sONR eta_sONI = let !wild3_sOOM = ffi_wrapper3 _Javascript_JQuery_Basic_getValUnsafe ds10_sONH eta_sONI in select wild3_sOOM (<{GHC.Tuple.(,)}> ds12_sONQ ds13_sONN -> action_sONO (GHC.Ptr.Ptr ds13_sONN) ds12_sONQ) Gui.Base.Password.password eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Password.password1 eta_B3_B3 eta_B2_B2 eta_B1_B1 Gui.Base.Password.setPassword eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.JQuery.Basic.jq_setVal eta_B3_B3 eta_B2_B2 eta_B1_B1