Gui.Base.Text.getText eta_B2_B2 eta_B1_B1 = Javascript.JQuery.Basic.getValUnsafe eta_B2_B2 eta_B1_B1
Gui.Base.Text.plainText_x1 =: GHC.CString.unpackCString# ""
Gui.Base.Text.plainText3 =: let !ds_sOiX = Javascript.Base.Types.FakePtr Gui.Base.Text.plainText_x1 in select ds_sOiX (GHC.Ptr.Ptr ds1_sOfn -> let !tpl_sOiW = Gui.Base.Text.plainText_x1, !wild_sOiV = ffi_wrapper3 jsToString ds1_sOfn GHC.Prim.realWorld# in select wild_sOiV (<{GHC.Tuple.(,)}> ds2_sOiU ds3_sOfs -> GHC.Ptr.Ptr ds3_sOfs))
Gui.Base.Text.plainText_x =: GHC.CString.unpackCString# "text plaintext"
Gui.Base.Text.plainText2 =: let !ds_sOj9 = Javascript.Base.Types.FakePtr Gui.Base.Text.plainText_x in select ds_sOj9 (GHC.Ptr.Ptr ds1_sOfx -> let !tpl_sOj8 = Gui.Base.Text.plainText_x, !wild_sOj7 = ffi_wrapper3 jsToString ds1_sOfx GHC.Prim.realWorld# in select wild_sOj7 (<{GHC.Tuple.(,)}> ds2_sOj6 ds3_sOfC -> GHC.Ptr.Ptr ds3_sOfC))
Gui.Base.Text.plainText1 t_sOfY s_sOfJ = select Gui.Base.Text.plainText3 (GHC.Ptr.Ptr ds1_sOfI -> let !wild_sOjg = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sOfI s_sOfJ in select wild_sOjg (<{GHC.Tuple.(,)}> ds2_sOfT ds3_sOfS -> select Gui.Base.Text.plainText2 (GHC.Ptr.Ptr ds5_sOfR -> let !wild1_sOje = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds5_sOfR ds3_sOfS ds2_sOfT in select wild1_sOje (<{GHC.Tuple.(,)}> ds7_sOg4 ds8_sOg3 -> select t_sOfY (GHC.Ptr.Ptr ds9_sOg2 -> let !wild2_sOjc = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds9_sOg2 ds8_sOg3 ds7_sOg4 in select wild2_sOjc (<{GHC.Tuple.(,)}> ds10_sOg9 ds11_sOga -> <{GHC.Tuple.(,)}> ds10_sOg9 (GHC.Ptr.Ptr ds11_sOga)))))))
Gui.Base.Text.plainText eta_B2_B2 eta_B1_B1 = Gui.Base.Text.plainText1 eta_B2_B2 eta_B1_B1
Gui.Base.Text.text5 inpf_sOgh t_sOhw action_sOgO eta_sOgg = let !ds1_sOjv = inpf_sOgh eta_sOgg in select ds1_sOjv (<{GHC.Tuple.(,)}> ipv_sOgt ipv1_sOgn -> select t_sOhw (Data.Maybe.Nothing -> select Javascript.Base.String.$fDefaultPtr_$cmempty (GHC.Ptr.Ptr ds3_sOhA -> Gui.Base.Text.text5$1 action_sOgO ipv1_sOgn ipv_sOgt ds3_sOhA)) (Data.Maybe.Just v_sOhC -> select v_sOhC (GHC.Ptr.Ptr ds3_sOhF -> Gui.Base.Text.text5$1 action_sOgO ipv1_sOgn ipv_sOgt ds3_sOhF)))
Gui.Base.Text.text5$1 action_sOgO ipv1_sOgn ipv_sOgt ds3_sOgr = select ipv1_sOgn (GHC.Ptr.Ptr ds5_sOgs -> let !wild_sOjt = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds3_sOgr ds5_sOgs ipv_sOgt in select wild_sOjt (<{GHC.Tuple.(,)}> ds7_sOgy ds8_sOgH -> let !ds_sOjs = newMutVar# Gui.Queue.Empty ds7_sOgy in select ds_sOjs (<{GHC.Tuple.(,)}> ipv2_sOh8 ipv3_sOgE -> let !ds2_sOjC = Javascript.Base.Types.FakePtr (Gui.Base.Text.text5$2 action_sOgO ds8_sOgH ipv3_sOgE) in select ds2_sOjC (GHC.Ptr.Ptr ds6_sOh0 -> select Javascript.JQuery.Events.change_evt (GHC.Ptr.Ptr ds10_sOh6 -> let !wild1_sOjA = ffi_wrapper3 makeCallback ds6_sOh0 GHC.Prim.realWorld# in select wild1_sOjA (<{GHC.Tuple.(,)}> ds11_sOjo ds12_sOh7 -> let !wild2_sOjz = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds10_sOh6 ds12_sOh7 ds8_sOgH ipv2_sOh8 in select wild2_sOjz (<{GHC.Tuple.(,)}> ds13_sOhn ds14_sOjp -> select Javascript.JQuery.Events.keyup_evt (GHC.Ptr.Ptr ds16_sOhl -> let !wild3_sOjx = ffi_wrapper3 makeCallback ds6_sOh0 GHC.Prim.realWorld# in select wild3_sOjx (<{GHC.Tuple.(,)}> ds17_sOjq ds18_sOhm -> let !wild4_sOjw = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds16_sOhl ds18_sOhm ds8_sOgH ds13_sOhn in select wild4_sOjw (<{GHC.Tuple.(,)}> ds19_sOhs ds20_sOht -> <{GHC.Tuple.(,)}> ds19_sOhs (GHC.Ptr.Ptr ds20_sOht)))))))))))
Gui.Base.Text.text5$2 action_sOgO ds8_sOgH ipv3_sOgE w_sOgT w1_sOgS = Gui.Queue.$wa ipv3_sOgE (Gui.Base.Text.text5$3 action_sOgO ds8_sOgH) w1_sOgS
Gui.Base.Text.text5$3 action_sOgO ds8_sOgH s_sOgI = let !wild1_sOjr = ffi_wrapper3 _Javascript_JQuery_Basic_getValUnsafe ds8_sOgH s_sOgI in select wild1_sOjr (<{GHC.Tuple.(,)}> ds2_sOgQ ds6_sOgN -> action_sOgO (GHC.Ptr.Ptr ds6_sOgN) ds2_sOgQ)
Gui.Base.Text.text_x1 =: GHC.CString.unpackCString# ""
Gui.Base.Text.text_x =: GHC.CString.unpackCString# "input text"
Gui.Base.Text.text3 =: Javascript.Base.Types.FakePtr Gui.Base.Text.text_x
Gui.Base.Text.text4 =: Javascript.Base.Types.FakePtr Gui.Base.Text.text_x1
Gui.Base.Text.text2 eta_sOhS = select Gui.Base.Text.text4 (GHC.Ptr.Ptr ds1_sOhL -> let !tpl_sOjU = Gui.Base.Text.text_x1, !wild_sOjT = ffi_wrapper3 jsToString ds1_sOhL GHC.Prim.realWorld# in select wild_sOjT (<{GHC.Tuple.(,)}> ds2_sOjS ds3_sOhR -> let !wild1_sOjR = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_sOhR eta_sOhS in select wild1_sOjR (<{GHC.Tuple.(,)}> ds4_sOi9 ds5_sOi8 -> select Gui.Base.Text.text3 (GHC.Ptr.Ptr ds7_sOi1 -> let !tpl1_sOjP = Gui.Base.Text.text_x, !wild2_sOjO = ffi_wrapper3 jsToString ds7_sOi1 GHC.Prim.realWorld# in select wild2_sOjO (<{GHC.Tuple.(,)}> ds8_sOjN ds9_sOi7 -> let !wild3_sOjM = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_sOi7 ds5_sOi8 ds4_sOi9 in select wild3_sOjM (<{GHC.Tuple.(,)}> ds10_sOie ds11_sOif -> <{GHC.Tuple.(,)}> ds10_sOie (GHC.Ptr.Ptr ds11_sOif)))))))
Gui.Base.Text.text1 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Text.text5 Gui.Base.Text.text2 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Text.text =: Gui.Base.Text.text1
Gui.Base.Text.textarea_x1 =: GHC.CString.unpackCString# ""
Gui.Base.Text.textarea_x =: GHC.CString.unpackCString# "input text textarea"
Gui.Base.Text.textarea3 =: Javascript.Base.Types.FakePtr Gui.Base.Text.textarea_x
Gui.Base.Text.textarea4 =: Javascript.Base.Types.FakePtr Gui.Base.Text.textarea_x1
Gui.Base.Text.textarea2 eta_sOit = select Gui.Base.Text.textarea4 (GHC.Ptr.Ptr ds1_sOim -> let !tpl_sOkc = Gui.Base.Text.textarea_x1, !wild_sOkb = ffi_wrapper3 jsToString ds1_sOim GHC.Prim.realWorld# in select wild_sOkb (<{GHC.Tuple.(,)}> ds2_sOka ds3_sOis -> let !wild1_sOk9 = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_sOis eta_sOit in select wild1_sOk9 (<{GHC.Tuple.(,)}> ds4_sOiK ds5_sOiJ -> select Gui.Base.Text.textarea3 (GHC.Ptr.Ptr ds7_sOiC -> let !tpl1_sOk7 = Gui.Base.Text.textarea_x, !wild2_sOk6 = ffi_wrapper3 jsToString ds7_sOiC GHC.Prim.realWorld# in select wild2_sOk6 (<{GHC.Tuple.(,)}> ds8_sOk5 ds9_sOiI -> let !wild3_sOk4 = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_sOiI ds5_sOiJ ds4_sOiK in select wild3_sOk4 (<{GHC.Tuple.(,)}> ds10_sOiP ds11_sOiQ -> <{GHC.Tuple.(,)}> ds10_sOiP (GHC.Ptr.Ptr ds11_sOiQ)))))))
Gui.Base.Text.textarea1 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Base.Text.text5 Gui.Base.Text.textarea2 eta_B3_B3 eta_B2_B2 eta_B1_B1
Gui.Base.Text.textarea =: Gui.Base.Text.textarea1
Gui.Base.Text.setText eta_B3_B3 eta_B2_B2 eta_B1_B1 = Javascript.JQuery.Basic.jq_setVal eta_B3_B3 eta_B2_B2 eta_B1_B1