Gui.Base.Button.button_x2 =: GHC.CString.unpackCString# "" Gui.Base.Button.button3 =: let !ds_sNFk = Javascript.Base.Types.FakePtr Gui.Base.Button.button_x1 in select ds_sNFk (GHC.Ptr.Ptr ds1_sNDh -> let !tpl_sNFj = Gui.Base.Button.button_x1, !wild_sNFi = ffi_wrapper3 jsToString ds1_sNDh GHC.Prim.realWorld# in select wild_sNFi (<{GHC.Tuple.(,)}> ds2_sNFh ds3_sNDm -> GHC.Ptr.Ptr ds3_sNDm)) Gui.Base.Button.button_x =: GHC.CString.unpackCString# "input button" Gui.Base.Button.button2 =: let !ds_sNFq = Javascript.Base.Types.FakePtr Gui.Base.Button.button_x in select ds_sNFq (GHC.Ptr.Ptr ds1_sNDr -> let !tpl_sNFp = Gui.Base.Button.button_x, !wild_sNFo = ffi_wrapper3 jsToString ds1_sNDr GHC.Prim.realWorld# in select wild_sNFo (<{GHC.Tuple.(,)}> ds2_sNFn ds3_sNDw -> GHC.Ptr.Ptr ds3_sNDw)) Gui.Base.Button.$wa1 ww_sNDE w_sNDT = select Gui.Base.Button.button4 (GHC.Ptr.Ptr ds3_sNDL -> select Gui.Base.Button.button3 (GHC.Ptr.Ptr ds5_sNDF -> let !wild_sNFz = ffi_wrapper4 _Javascript_Base_String_concatJSString ww_sNDE ds5_sNDF GHC.Prim.realWorld# in select wild_sNFz (<{GHC.Tuple.(,)}> ds6_sNFy ds7_sNDM -> let !wild1_sNFx = ffi_wrapper4 _Javascript_Base_String_concatJSString ds3_sNDL ds7_sNDM GHC.Prim.realWorld# in select wild1_sNFx (<{GHC.Tuple.(,)}> ds1_sNFw ds8_sNDS -> let !wild2_sNFv = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds8_sNDS w_sNDT in select wild2_sNFv (<{GHC.Tuple.(,)}> ds9_sNE3 ds10_sNE2 -> select Gui.Base.Button.button2 (GHC.Ptr.Ptr ds12_sNE1 -> let !wild3_sNFt = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds12_sNE1 ds10_sNE2 ds9_sNE3 in select wild3_sNFt (<{GHC.Tuple.(,)}> ds13_sNE8 ds14_sNE9 -> <{GHC.Tuple.(,)}> ds13_sNE8 (GHC.Ptr.Ptr ds14_sNE9)))))))) <{Gui.Base.Button.button'1}> w_sNEd w1_sNEh = select w_sNEd (GHC.Ptr.Ptr ww_sNEg -> Gui.Base.Button.$wa1 ww_sNEg w1_sNEh) <{Gui.Base.Button.button'}> eta_B2_B2 eta_B1_B1 = <{Gui.Base.Button.button'1}> eta_B2_B2 eta_B1_B1 Gui.Base.Button.$wa ww_sNEl w_sNEt w1_sNEm = let !ds1_sNFK = Gui.Base.Button.$wa1 ww_sNEl w1_sNEm in select ds1_sNFK (<{GHC.Tuple.(,)}> ipv_sNEN ipv1_sNEG -> select Javascript.JQuery.Events.click_evt (GHC.Ptr.Ptr ds4_sNEK -> let !ds_sNFO = Javascript.Base.Types.FakePtr (Gui.Base.Button.$wa$1 w_sNEt) in select ds_sNFO (GHC.Ptr.Ptr ds2_sNEB -> let !wild_sNFN = ffi_wrapper3 makeCallback ds2_sNEB GHC.Prim.realWorld# in select wild_sNFN (<{GHC.Tuple.(,)}> ds5_sNFI ds6_sNEL -> select ipv1_sNEG (GHC.Ptr.Ptr ds8_sNEM -> let !wild1_sNFL = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds4_sNEK ds6_sNEL ds8_sNEM ipv_sNEN in select wild1_sNFL (<{GHC.Tuple.(,)}> ds10_sNES ds11_sNET -> <{GHC.Tuple.(,)}> ds10_sNES (GHC.Ptr.Ptr ds11_sNET))))))) Gui.Base.Button.$wa$1 w_sNEt ds_sNEw = w_sNEt <{GHC.Tuple.()}> Gui.Base.Button.button1 w_sNEY w1_sNF2 w2_sNF3 = select w_sNEY (GHC.Ptr.Ptr ww_sNF1 -> Gui.Base.Button.$wa ww_sNF1 w1_sNF2 w2_sNF3) Gui.Base.Button.button eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Button.button1 eta_B3_B3 eta_B2_B2 eta_B1_B1