:: Gui.Base.Dropdown.ListManip = Gui.Base.Dropdown.ListManip a1 a2 a3
Gui.Base.Dropdown.dropdownMulti_x =: GHC.CString.unpackCString# "multiple"
Gui.Base.Dropdown.dropdownMulti3 =: let !ds_sUBd = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdownMulti_x in select ds_sUBd (GHC.Ptr.Ptr ds1_sU8q -> let !tpl_sUBc = Gui.Base.Dropdown.dropdownMulti_x, !wild_sUBb = ffi_wrapper3 jsToString ds1_sU8q GHC.Prim.realWorld# in select wild_sUBb (<{GHC.Tuple.(,)}> ds2_sUBa ds3_sU8v -> GHC.Ptr.Ptr ds3_sU8v))
Gui.Base.Dropdown.dropdownMulti2 =: let !ds_sUBo = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdownMulti_x in select ds_sUBo (GHC.Ptr.Ptr ds1_sU8A -> let !tpl_sUBn = Gui.Base.Dropdown.dropdownMulti_x, !wild_sUBm = ffi_wrapper3 jsToString ds1_sU8A GHC.Prim.realWorld# in select wild_sUBm (<{GHC.Tuple.(,)}> ds2_sUBl ds3_sU8F -> GHC.Ptr.Ptr ds3_sU8F))
Gui.Base.Dropdown.mkMultiple eta_B2_B2 eta_B1_B1 = Javascript.JQuery.Basic.jq_setProp Gui.Base.Dropdown.dropdownMulti3 Gui.Base.Dropdown.dropdownMulti2 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.getItems ds_sU8H = select ds_sU8H (Gui.Base.Dropdown.ListManip ds1_sUBr ds2_sUBs ds3_sU8M -> ds3_sU8M)
Gui.Base.Dropdown.createItem ds_sU8O = select ds_sU8O (Gui.Base.Dropdown.ListManip ds1_sUBv ds2_sU8T ds3_sUBw -> ds2_sU8T)
Gui.Base.Dropdown.createContainer ds_sU8V = select ds_sU8V (Gui.Base.Dropdown.ListManip ds1_sU90 ds2_sUBz ds3_sUBA -> ds1_sU90)
Gui.Base.Dropdown.dropdown4 =: Data.Typeable.Internal.typeOfDefault Javascript.Base.Types.$fTypeable1JSObject__$ctypeOf1 Javascript.Base.Types.$fTypeableJSString__$ctypeOf
Gui.Base.Dropdown.dropdown3 =: Data.Typeable.Internal.typeOfDefault Data.Typeable.Internal.$fTypeable1Ptr_$ctypeOf1 Gui.Base.Dropdown.dropdown4
Gui.Base.Dropdown.allValues_x =: GHC.CString.unpackCString# "val"
Gui.Base.Dropdown.key =: let !ds_sUBJ = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.allValues_x in select ds_sUBJ (GHC.Ptr.Ptr ds1_sU95 -> let !tpl_sUBI = Gui.Base.Dropdown.allValues_x, !wild_sUBH = ffi_wrapper3 jsToString ds1_sU95 GHC.Prim.realWorld# in select wild_sUBH (<{GHC.Tuple.(,)}> ds2_sUBG ds3_sU9a -> GHC.Ptr.Ptr ds3_sU9a))
Gui.Base.Dropdown.dropdownSize_x =: GHC.CString.unpackCString# "size"
Gui.Base.Dropdown.dropdownSize_t =: let !ds_sUBP = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdownSize_x in select ds_sUBP (GHC.Ptr.Ptr ds1_sU9f -> let !tpl_sUBO = Gui.Base.Dropdown.dropdownSize_x, !wild_sUBN = ffi_wrapper3 jsToString ds1_sU9f GHC.Prim.realWorld# in select wild_sUBN (<{GHC.Tuple.(,)}> ds2_sUBM ds3_sU9k -> GHC.Ptr.Ptr ds3_sU9k))
Gui.Base.Dropdown.dropdownSize1 eta_sU9q eta1_sU9t eta2_sU9A = select Gui.Base.Dropdown.dropdownSize_t (GHC.Ptr.Ptr ds4_sU9x -> select eta_sU9q (GHC.Ptr.Ptr ds6_sU9y -> select eta1_sU9t (GHC.Ptr.Ptr ds8_sU9z -> let !wild_sUBS = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setProp ds4_sU9x ds6_sU9y ds8_sU9z eta2_sU9A in select wild_sUBS (<{GHC.Tuple.(,)}> ds10_sU9F ds11_sU9G -> <{GHC.Tuple.(,)}> ds10_sU9F (GHC.Ptr.Ptr ds11_sU9G)))))
Gui.Base.Dropdown.dropdownSize eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.dropdownSize1 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.x =: GHC.CString.unpackCString# "selected"
Gui.Base.Dropdown.lvl =: let !ds_sUC2 = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.x in select ds_sUC2 (GHC.Ptr.Ptr ds1_sU9M -> let !tpl_sUC1 = Gui.Base.Dropdown.x, !wild_sUC0 = ffi_wrapper3 jsToString ds1_sU9M GHC.Prim.realWorld# in select wild_sUC0 (<{GHC.Tuple.(,)}> ds2_sUBZ ds3_sU9R -> GHC.Ptr.Ptr ds3_sU9R))
Gui.Base.Dropdown.lvl1 =: let !ds_sUC7 = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.x in select ds_sUC7 (GHC.Ptr.Ptr ds1_sU9W -> let !tpl_sUC6 = Gui.Base.Dropdown.x, !wild_sUC5 = ffi_wrapper3 jsToString ds1_sU9W GHC.Prim.realWorld# in select wild_sUC5 (<{GHC.Tuple.(,)}> ds2_sUC4 ds3_sUa1 -> GHC.Ptr.Ptr ds3_sUa1))
Gui.Base.Dropdown.x1 =: GHC.CString.unpackCString# "true"
Gui.Base.Dropdown.lvl2 =: let !ds_sUCd = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.x1 in select ds_sUCd (GHC.Ptr.Ptr ds1_sUa6 -> let !tpl_sUCc = Gui.Base.Dropdown.x1, !wild_sUCb = ffi_wrapper3 jsToString ds1_sUa6 GHC.Prim.realWorld# in select wild_sUCb (<{GHC.Tuple.(,)}> ds2_sUCa ds3_sUab -> GHC.Ptr.Ptr ds3_sUab))
Gui.Base.Dropdown.dropdown_x4 =: GHC.CString.unpackCString# ""
Gui.Base.Dropdown.dropdown_x3 =: GHC.CString.unpackCString# "input dropdown"
Gui.Base.Dropdown.dropdown10 =: Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x3
Gui.Base.Dropdown.dropdown11 =: Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x4
Gui.Base.Dropdown.dropdown9 eta_sUao = select Gui.Base.Dropdown.dropdown11 (GHC.Ptr.Ptr ds1_sUah -> let !tpl_sUCs = Gui.Base.Dropdown.dropdown_x4, !wild_sUCr = ffi_wrapper3 jsToString ds1_sUah GHC.Prim.realWorld# in select wild_sUCr (<{GHC.Tuple.(,)}> ds2_sUCq ds3_sUan -> let !wild1_sUCp = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_sUan eta_sUao in select wild1_sUCp (<{GHC.Tuple.(,)}> ds4_sUaF ds5_sUaE -> select Gui.Base.Dropdown.dropdown10 (GHC.Ptr.Ptr ds7_sUax -> let !tpl1_sUCn = Gui.Base.Dropdown.dropdown_x3, !wild2_sUCm = ffi_wrapper3 jsToString ds7_sUax GHC.Prim.realWorld# in select wild2_sUCm (<{GHC.Tuple.(,)}> ds8_sUCl ds9_sUaD -> let !wild3_sUCk = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_sUaD ds5_sUaE ds4_sUaF in select wild3_sUCk (<{GHC.Tuple.(,)}> ds10_sUaK ds11_sUaL -> <{GHC.Tuple.(,)}> ds10_sUaK (GHC.Ptr.Ptr ds11_sUaL)))))))
Gui.Base.Dropdown.allOptions2 opts_sUbr eta_sUaQ = let !wild_sUCC = ffi_wrapper2 _Javascript_Base_Array_newArray eta_sUaQ in select wild_sUCC (<{GHC.Tuple.(,)}> ds1_sUbx ds2_sUba -> let !ds_sUCI = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.allOptions2$9 ds2_sUba) in select ds_sUCI (GHC.Ptr.Ptr ds3_sUbm -> let !wild1_sUCH = ffi_wrapper3 makeCallback ds3_sUbm GHC.Prim.realWorld# in select wild1_sUCH (<{GHC.Tuple.(,)}> ds4_sUCw ds5_sUbv -> select opts_sUbr (GHC.Ptr.Ptr ds7_sUbw -> let !wild2_sUCF = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds5_sUbv ds7_sUbw ds1_sUbx in select wild2_sUCF (<{GHC.Tuple.(,)}> ds8_sUbD ds9_sUCx -> let !wild3_sUCE = ffi_wrapper3 fromJSArrayJSVal ds2_sUba ds8_sUbD in select wild3_sUCE (<{GHC.Tuple.(,)}> ds10_sUbL ds11_sUbI -> let !wild4_sUCD = GHC.Ptr.Ptr ds11_sUbI in select wild4_sUCD (Javascript.Base.Types.FakePtr val_sUbM -> <{GHC.Tuple.(,)}> ds10_sUbL val_sUbM)))))))
Gui.Base.Dropdown.allOptions2$9 ds2_sUba ds_sUbh eta1_sUaY eta2_sUb3 = select eta1_sUaY (GHC.Ptr.Ptr ds4_sUb2 -> let !wild1_sUCA = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds4_sUb2 eta2_sUb3 in select wild1_sUCA (<{GHC.Tuple.(,)}> ds5_sUbb ds6_sUb9 -> let !wild2_sUCz = ffi_wrapper4 _Javascript_Base_Array_jsArrayPush_ ds6_sUb9 ds2_sUba ds5_sUbb in select wild2_sUCz (<{GHC.Tuple.(,)}> ds7_sUbg ds8_sUCy -> <{GHC.Tuple.(,)}> ds7_sUbg <{GHC.Tuple.()}>)))
Gui.Base.Dropdown.childrenToArray eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.allOptions2 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.allOptions_x =: GHC.CString.unpackCString# "option"
Gui.Base.Dropdown.allOptions3 =: let !ds_sUCP = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.allOptions_x in select ds_sUCP (GHC.Ptr.Ptr ds1_sUbR -> let !tpl_sUCO = Gui.Base.Dropdown.allOptions_x, !wild_sUCN = ffi_wrapper3 jsToString ds1_sUbR GHC.Prim.realWorld# in select wild_sUCN (<{GHC.Tuple.(,)}> ds2_sUCM ds3_sUbW -> GHC.Ptr.Ptr ds3_sUbW))
Gui.Base.Dropdown.$wa ww_sUc3 w_sUc4 = select Gui.Base.Dropdown.allOptions3 (GHC.Ptr.Ptr ds3_sUc2 -> let !wild_sUCS = ffi_wrapper4 _Javascript_JQuery_Basic_jq_children ds3_sUc2 ww_sUc3 w_sUc4 in select wild_sUCS (<{GHC.Tuple.(,)}> ds7_sUcb ds8_sUc9 -> Gui.Base.Dropdown.allOptions2 (GHC.Ptr.Ptr ds8_sUc9) ds7_sUcb))
Gui.Base.Dropdown.allOptions1 w_sUce w1_sUci = select w_sUce (GHC.Ptr.Ptr ww_sUch -> Gui.Base.Dropdown.$wa ww_sUch w1_sUci)
Gui.Base.Dropdown.allOptions eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.allOptions1 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.dropdown_x2 =: GHC.CString.unpackCString# ""
Gui.Base.Dropdown.dropdownManip5 =: let !ds_sUD2 = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x2 in select ds_sUD2 (GHC.Ptr.Ptr ds1_sUcn -> let !tpl_sUD1 = Gui.Base.Dropdown.dropdown_x2, !wild_sUD0 = ffi_wrapper3 jsToString ds1_sUcn GHC.Prim.realWorld# in select wild_sUD0 (<{GHC.Tuple.(,)}> ds2_sUCZ ds3_sUcs -> GHC.Ptr.Ptr ds3_sUcs))
Gui.Base.Dropdown.dropdown_x1 =: GHC.CString.unpackCString# "input option"
Gui.Base.Dropdown.dropdownManip4 =: let !ds_sUD8 = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x1 in select ds_sUD8 (GHC.Ptr.Ptr ds1_sUcx -> let !tpl_sUD7 = Gui.Base.Dropdown.dropdown_x1, !wild_sUD6 = ffi_wrapper3 jsToString ds1_sUcx GHC.Prim.realWorld# in select wild_sUD6 (<{GHC.Tuple.(,)}> ds2_sUD5 ds3_sUcC -> GHC.Ptr.Ptr ds3_sUcC))
Gui.Base.Dropdown.dropdown_x =: GHC.CString.unpackCString# "value"
Gui.Base.Dropdown.dropdownManip3 =: let !ds_sUDe = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x in select ds_sUDe (GHC.Ptr.Ptr ds1_sUcH -> let !tpl_sUDd = Gui.Base.Dropdown.dropdown_x, !wild_sUDc = ffi_wrapper3 jsToString ds1_sUcH GHC.Prim.realWorld# in select wild_sUDc (<{GHC.Tuple.(,)}> ds2_sUDb ds3_sUcM -> GHC.Ptr.Ptr ds3_sUcM))
Gui.Base.Dropdown.dropdownManip2 val_sUdI name_sUdi a_sUcR s_sUd1 = let !ds5_sUDr = Javascript.Base.Types.FakePtr (Data.Dynamic.Dynamic (Gui.Base.Dropdown.dropdown3 a_sUcR) a_sUcR) in select ds5_sUDr (GHC.Ptr.Ptr ds6_sUdx -> select Gui.Base.Dropdown.dropdownManip5 (GHC.Ptr.Ptr ds1_sUd0 -> let !wild_sUDp = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sUd0 s_sUd1 in select wild_sUDp (<{GHC.Tuple.(,)}> ds2_sUdb ds3_sUda -> select Gui.Base.Dropdown.dropdownManip4 (GHC.Ptr.Ptr ds7_sUd9 -> let !wild1_sUDn = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds7_sUd9 ds3_sUda ds2_sUdb in select wild1_sUDn (<{GHC.Tuple.(,)}> ds8_sUdK ds9_sUdn -> select val_sUdI (Data.Maybe.Nothing -> Gui.Base.Dropdown.dropdownManip2$1 ds6_sUdx ds9_sUdn name_sUdi ds8_sUdK) (Data.Maybe.Just x2_sUdO -> select Gui.Base.Dropdown.dropdownManip3 (GHC.Ptr.Ptr ds11_sUdS -> select x2_sUdO (GHC.Ptr.Ptr ds13_sUdT -> let !wild3_sUDt = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setAttr ds11_sUdS ds13_sUdT ds9_sUdn ds8_sUdK in select wild3_sUDt (<{GHC.Tuple.(,)}> ds14_sUdY ds15_sUDh -> Gui.Base.Dropdown.dropdownManip2$1 ds6_sUdx ds9_sUdn name_sUdi ds14_sUdY)))))))))
Gui.Base.Dropdown.dropdownManip2$1 ds6_sUdx ds9_sUdn name_sUdi w_sUdo = select name_sUdi (GHC.Ptr.Ptr ds11_sUdm -> let !wild2_sUDl = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds11_sUdm ds9_sUdn w_sUdo in select wild2_sUDl (<{GHC.Tuple.(,)}> ds12_sUdz ds13_sUdy -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ds15_sUdw -> let !wild3_sUDj = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setData ds15_sUdw ds6_sUdx ds13_sUdy ds12_sUdz in select wild3_sUDj (<{GHC.Tuple.(,)}> ds16_sUdE ds17_sUdF -> <{GHC.Tuple.(,)}> ds16_sUdE (GHC.Ptr.Ptr ds17_sUdF)))))
Gui.Base.Dropdown.dropdownManip1 =: Gui.Base.Dropdown.ListManip Gui.Base.Dropdown.dropdown9 Gui.Base.Dropdown.dropdownManip2 Gui.Base.Dropdown.allOptions1
Gui.Base.Dropdown.dropdownManip_$sdropdownManip ds_sUe0 = Gui.Base.Dropdown.dropdownManip1
Gui.Base.Dropdown.dropdown8 =: let !ds_sUDC = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x2 in select ds_sUDC (GHC.Ptr.Ptr ds1_sUe5 -> let !tpl_sUDB = Gui.Base.Dropdown.dropdown_x2, !wild_sUDA = ffi_wrapper3 jsToString ds1_sUe5 GHC.Prim.realWorld# in select wild_sUDA (<{GHC.Tuple.(,)}> ds2_sUDz ds3_sUea -> GHC.Ptr.Ptr ds3_sUea))
Gui.Base.Dropdown.dropdown7 =: let !ds_sUDH = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x1 in select ds_sUDH (GHC.Ptr.Ptr ds1_sUef -> let !tpl_sUDG = Gui.Base.Dropdown.dropdown_x1, !wild_sUDF = ffi_wrapper3 jsToString ds1_sUef GHC.Prim.realWorld# in select wild_sUDF (<{GHC.Tuple.(,)}> ds2_sUDE ds3_sUek -> GHC.Ptr.Ptr ds3_sUek))
Gui.Base.Dropdown.dropdown6 =: let !ds_sUDM = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.dropdown_x in select ds_sUDM (GHC.Ptr.Ptr ds1_sUep -> let !tpl_sUDL = Gui.Base.Dropdown.dropdown_x, !wild_sUDK = ffi_wrapper3 jsToString ds1_sUep GHC.Prim.realWorld# in select wild_sUDK (<{GHC.Tuple.(,)}> ds2_sUDJ ds3_sUeu -> GHC.Ptr.Ptr ds3_sUeu))
Gui.Base.Dropdown.$wdropdownManip w_sUeB = <{GHC.Tuple.(,,)}> Gui.Base.Dropdown.dropdown9 (Gui.Base.Dropdown.$wdropdownManip$10 w_sUeB) Gui.Base.Dropdown.allOptions1
Gui.Base.Dropdown.$wdropdownManip$10 w_sUeB val_sUfs name_sUf2 a_sUeA s_sUeL = let !ds5_sUE0 = Javascript.Base.Types.FakePtr (Data.Dynamic.Dynamic (w_sUeB a_sUeA) a_sUeA) in select ds5_sUE0 (GHC.Ptr.Ptr ds6_sUfh -> select Gui.Base.Dropdown.dropdown8 (GHC.Ptr.Ptr ds1_sUeK -> let !wild_sUDY = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sUeK s_sUeL in select wild_sUDY (<{GHC.Tuple.(,)}> ds2_sUeV ds3_sUeU -> select Gui.Base.Dropdown.dropdown7 (GHC.Ptr.Ptr ds7_sUeT -> let !wild1_sUDW = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds7_sUeT ds3_sUeU ds2_sUeV in select wild1_sUDW (<{GHC.Tuple.(,)}> ds8_sUfu ds9_sUf7 -> select val_sUfs (Data.Maybe.Nothing -> Gui.Base.Dropdown.$wdropdownManip$2 ds6_sUfh ds9_sUf7 name_sUf2 ds8_sUfu) (Data.Maybe.Just x2_sUfy -> select Gui.Base.Dropdown.dropdown6 (GHC.Ptr.Ptr ds11_sUfC -> select x2_sUfy (GHC.Ptr.Ptr ds13_sUfD -> let !wild3_sUE2 = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setAttr ds11_sUfC ds13_sUfD ds9_sUf7 ds8_sUfu in select wild3_sUE2 (<{GHC.Tuple.(,)}> ds14_sUfI ds15_sUDP -> Gui.Base.Dropdown.$wdropdownManip$2 ds6_sUfh ds9_sUf7 name_sUf2 ds14_sUfI)))))))))
Gui.Base.Dropdown.$wdropdownManip$2 ds6_sUfh ds9_sUf7 name_sUf2 w1_sUf8 = select name_sUf2 (GHC.Ptr.Ptr ds11_sUf6 -> let !wild2_sUDU = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds11_sUf6 ds9_sUf7 w1_sUf8 in select wild2_sUDU (<{GHC.Tuple.(,)}> ds12_sUfj ds13_sUfi -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ds15_sUfg -> let !wild3_sUDS = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setData ds15_sUfg ds6_sUfh ds13_sUfi ds12_sUfj in select wild3_sUDS (<{GHC.Tuple.(,)}> ds16_sUfo ds17_sUfp -> <{GHC.Tuple.(,)}> ds16_sUfo (GHC.Ptr.Ptr ds17_sUfp)))))
Gui.Base.Dropdown.dropdownManip w_sUfV w1_sUfN w2_sUfW = let !ww_sUE6 = Gui.Base.Dropdown.$wdropdownManip w1_sUfN in select ww_sUE6 (<{GHC.Tuple.(,,)}> ww1_sUfS ww2_sUfT ww3_sUfU -> Gui.Base.Dropdown.ListManip ww1_sUfS ww2_sUfT ww3_sUfU)
Gui.Base.Dropdown.lvl3 =: GHC.Enum.eftInt 0 2147483647
Gui.Base.Dropdown.lvl4 s_sUfY = <{GHC.Tuple.(,)}> s_sUfY <{GHC.Types.[]}>
Gui.Base.Dropdown.$wa6 w_sUhq w1_sUgH ww_sUir ww1_sUg8 w2_sUhg w3_sUg6 w4_sUg7 = let !ds1_sUEK = ww1_sUg8 w3_sUg6 w4_sUg7 in select ds1_sUEK (<{GHC.Tuple.(,)}> ipv_sUhb ipv1_sUha -> let !ds2_sUEL = Control.Monad.$wfoldM GHC.Base.bindIO1 GHC.Base.returnIO1 (Gui.Base.Dropdown.$wa6$11 w1_sUgH) <{GHC.Types.[]}> ipv1_sUha ipv_sUhb in select ds2_sUEL (<{GHC.Tuple.(,)}> ipv2_sUhO ipv3_sUhN -> let a_sUhM = Gui.Base.Dropdown.$wa6$12 a_sUhM w2_sUhg w_sUhq, !ds3_sUES = a_sUhM ipv3_sUhN ipv2_sUhO in select ds3_sUES (<{GHC.Tuple.(,)}> ipv4_sUiW ipv5_sUEs -> let !ds4_sUF4 = GHC.List.foldr2 (Gui.Base.Dropdown.$wa6$13 ipv3_sUhN (<{GHC.Classes.==}> w_sUhq) ww_sUir) Gui.Base.Dropdown.lvl4 Gui.Base.Dropdown.lvl3 w2_sUhg ipv4_sUiW in select ds4_sUF4 (<{GHC.Tuple.(,)}> ipv6_sUj2 ipv7_sUj0 -> select ipv7_sUj0 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ipv6_sUj2 w3_sUg6) (<{GHC.Types.:}> y_sUj5 ys_sUjB -> select y_sUj5 (GHC.Ptr.Ptr ds6_sUjb -> select w3_sUg6 (GHC.Ptr.Ptr ds8_sUjc -> let !wild1_sUF6 = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds6_sUjb ds8_sUjc ipv6_sUj2 in select wild1_sUF6 (<{GHC.Tuple.(,)}> ds9_sUjC ds10_sUEn -> let a1_sUjA = Gui.Base.Dropdown.$wa6$14 a1_sUjA ds8_sUjc, !ds11_sUFa = a1_sUjA ys_sUjB ds9_sUjC in select ds11_sUFa (<{GHC.Tuple.(,)}> ipv8_sUjG ipv9_sUEm -> <{GHC.Tuple.(,)}> ipv8_sUjG w3_sUg6)))))))))
Gui.Base.Dropdown.$wa6$11 w1_sUgH l_sUh7 opt_sUgh eta_sUgn = select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww2_sUgl -> select opt_sUgh (GHC.Ptr.Ptr ww3_sUgm -> let !wild_sUEI = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww2_sUgl ww3_sUgm eta_sUgn in select wild_sUEI (<{GHC.Tuple.(,)}> ds_sUgz ds2_sUgs -> let !wild1_sUEH = GHC.Ptr.Ptr ds2_sUgs in select wild1_sUEH (Javascript.Base.Types.FakePtr val1_sUgv -> select val1_sUgv (Data.Dynamic.Dynamic ww4_sUgA ww5_sUgG -> <{GHC.Tuple.(,)}> ds_sUgz (Gui.Base.Dropdown.$wa6$5 l_sUh7 opt_sUgh w1_sUgH ww4_sUgA ww5_sUgG))))))
Gui.Base.Dropdown.$wa6$12 a_sUhM w2_sUhg w_sUhq ds_sUhl eta_sUhn = select ds_sUhl (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUhn <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_sUhr ys_sUhK -> let !wild1_sUER = GHC.List.elem w_sUhq (Gui.Base.Dropdown.$wa6$4 y_sUhr) (GHC.Base.map Data.Tuple.snd w2_sUhg) in if wild1_sUER (a_sUhM ys_sUhK eta_sUhn) (select y_sUhr (<{GHC.Tuple.(,)}> x2_sUhB ds3_sUEp -> select x2_sUhB (GHC.Ptr.Ptr ds5_sUhF -> let !wild3_sUEO = ffi_wrapper3 _Javascript_JQuery_Basic_removeNone ds5_sUhF eta_sUhn in select wild3_sUEO (<{GHC.Tuple.(,)}> ds6_sUhL ds7_sUEq -> a_sUhM ys_sUhK ds6_sUhL)))))
Gui.Base.Dropdown.$wa6$13 ipv3_sUhN lvl8_sUhT ww_sUir x2_sUia y_sUhY r_sUiA s_sUiv = select y_sUhY (<{GHC.Tuple.(,)}> name_sUiu a1_sUi3 -> let !wild1_sUEY = GHC.List.filter (Gui.Base.Dropdown.$wa6$15 (lvl8_sUhT a1_sUi3)) ipv3_sUhN in select wild1_sUEY (<{GHC.Types.[]}> -> let !ds4_sUF0 = ww_sUir (Data.Maybe.Just (Gui.Base.Dropdown.$wa6$3 x2_sUia)) name_sUiu a1_sUi3 s_sUiv in select ds4_sUF0 (<{GHC.Tuple.(,)}> ipv6_sUiz ipv7_sUiF -> let !ds5_sUEZ = r_sUiA ipv6_sUiz in select ds5_sUEZ (<{GHC.Tuple.(,)}> ipv8_sUiE ipv9_sUiG -> <{GHC.Tuple.(,)}> ipv8_sUiE (<{GHC.Types.:}> ipv7_sUiF ipv9_sUiG)))) (<{GHC.Types.:}> a2_sUiK ds4_sUEh -> select a2_sUiK (<{GHC.Tuple.(,)}> opt_sUiS ds_sUEi -> let !ds5_sUF1 = r_sUiA s_sUiv in select ds5_sUF1 (<{GHC.Tuple.(,)}> ipv6_sUiR ipv7_sUiT -> <{GHC.Tuple.(,)}> ipv6_sUiR (<{GHC.Types.:}> opt_sUiS ipv7_sUiT)))))
Gui.Base.Dropdown.$wa6$15 f_sUi4 x3_sUi6 = f_sUi4 (Data.Tuple.snd x3_sUi6)
Gui.Base.Dropdown.$wa6$14 a1_sUjA ds8_sUjc ds_sUjk eta_sUjm = select ds_sUjk (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUjm <{GHC.Tuple.()}>) (<{GHC.Types.:}> y1_sUjp ys1_sUjy -> select y1_sUjp (GHC.Ptr.Ptr ds12_sUjt -> let !wild3_sUF8 = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds12_sUjt ds8_sUjc eta_sUjm in select wild3_sUF8 (<{GHC.Tuple.(,)}> ds13_sUjz ds14_sUEl -> a1_sUjA ys1_sUjy ds13_sUjz)))
Gui.Base.Dropdown.$wa6$3 x2_sUia = select x2_sUia (GHC.Types.I# ww2_sUie -> let !x3_sUif = GHC.Show.$wshowSignedInt 0 ww2_sUie <{GHC.Types.[]}>, !ds_sUEW = Javascript.Base.Types.FakePtr x3_sUif in select ds_sUEW (GHC.Ptr.Ptr ds4_sUik -> let !tpl_sUEV = x3_sUif, !wild2_sUEU = ffi_wrapper3 jsToString ds4_sUik GHC.Prim.realWorld# in select wild2_sUEU (<{GHC.Tuple.(,)}> ds5_sUEj ds6_sUip -> GHC.Ptr.Ptr ds6_sUip)))
Gui.Base.Dropdown.$wa6$4 y_sUhr = select y_sUhr (<{GHC.Tuple.(,)}> ds3_sUEr y1_sUhv -> y1_sUhv)
Gui.Base.Dropdown.$wa6$5 l_sUh7 opt_sUgh w1_sUgH ww4_sUgA ww5_sUgG = select ww4_sUgA (Data.Typeable.Internal.TypeRep rb_sUgO rb1_sUgX ds3_sUED ds4_sUEE -> let !wild3_sUEC = w1_sUgH ww5_sUgG in select wild3_sUEC (Data.Typeable.Internal.TypeRep rb2_sUgP rb3_sUgY ds5_sUEA ds6_sUEB -> let !wild4_sUEz = ffi_wrapper4 hs_eqWord64 rb_sUgO rb2_sUgP GHC.Prim.realWorld# in select wild4_sUEz (<{GHC.Tuple.(,)}> ds7_sUEy ds8_sUgU -> select ds8_sUgU (_ -> let !wild6_sUEw = ffi_wrapper4 hs_eqWord64 rb1_sUgX rb3_sUgY GHC.Prim.realWorld# in select wild6_sUEw (<{GHC.Tuple.(,)}> ds9_sUEv ds10_sUh3 -> select ds10_sUh3 (_ -> <{GHC.Types.:}> (<{GHC.Tuple.(,)}> opt_sUgh ww5_sUgG) l_sUh7) (0 -> l_sUh7))) (0 -> l_sUh7))))
Gui.Base.Dropdown.mkListMulti2 w_sUjT w1_sUjU w2_sUjO w3_sUjX w4_sUjY w5_sUjZ = select w2_sUjO (Gui.Base.Dropdown.ListManip ww_sUFc ww1_sUjV ww2_sUjW -> Gui.Base.Dropdown.$wa6 w_sUjT w1_sUjU ww1_sUjV ww2_sUjW w3_sUjX w4_sUjY w5_sUjZ)
Gui.Base.Dropdown.update eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.mkListMulti2 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.mkListMulti1 $dTypeable_sUkg $dEq_sUkf lm_sUk5 opts_sUkj eta_sUka = select lm_sUk5 (Gui.Base.Dropdown.ListManip ds_sUkb ds1_sUkh ds2_sUki -> let !ds3_sUFg = ds_sUkb eta_sUka in select ds3_sUFg (<{GHC.Tuple.(,)}> ipv_sUkl ipv1_sUkk -> Gui.Base.Dropdown.$wa6 $dEq_sUkf $dTypeable_sUkg ds1_sUkh ds2_sUki opts_sUkj ipv1_sUkk ipv_sUkl))
Gui.Base.Dropdown.mkListMulti eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.mkListMulti1 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.$wa1 w_sUlq ww_sUks w1_sUkq w2_sUkr = let !ds1_sUFm = ww_sUks w1_sUkq w2_sUkr in select ds1_sUFm (<{GHC.Tuple.(,)}> ipv_sUky ipv1_sUkw -> select ipv1_sUkw (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ipv_sUky (Data.Maybe.catMaybes1 <{GHC.Types.[]}>)) (<{GHC.Types.:}> y_sUkE ys_sUlx -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww1_sUkI -> select y_sUkE (GHC.Ptr.Ptr ww2_sUkJ -> let !wild1_sUFs = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUkI ww2_sUkJ ipv_sUky in select wild1_sUFs (<{GHC.Tuple.(,)}> ds_sUly ds2_sUkO -> let !wild2_sUFr = GHC.Ptr.Ptr ds2_sUkO in select wild2_sUFr (Javascript.Base.Types.FakePtr val1_sUkR -> select val1_sUkR (Data.Dynamic.Dynamic ww3_sUlD ww4_sUlE -> let a_sUll = Gui.Base.Dropdown.$wa1$16 a_sUll w_sUlq ww1_sUkI, !ds3_sUFA = a_sUll ys_sUlx ds_sUly in select ds3_sUFA (<{GHC.Tuple.(,)}> ipv2_sUlC ipv3_sUlG -> <{GHC.Tuple.(,)}> ipv2_sUlC (Data.Maybe.catMaybes1 (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic w_sUlq ww3_sUlD ww4_sUlE) ipv3_sUlG))))))))))
Gui.Base.Dropdown.$wa1$16 a_sUll w_sUlq ww1_sUkI ds3_sUkY eta_sUl0 = select ds3_sUkY (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUl0 <{GHC.Types.[]}>) (<{GHC.Types.:}> y1_sUl3 ys1_sUlj -> select y1_sUl3 (GHC.Ptr.Ptr ww5_sUl7 -> let !wild4_sUFy = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUkI ww5_sUl7 eta_sUl0 in select wild4_sUFy (<{GHC.Tuple.(,)}> ds4_sUlk ds5_sUlc -> let !wild5_sUFx = GHC.Ptr.Ptr ds5_sUlc in select wild5_sUFx (Javascript.Base.Types.FakePtr val2_sUlf -> select val2_sUlf (Data.Dynamic.Dynamic ww6_sUlr ww7_sUls -> let !ds6_sUFv = a_sUll ys1_sUlj ds4_sUlk in select ds6_sUFv (<{GHC.Tuple.(,)}> ipv2_sUlp ipv3_sUlu -> <{GHC.Tuple.(,)}> ipv2_sUlp (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic w_sUlq ww6_sUlr ww7_sUls) ipv3_sUlu)))))))
Gui.Base.Dropdown.allValues1 w_sUlU w1_sUlP w2_sUlW w3_sUlX = select w1_sUlP (Gui.Base.Dropdown.ListManip ww_sUFC ww1_sUFD ww2_sUlV -> Gui.Base.Dropdown.$wa1 w_sUlU ww2_sUlV w2_sUlW w3_sUlX)
Gui.Base.Dropdown.allValues eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.allValues1 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.choices_x =: GHC.CString.unpackCString# "option:selected"
Gui.Base.Dropdown.choices3 =: let !ds_sUFL = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.choices_x in select ds_sUFL (GHC.Ptr.Ptr ds1_sUm2 -> let !tpl_sUFK = Gui.Base.Dropdown.choices_x, !wild_sUFJ = ffi_wrapper3 jsToString ds1_sUm2 GHC.Prim.realWorld# in select wild_sUFJ (<{GHC.Tuple.(,)}> ds2_sUFI ds3_sUm7 -> GHC.Ptr.Ptr ds3_sUm7))
Gui.Base.Dropdown.choices2 opts_sUmM eta_sUmb = let !wild_sUFX = ffi_wrapper2 _Javascript_Base_Array_newArray eta_sUmb in select wild_sUFX (<{GHC.Tuple.(,)}> ds1_sUmS ds2_sUmv -> let !ds_sUG4 = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.choices2$17 ds2_sUmv) in select ds_sUG4 (GHC.Ptr.Ptr ds3_sUmH -> let !wild1_sUG3 = ffi_wrapper3 makeCallback ds3_sUmH GHC.Prim.realWorld# in select wild1_sUG3 (<{GHC.Tuple.(,)}> ds4_sUFP ds5_sUmQ -> select opts_sUmM (GHC.Ptr.Ptr ds7_sUmR -> let !wild2_sUG1 = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds5_sUmQ ds7_sUmR ds1_sUmS in select wild2_sUG1 (<{GHC.Tuple.(,)}> ds8_sUmY ds9_sUFQ -> let !wild3_sUG0 = ffi_wrapper3 fromJSArrayJSVal ds2_sUmv ds8_sUmY in select wild3_sUG0 (<{GHC.Tuple.(,)}> ds10_sUn8 ds11_sUn3 -> let !wild4_sUFZ = GHC.Ptr.Ptr ds11_sUn3 in select wild4_sUFZ (Javascript.Base.Types.FakePtr val_sUn6 -> select val_sUn6 (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ds10_sUn8 (Data.Maybe.catMaybes1 <{GHC.Types.[]}>)) (<{GHC.Types.:}> y_sUne ys_sUo6 -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww_sUni -> select y_sUne (GHC.Ptr.Ptr ww1_sUnj -> let !wild6_sUG8 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww_sUni ww1_sUnj ds10_sUn8 in select wild6_sUG8 (<{GHC.Tuple.(,)}> ds12_sUo7 ds13_sUno -> let !wild7_sUG7 = GHC.Ptr.Ptr ds13_sUno in select wild7_sUG7 (Javascript.Base.Types.FakePtr val1_sUnr -> select val1_sUnr (Data.Dynamic.Dynamic ww2_sUoc ww3_sUod -> let a_sUnV = Gui.Base.Dropdown.choices2$18 a_sUnV ww_sUni, !ds14_sUGg = a_sUnV ys_sUo6 ds12_sUo7 in select ds14_sUGg (<{GHC.Tuple.(,)}> ipv_sUob ipv1_sUof -> <{GHC.Tuple.(,)}> ipv_sUob (Data.Maybe.catMaybes1 (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic Gui.Base.Dropdown.dropdown3 ww2_sUoc ww3_sUod) ipv1_sUof))))))))))))))))
Gui.Base.Dropdown.choices2$17 ds2_sUmv ds_sUmC eta1_sUmj eta2_sUmo = select eta1_sUmj (GHC.Ptr.Ptr ds4_sUmn -> let !wild1_sUFV = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds4_sUmn eta2_sUmo in select wild1_sUFV (<{GHC.Tuple.(,)}> ds5_sUmw ds6_sUmu -> let !wild2_sUFU = ffi_wrapper4 _Javascript_Base_Array_jsArrayPush_ ds6_sUmu ds2_sUmv ds5_sUmw in select wild2_sUFU (<{GHC.Tuple.(,)}> ds7_sUmB ds8_sUFT -> <{GHC.Tuple.(,)}> ds7_sUmB <{GHC.Tuple.()}>)))
Gui.Base.Dropdown.choices2$18 a_sUnV ww_sUni ds14_sUny eta1_sUnA = select ds14_sUny (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta1_sUnA <{GHC.Types.[]}>) (<{GHC.Types.:}> y1_sUnD ys1_sUnT -> select y1_sUnD (GHC.Ptr.Ptr ww4_sUnH -> let !wild9_sUGe = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww_sUni ww4_sUnH eta1_sUnA in select wild9_sUGe (<{GHC.Tuple.(,)}> ds15_sUnU ds16_sUnM -> let !wild10_sUGd = GHC.Ptr.Ptr ds16_sUnM in select wild10_sUGd (Javascript.Base.Types.FakePtr val2_sUnP -> select val2_sUnP (Data.Dynamic.Dynamic ww5_sUo0 ww6_sUo1 -> let !ds17_sUGb = a_sUnV ys1_sUnT ds15_sUnU in select ds17_sUGb (<{GHC.Tuple.(,)}> ipv_sUnZ ipv1_sUo3 -> <{GHC.Tuple.(,)}> ipv_sUnZ (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic Gui.Base.Dropdown.dropdown3 ww5_sUo0 ww6_sUo1) ipv1_sUo3)))))))
Gui.Base.Dropdown.$wa2 ww_sUoq w_sUor = select Gui.Base.Dropdown.choices3 (GHC.Ptr.Ptr ds3_sUop -> let !wild_sUGj = ffi_wrapper4 _Javascript_JQuery_Basic_jq_children ds3_sUop ww_sUoq w_sUor in select wild_sUGj (<{GHC.Tuple.(,)}> ds7_sUoy ds8_sUow -> Gui.Base.Dropdown.choices2 (GHC.Ptr.Ptr ds8_sUow) ds7_sUoy))
Gui.Base.Dropdown.choices1 w_sUoB w1_sUoF = select w_sUoB (GHC.Ptr.Ptr ww_sUoE -> Gui.Base.Dropdown.$wa2 ww_sUoE w1_sUoF)
Gui.Base.Dropdown.choices_$schoices eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.choices1 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.lvl5 =: let !ds_sUGs = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.choices_x in select ds_sUGs (GHC.Ptr.Ptr ds1_sUoK -> let !tpl_sUGr = Gui.Base.Dropdown.choices_x, !wild_sUGq = ffi_wrapper3 jsToString ds1_sUoK GHC.Prim.realWorld# in select wild_sUGq (<{GHC.Tuple.(,)}> ds2_sUGp ds3_sUoP -> GHC.Ptr.Ptr ds3_sUoP))
Gui.Base.Dropdown.$wa3 w_sUqQ ww_sUoX w1_sUoY = select Gui.Base.Dropdown.lvl5 (GHC.Ptr.Ptr ds3_sUoW -> let !wild_sUGF = ffi_wrapper4 _Javascript_JQuery_Basic_jq_children ds3_sUoW ww_sUoX w1_sUoY in select wild_sUGF (<{GHC.Tuple.(,)}> ds7_sUp4 ds8_sUpH -> let !wild1_sUGE = ffi_wrapper2 _Javascript_Base_Array_newArray ds7_sUp4 in select wild1_sUGE (<{GHC.Tuple.(,)}> ds1_sUpI ds4_sUpo -> let !ds_sUGM = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.$wa3$19 ds4_sUpo) in select ds_sUGM (GHC.Ptr.Ptr ds5_sUpA -> let !wild2_sUGL = ffi_wrapper3 makeCallback ds5_sUpA GHC.Prim.realWorld# in select wild2_sUGL (<{GHC.Tuple.(,)}> ds6_sUGw ds9_sUpG -> let !wild3_sUGK = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds9_sUpG ds8_sUpH ds1_sUpI in select wild3_sUGK (<{GHC.Tuple.(,)}> ds10_sUpO ds11_sUGx -> let !wild4_sUGJ = ffi_wrapper3 fromJSArrayJSVal ds4_sUpo ds10_sUpO in select wild4_sUGJ (<{GHC.Tuple.(,)}> ds12_sUpY ds13_sUpT -> let !wild5_sUGI = GHC.Ptr.Ptr ds13_sUpT in select wild5_sUGI (Javascript.Base.Types.FakePtr val_sUpW -> select val_sUpW (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ds12_sUpY (Data.Maybe.catMaybes1 <{GHC.Types.[]}>)) (<{GHC.Types.:}> y_sUq4 ys_sUqX -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww1_sUq8 -> select y_sUq4 (GHC.Ptr.Ptr ww2_sUq9 -> let !wild7_sUGQ = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUq8 ww2_sUq9 ds12_sUpY in select wild7_sUGQ (<{GHC.Tuple.(,)}> ds14_sUqY ds15_sUqe -> let !wild8_sUGP = GHC.Ptr.Ptr ds15_sUqe in select wild8_sUGP (Javascript.Base.Types.FakePtr val1_sUqh -> select val1_sUqh (Data.Dynamic.Dynamic ww3_sUr3 ww4_sUr4 -> let a_sUqL = Gui.Base.Dropdown.$wa3$20 a_sUqL w_sUqQ ww1_sUq8, !ds16_sUGY = a_sUqL ys_sUqX ds14_sUqY in select ds16_sUGY (<{GHC.Tuple.(,)}> ipv_sUr2 ipv1_sUr6 -> <{GHC.Tuple.(,)}> ipv_sUr2 (Data.Maybe.catMaybes1 (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic w_sUqQ ww3_sUr3 ww4_sUr4) ipv1_sUr6)))))))))))))))))
Gui.Base.Dropdown.$wa3$19 ds4_sUpo ds_sUpv eta_sUpc eta1_sUph = select eta_sUpc (GHC.Ptr.Ptr ds6_sUpg -> let !wild2_sUGC = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds6_sUpg eta1_sUph in select wild2_sUGC (<{GHC.Tuple.(,)}> ds9_sUpp ds10_sUpn -> let !wild3_sUGB = ffi_wrapper4 _Javascript_Base_Array_jsArrayPush_ ds10_sUpn ds4_sUpo ds9_sUpp in select wild3_sUGB (<{GHC.Tuple.(,)}> ds11_sUpu ds12_sUGA -> <{GHC.Tuple.(,)}> ds11_sUpu <{GHC.Tuple.()}>)))
Gui.Base.Dropdown.$wa3$20 a_sUqL w_sUqQ ww1_sUq8 ds16_sUqo eta_sUqq = select ds16_sUqo (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUqq <{GHC.Types.[]}>) (<{GHC.Types.:}> y1_sUqt ys1_sUqJ -> select y1_sUqt (GHC.Ptr.Ptr ww5_sUqx -> let !wild10_sUGW = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUq8 ww5_sUqx eta_sUqq in select wild10_sUGW (<{GHC.Tuple.(,)}> ds17_sUqK ds18_sUqC -> let !wild11_sUGV = GHC.Ptr.Ptr ds18_sUqC in select wild11_sUGV (Javascript.Base.Types.FakePtr val2_sUqF -> select val2_sUqF (Data.Dynamic.Dynamic ww6_sUqR ww7_sUqS -> let !ds19_sUGT = a_sUqL ys1_sUqJ ds17_sUqK in select ds19_sUGT (<{GHC.Tuple.(,)}> ipv_sUqP ipv1_sUqU -> <{GHC.Tuple.(,)}> ipv_sUqP (<{GHC.Types.:}> (Data.Dynamic.$wfromDynamic w_sUqQ ww6_sUqR ww7_sUqS) ipv1_sUqU)))))))
Gui.Base.Dropdown.choices4 w_sUrh w1_sUre w2_sUrj = select w1_sUre (GHC.Ptr.Ptr ww_sUri -> Gui.Base.Dropdown.$wa3 w_sUrh ww_sUri w2_sUrj)
Gui.Base.Dropdown.choices eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.choices4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.mkDropdownMulti1 opts_sUrr action_sUrU s_sUrn = let !ds1_sUHb = Gui.Base.Dropdown.dropdown9 s_sUrn in select ds1_sUHb (<{GHC.Tuple.(,)}> ipv_sUrt ipv1_sUrs -> let !ds2_sUHa = Gui.Base.Dropdown.$wa6 Javascript.Base.String.$fEqPtr Gui.Base.Dropdown.dropdown3 Gui.Base.Dropdown.dropdownManip2 Gui.Base.Dropdown.allOptions1 opts_sUrr ipv1_sUrs ipv_sUrt in select ds2_sUHa (<{GHC.Tuple.(,)}> ipv2_sUsd ipv3_sUrB -> let !ds_sUHh = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.mkDropdownMulti1$21 action_sUrU ipv3_sUrB) in select ds_sUHh (GHC.Ptr.Ptr ds3_sUs2 -> select Javascript.JQuery.Events.change_evt (GHC.Ptr.Ptr ds5_sUsa -> let !wild_sUHf = ffi_wrapper3 makeCallback ds3_sUs2 GHC.Prim.realWorld# in select wild_sUHf (<{GHC.Tuple.(,)}> ds6_sUH6 ds7_sUsb -> select ipv3_sUrB (GHC.Ptr.Ptr ds9_sUsc -> let !wild1_sUHd = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds5_sUsa ds7_sUsb ds9_sUsc ipv2_sUsd in select wild1_sUHd (<{GHC.Tuple.(,)}> ds10_sUsi ds11_sUsj -> <{GHC.Tuple.(,)}> ds10_sUsi (GHC.Ptr.Ptr ds11_sUsj))))))))
Gui.Base.Dropdown.mkDropdownMulti1$21 action_sUrU ipv3_sUrB ds_sUrV eta_sUrH = select Gui.Base.Dropdown.choices3 (GHC.Ptr.Ptr ds4_sUrF -> select ipv3_sUrB (GHC.Ptr.Ptr ds6_sUrG -> let !wild_sUH7 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_children ds4_sUrF ds6_sUrG eta_sUrH in select wild_sUH7 (<{GHC.Tuple.(,)}> ds7_sUrO ds8_sUrM -> let !ds9_sUHc = Gui.Base.Dropdown.choices2 (GHC.Ptr.Ptr ds8_sUrM) ds7_sUrO in select ds9_sUHc (<{GHC.Tuple.(,)}> ipv4_sUrT ipv5_sUrS -> action_sUrU ipv5_sUrS ipv4_sUrT))))
Gui.Base.Dropdown.mkDropdownMulti_$smkDropdownMulti eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.mkDropdownMulti1 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.dropdown5 $dTypeable_sUsq $dEq_sUsA opts_sUsD action_sUsV s_sUsv = let !ww_sUHr = Gui.Base.Dropdown.$wdropdownManip $dTypeable_sUsq in select ww_sUHr (<{GHC.Tuple.(,,)}> ww1_sUsw ww2_sUsB ww3_sUsC -> let !ds1_sUHq = ww1_sUsw s_sUsv in select ds1_sUHq (<{GHC.Tuple.(,)}> ipv_sUsF ipv1_sUsE -> let !ds2_sUHp = Gui.Base.Dropdown.$wa6 $dEq_sUsA $dTypeable_sUsq ww2_sUsB ww3_sUsC opts_sUsD ipv1_sUsE ipv_sUsF in select ds2_sUHp (<{GHC.Tuple.(,)}> ipv2_sUte ipv3_sUsL -> let !ds_sUHw = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.dropdown5$22 $dTypeable_sUsq action_sUsV ipv3_sUsL) in select ds_sUHw (GHC.Ptr.Ptr ds3_sUt3 -> select Javascript.JQuery.Events.change_evt (GHC.Ptr.Ptr ds5_sUtb -> let !wild_sUHu = ffi_wrapper3 makeCallback ds3_sUt3 GHC.Prim.realWorld# in select wild_sUHu (<{GHC.Tuple.(,)}> ds6_sUHm ds7_sUtc -> select ipv3_sUsL (GHC.Ptr.Ptr ds9_sUtd -> let !wild1_sUHs = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds5_sUtb ds7_sUtc ds9_sUtd ipv2_sUte in select wild1_sUHs (<{GHC.Tuple.(,)}> ds10_sUtj ds11_sUtk -> <{GHC.Tuple.(,)}> ds10_sUtj (GHC.Ptr.Ptr ds11_sUtk)))))))))
Gui.Base.Dropdown.dropdown5$22 $dTypeable_sUsq action_sUsV ipv3_sUsL ds_sUsW eta_sUsP = select ipv3_sUsL (GHC.Ptr.Ptr ww4_sUsO -> let !ds3_sUHn = Gui.Base.Dropdown.$wa3 $dTypeable_sUsq ww4_sUsO eta_sUsP in select ds3_sUHn (<{GHC.Tuple.(,)}> ipv4_sUsU ipv5_sUsT -> action_sUsV ipv5_sUsT ipv4_sUsU))
Gui.Base.Dropdown.mkDropdownMulti eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.dropdown5 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.lvl6 =: let !ds_sUHC = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.allOptions_x in select ds_sUHC (GHC.Ptr.Ptr ds1_sUtq -> let !tpl_sUHB = Gui.Base.Dropdown.allOptions_x, !wild_sUHA = ffi_wrapper3 jsToString ds1_sUtq GHC.Prim.realWorld# in select wild_sUHA (<{GHC.Tuple.(,)}> ds2_sUHz ds3_sUtv -> GHC.Ptr.Ptr ds3_sUtv))
Gui.Base.Dropdown.$wa4 w_sUuD ww_sUvr w1_sUvs = let !ds_sUIk = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.$wa4$23 w_sUuD) in select ds_sUIk (GHC.Ptr.Ptr ds1_sUvy -> select Gui.Base.Dropdown.lvl6 (GHC.Ptr.Ptr ds3_sUvq -> let !wild_sUIi = ffi_wrapper4 _Javascript_JQuery_Basic_findText ds3_sUvq ww_sUvr w1_sUvs in select wild_sUIi (<{GHC.Tuple.(,)}> ds7_sUvG ds8_sUvF -> let !wild1_sUIh = ffi_wrapper3 makeCallback ds1_sUvy GHC.Prim.realWorld# in select wild1_sUIh (<{GHC.Tuple.(,)}> ds4_sUHG ds5_sUvE -> let !wild2_sUIg = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds5_sUvE ds8_sUvF ds7_sUvG in select wild2_sUIg (<{GHC.Tuple.(,)}> ds6_sUvL ds9_sUHH -> <{GHC.Tuple.(,)}> ds6_sUvL (GHC.Ptr.Ptr ww_sUvr))))))
Gui.Base.Dropdown.$wa4$23 w_sUuD i_sUvj e_sUtC s_sUtH = select e_sUtC (GHC.Ptr.Ptr ds2_sUtG -> let !wild_sUI4 = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds2_sUtG s_sUtH in select wild_sUI4 (<{GHC.Tuple.(,)}> ds4_sUtO ds5_sUtN -> let !wild1_sUI3 = ffi_wrapper3 _Javascript_JQuery_Basic_getTextUnsafe ds5_sUtN ds4_sUtO in select wild1_sUI3 (<{GHC.Tuple.(,)}> ds_sUtX ds3_sUI2 -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww1_sUtW -> let !wild2_sUI0 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUtW ds5_sUtN ds_sUtX in select wild2_sUI0 (<{GHC.Tuple.(,)}> ds6_sUuJ ds7_sUu2 -> let !wild3_sUHZ = GHC.Ptr.Ptr ds7_sUu2 in select wild3_sUHZ (Javascript.Base.Types.FakePtr val1_sUu5 -> select val1_sUu5 (Data.Dynamic.Dynamic ww2_sUu9 ww3_sUuf -> select ww2_sUu9 (Data.Typeable.Internal.TypeRep rb_sUum rb1_sUuv ds8_sUHV ds9_sUHW -> let !wild5_sUHU = Gui.Base.Dropdown.dropdown3 ww3_sUuf in select wild5_sUHU (Data.Typeable.Internal.TypeRep rb2_sUun rb3_sUuw ds10_sUHS ds11_sUHT -> let !wild6_sUHR = ffi_wrapper4 hs_eqWord64 rb_sUum rb2_sUun GHC.Prim.realWorld# in select wild6_sUHR (<{GHC.Tuple.(,)}> ds12_sUHQ ds13_sUus -> select ds13_sUus (_ -> let !wild8_sUHO = ffi_wrapper4 hs_eqWord64 rb1_sUuv rb3_sUuw GHC.Prim.realWorld# in select wild8_sUHO (<{GHC.Tuple.(,)}> ds14_sUHN ds15_sUuB -> select ds15_sUuB (_ -> let !wild10_sUHL = GHC.List.elem Javascript.Base.String.$fEqPtr ww3_sUuf w_sUuD in if wild10_sUHL (select Gui.Base.Dropdown.lvl1 (GHC.Ptr.Ptr ds17_sUuU -> select Gui.Base.Dropdown.lvl2 (GHC.Ptr.Ptr ds19_sUuV -> let !wild11_sUI7 = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setAttr ds17_sUuU ds19_sUuV ds5_sUtN ds6_sUuJ in select wild11_sUI7 (<{GHC.Tuple.(,)}> ds20_sUv0 ds21_sUI6 -> <{GHC.Tuple.(,)}> ds20_sUv0 <{GHC.Tuple.()}>)))) (select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds17_sUuI -> let !wild11_sUHJ = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds17_sUuI ds5_sUtN ds6_sUuJ in select wild11_sUHJ (<{GHC.Tuple.(,)}> ds18_sUuO ds19_sUHI -> <{GHC.Tuple.(,)}> ds18_sUuO <{GHC.Tuple.()}>)))) (0 -> select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds17_sUv4 -> let !wild10_sUIb = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds17_sUv4 ds5_sUtN ds6_sUuJ in select wild10_sUIb (<{GHC.Tuple.(,)}> ds18_sUv9 ds19_sUIa -> <{GHC.Tuple.(,)}> ds18_sUv9 <{GHC.Tuple.()}>))))) (0 -> select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds15_sUvd -> let !wild8_sUIe = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds15_sUvd ds5_sUtN ds6_sUuJ in select wild8_sUIe (<{GHC.Tuple.(,)}> ds16_sUvi ds17_sUId -> <{GHC.Tuple.(,)}> ds16_sUvi <{GHC.Tuple.()}>)))))))))))))
Gui.Base.Dropdown.choose1 w_sUvT w1_sUvQ w2_sUvV = select w1_sUvQ (GHC.Ptr.Ptr ww_sUvU -> Gui.Base.Dropdown.$wa4 w_sUvT ww_sUvU w2_sUvV)
Gui.Base.Dropdown.choose_$schoose eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.choose1 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.lvl7 =: let !ds_sUIs = Javascript.Base.Types.FakePtr Gui.Base.Dropdown.allOptions_x in select ds_sUIs (GHC.Ptr.Ptr ds1_sUw0 -> let !tpl_sUIr = Gui.Base.Dropdown.allOptions_x, !wild_sUIq = ffi_wrapper3 jsToString ds1_sUw0 GHC.Prim.realWorld# in select wild_sUIq (<{GHC.Tuple.(,)}> ds2_sUIp ds3_sUw5 -> GHC.Ptr.Ptr ds3_sUw5))
Gui.Base.Dropdown.$wa5 w_sUxg w1_sUwS w2_sUxh ww_sUy5 w3_sUy6 = let !ds_sUJa = Javascript.Base.Types.FakePtr (Gui.Base.Dropdown.$wa5$24 w1_sUwS w2_sUxh w_sUxg) in select ds_sUJa (GHC.Ptr.Ptr ds1_sUyc -> select Gui.Base.Dropdown.lvl7 (GHC.Ptr.Ptr ds3_sUy4 -> let !wild_sUJ8 = ffi_wrapper4 _Javascript_JQuery_Basic_findText ds3_sUy4 ww_sUy5 w3_sUy6 in select wild_sUJ8 (<{GHC.Tuple.(,)}> ds7_sUyk ds8_sUyj -> let !wild1_sUJ7 = ffi_wrapper3 makeCallback ds1_sUyc GHC.Prim.realWorld# in select wild1_sUJ7 (<{GHC.Tuple.(,)}> ds4_sUIw ds5_sUyi -> let !wild2_sUJ6 = ffi_wrapper4 _Javascript_JQuery_Basic_each_ ds5_sUyi ds8_sUyj ds7_sUyk in select wild2_sUJ6 (<{GHC.Tuple.(,)}> ds6_sUyp ds9_sUIx -> <{GHC.Tuple.(,)}> ds6_sUyp (GHC.Ptr.Ptr ww_sUy5))))))
Gui.Base.Dropdown.$wa5$24 w1_sUwS w2_sUxh w_sUxg i_sUxX e_sUwe s_sUwj = select e_sUwe (GHC.Ptr.Ptr ds2_sUwi -> let !wild_sUIU = ffi_wrapper3 _Javascript_JQuery_Basic_jQueryElement_ ds2_sUwi s_sUwj in select wild_sUIU (<{GHC.Tuple.(,)}> ds4_sUwq ds5_sUwp -> let !wild1_sUIT = ffi_wrapper3 _Javascript_JQuery_Basic_getTextUnsafe ds5_sUwp ds4_sUwq in select wild1_sUIT (<{GHC.Tuple.(,)}> ds_sUwz ds3_sUIS -> select Gui.Base.Dropdown.key (GHC.Ptr.Ptr ww1_sUwy -> let !wild2_sUIQ = ffi_wrapper4 _Javascript_JQuery_Basic_jq_getData ww1_sUwy ds5_sUwp ds_sUwz in select wild2_sUIQ (<{GHC.Tuple.(,)}> ds6_sUxn ds7_sUwE -> let !wild3_sUIP = GHC.Ptr.Ptr ds7_sUwE in select wild3_sUIP (Javascript.Base.Types.FakePtr val1_sUwH -> select val1_sUwH (Data.Dynamic.Dynamic ww2_sUwL ww3_sUwR -> select ww2_sUwL (Data.Typeable.Internal.TypeRep rb_sUwZ rb1_sUx8 ds8_sUIL ds9_sUIM -> let !wild5_sUIK = w1_sUwS ww3_sUwR in select wild5_sUIK (Data.Typeable.Internal.TypeRep rb2_sUx0 rb3_sUx9 ds10_sUII ds11_sUIJ -> let !wild6_sUIH = ffi_wrapper4 hs_eqWord64 rb_sUwZ rb2_sUx0 GHC.Prim.realWorld# in select wild6_sUIH (<{GHC.Tuple.(,)}> ds12_sUIG ds13_sUx5 -> select ds13_sUx5 (_ -> let !wild8_sUIE = ffi_wrapper4 hs_eqWord64 rb1_sUx8 rb3_sUx9 GHC.Prim.realWorld# in select wild8_sUIE (<{GHC.Tuple.(,)}> ds14_sUID ds15_sUxe -> select ds15_sUxe (_ -> let !wild10_sUIB = GHC.List.elem w_sUxg ww3_sUwR w2_sUxh in if wild10_sUIB (select Gui.Base.Dropdown.lvl1 (GHC.Ptr.Ptr ds17_sUxy -> select Gui.Base.Dropdown.lvl2 (GHC.Ptr.Ptr ds19_sUxz -> let !wild11_sUIX = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setAttr ds17_sUxy ds19_sUxz ds5_sUwp ds6_sUxn in select wild11_sUIX (<{GHC.Tuple.(,)}> ds20_sUxE ds21_sUIW -> <{GHC.Tuple.(,)}> ds20_sUxE <{GHC.Tuple.()}>)))) (select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds17_sUxm -> let !wild11_sUIz = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds17_sUxm ds5_sUwp ds6_sUxn in select wild11_sUIz (<{GHC.Tuple.(,)}> ds18_sUxs ds19_sUIy -> <{GHC.Tuple.(,)}> ds18_sUxs <{GHC.Tuple.()}>)))) (0 -> select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds17_sUxI -> let !wild10_sUJ1 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds17_sUxI ds5_sUwp ds6_sUxn in select wild10_sUJ1 (<{GHC.Tuple.(,)}> ds18_sUxN ds19_sUJ0 -> <{GHC.Tuple.(,)}> ds18_sUxN <{GHC.Tuple.()}>))))) (0 -> select Gui.Base.Dropdown.lvl (GHC.Ptr.Ptr ds15_sUxR -> let !wild8_sUJ4 = ffi_wrapper4 _Javascript_JQuery_Basic_jq_removeAttr ds15_sUxR ds5_sUwp ds6_sUxn in select wild8_sUJ4 (<{GHC.Tuple.(,)}> ds16_sUxW ds17_sUJ3 -> <{GHC.Tuple.(,)}> ds16_sUxW <{GHC.Tuple.()}>)))))))))))))
Gui.Base.Dropdown.choose2 w_sUyz w1_sUyA w2_sUyB w3_sUyw w4_sUyD = select w3_sUyw (GHC.Ptr.Ptr ww_sUyC -> Gui.Base.Dropdown.$wa5 w_sUyz w1_sUyA w2_sUyB ww_sUyC w4_sUyD)
Gui.Base.Dropdown.choose eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.choose2 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.dropdown2 s_sUyF = <{GHC.Tuple.(,)}> s_sUyF <{GHC.Tuple.()}>
Gui.Base.Dropdown.dropdown1 ma_sUz0 opts_sUyK action_sUyR s_sUyT = let !ds1_sUJm = Gui.Base.Dropdown.dropdown5 Gui.Base.Dropdown.dropdown3 Javascript.Base.String.$fEqPtr opts_sUyK (Gui.Base.Dropdown.dropdown1$25 action_sUyR) s_sUyT in select ds1_sUJm (<{GHC.Tuple.(,)}> ipv_sUz6 ipv1_sUyX -> select ipv1_sUyX (GHC.Ptr.Ptr ww_sUz5 -> Gui.Base.Dropdown.$wa4 (Gui.Base.Dropdown.dropdown1$6 ma_sUz0) ww_sUz5 ipv_sUz6))
Gui.Base.Dropdown.dropdown1$25 action_sUyR ds_sUyM = select ds_sUyM (<{GHC.Types.[]}> -> Gui.Base.Dropdown.dropdown2) (<{GHC.Types.:}> a_sUyQ ds1_sUJj -> action_sUyR a_sUyQ)
Gui.Base.Dropdown.dropdown1$6 ma_sUz0 = select ma_sUz0 (Data.Maybe.Nothing -> <{GHC.Types.[]}>) (Data.Maybe.Just x2_sUz3 -> <{GHC.Types.:}> x2_sUz3 <{GHC.Types.[]}>)
Gui.Base.Dropdown.dropdown_$sdropdown eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.dropdown1 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.dropdown12 $dTypeable_sUzd $dEq_sUze ma_sUzv opts_sUzf action_sUzm s_sUzo = let !ds1_sUJv = Gui.Base.Dropdown.dropdown5 $dTypeable_sUzd $dEq_sUze opts_sUzf (Gui.Base.Dropdown.dropdown12$26 action_sUzm) s_sUzo in select ds1_sUJv (<{GHC.Tuple.(,)}> ipv_sUzB ipv1_sUzs -> select ipv1_sUzs (GHC.Ptr.Ptr ww_sUzA -> Gui.Base.Dropdown.$wa5 $dEq_sUze $dTypeable_sUzd (Gui.Base.Dropdown.dropdown12$7 ma_sUzv) ww_sUzA ipv_sUzB))
Gui.Base.Dropdown.dropdown12$26 action_sUzm ds_sUzh = select ds_sUzh (<{GHC.Types.[]}> -> Gui.Base.Dropdown.dropdown2) (<{GHC.Types.:}> a_sUzl ds1_sUJs -> action_sUzm a_sUzl)
Gui.Base.Dropdown.dropdown12$7 ma_sUzv = select ma_sUzv (Data.Maybe.Nothing -> <{GHC.Types.[]}>) (Data.Maybe.Just x2_sUzy -> <{GHC.Types.:}> x2_sUzy <{GHC.Types.[]}>)
Gui.Base.Dropdown.dropdown eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.dropdown12 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.stringDropdown2 a_sUzD = <{GHC.Tuple.(,)}> a_sUzD a_sUzD
Gui.Base.Dropdown.stringDropdown1 ms_sUzG eta_sUzH = Gui.Base.Dropdown.dropdown12 Gui.Base.Dropdown.dropdown3 Javascript.Base.String.$fEqPtr ms_sUzG (GHC.Base.map Gui.Base.Dropdown.stringDropdown2 eta_sUzH)
Gui.Base.Dropdown.stringDropdown eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.stringDropdown1 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.dropdownMulti1 as_sUA9 opts_sUzN action_sUzO s_sUzP = let !ds1_sUJG = Gui.Base.Dropdown.dropdown5 Gui.Base.Dropdown.dropdown3 Javascript.Base.String.$fEqPtr opts_sUzN action_sUzO s_sUzP in select ds1_sUJG (<{GHC.Tuple.(,)}> ipv_sUA4 ipv1_sUzX -> select Gui.Base.Dropdown.dropdownMulti3 (GHC.Ptr.Ptr ds4_sUA1 -> select Gui.Base.Dropdown.dropdownMulti2 (GHC.Ptr.Ptr ds6_sUA2 -> select ipv1_sUzX (GHC.Ptr.Ptr ds8_sUA3 -> let !wild_sUJC = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setProp ds4_sUA1 ds6_sUA2 ds8_sUA3 ipv_sUA4 in select wild_sUJC (<{GHC.Tuple.(,)}> ds10_sUAb ds11_sUAa -> Gui.Base.Dropdown.$wa4 as_sUA9 ds11_sUAa ds10_sUAb)))))
Gui.Base.Dropdown.dropdownMulti_$sdropdownMulti eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.dropdownMulti1 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.dropdownMulti4 $dTypeable_sUAi $dEq_sUAj as_sUAG opts_sUAk action_sUAl s_sUAm = let !ds1_sUJN = Gui.Base.Dropdown.dropdown5 $dTypeable_sUAi $dEq_sUAj opts_sUAk action_sUAl s_sUAm in select ds1_sUJN (<{GHC.Tuple.(,)}> ipv_sUAB ipv1_sUAu -> select Gui.Base.Dropdown.dropdownMulti3 (GHC.Ptr.Ptr ds4_sUAy -> select Gui.Base.Dropdown.dropdownMulti2 (GHC.Ptr.Ptr ds6_sUAz -> select ipv1_sUAu (GHC.Ptr.Ptr ds8_sUAA -> let !wild_sUJJ = ffi_wrapper5 _Javascript_JQuery_Basic_jq_setProp ds4_sUAy ds6_sUAz ds8_sUAA ipv_sUAB in select wild_sUJJ (<{GHC.Tuple.(,)}> ds10_sUAI ds11_sUAH -> Gui.Base.Dropdown.$wa5 $dEq_sUAj $dTypeable_sUAi as_sUAG ds11_sUAH ds10_sUAI)))))
Gui.Base.Dropdown.dropdownMulti eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Dropdown.dropdownMulti4 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Dropdown.stringDropdownMulti1 eta_B1_B1 = Gui.Base.Dropdown.stringDropdown2 eta_B1_B1
Gui.Base.Dropdown.stringDropdownMulti ms_sUAP ls_sUAM = Gui.Base.Dropdown.stringDropdownMulti$27 (Gui.Base.Dropdown.stringDropdownMulti$8 ms_sUAP) ls_sUAM
Gui.Base.Dropdown.stringDropdownMulti$27 a1_sUAT ls_sUAM x2_sUB3 = Gui.Base.Dropdown.dropdownMulti4 Gui.Base.Dropdown.dropdown3 Javascript.Base.String.$fEqPtr a1_sUAT (GHC.Base.map Gui.Base.Dropdown.stringDropdownMulti1 ls_sUAM) (Gui.Base.Dropdown.stringDropdownMulti$28 x2_sUB3)
Gui.Base.Dropdown.stringDropdownMulti$28 x2_sUB3 ds_sUAX eta_sUAZ = select ds_sUAX (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta_sUAZ <{GHC.Tuple.()}>) (<{GHC.Types.:}> a2_sUB2 ds1_sUB5 -> x2_sUB3 a2_sUB2 eta_sUAZ)
Gui.Base.Dropdown.stringDropdownMulti$8 ms_sUAP = select ms_sUAP (Data.Maybe.Nothing -> <{GHC.Types.[]}>) (Data.Maybe.Just x2_sUAS -> <{GHC.Types.:}> x2_sUAS <{GHC.Types.[]}>)