Gui.Utils.unwrapError_x1 =: GHC.CString.unpackCString# "wrapped" Gui.Utils.w =: let !ds_sRxn = Javascript.Base.Types.FakePtr Gui.Utils.unwrapError_x1 in select ds_sRxn (GHC.Ptr.Ptr ds1_sRtu -> let !tpl_sRxm = Gui.Utils.unwrapError_x1, !wild_sRxl = ffi_wrapper3 jsToString ds1_sRtu GHC.Prim.realWorld# in select wild_sRxl (<{GHC.Tuple.(,)}> ds2_sRxk ds3_sRtz -> GHC.Ptr.Ptr ds3_sRtz)) Gui.Utils.wrapError_x1 =: GHC.CString.unpackCString# "
" Gui.Utils.wrapError5 =: let !ds_sRxz = Javascript.Base.Types.FakePtr Gui.Utils.wrapError_x1 in select ds_sRxz (GHC.Ptr.Ptr ds1_sRtE -> let !tpl_sRxy = Gui.Utils.wrapError_x1, !wild_sRxx = ffi_wrapper3 jsToString ds1_sRtE GHC.Prim.realWorld# in select wild_sRxx (<{GHC.Tuple.(,)}> ds2_sRxw ds3_sRtJ -> GHC.Ptr.Ptr ds3_sRtJ)) Gui.Utils.unwrapError_x =: GHC.CString.unpackCString# "errorBox" Gui.Utils.wrapError4 =: let !ds_sRxF = Javascript.Base.Types.FakePtr Gui.Utils.unwrapError_x in select ds_sRxF (GHC.Ptr.Ptr ds1_sRtO -> let !tpl_sRxE = Gui.Utils.unwrapError_x, !wild_sRxD = ffi_wrapper3 jsToString ds1_sRtO GHC.Prim.realWorld# in select wild_sRxD (<{GHC.Tuple.(,)}> ds2_sRxC ds3_sRtT -> GHC.Ptr.Ptr ds3_sRtT)) Gui.Utils.wrapError3 =: let !ds_sRxK = Javascript.Base.Types.FakePtr Gui.Utils.wrapError_x1 in select ds_sRxK (GHC.Ptr.Ptr ds1_sRtY -> let !tpl_sRxJ = Gui.Utils.wrapError_x1, !wild_sRxI = ffi_wrapper3 jsToString ds1_sRtY GHC.Prim.realWorld# in select wild_sRxI (<{GHC.Tuple.(,)}> ds2_sRxH ds3_sRu3 -> GHC.Ptr.Ptr ds3_sRu3)) Gui.Utils.wrapError_x =: GHC.CString.unpackCString# "errorText" Gui.Utils.wrapError2 =: let !ds_sRxQ = Javascript.Base.Types.FakePtr Gui.Utils.wrapError_x in select ds_sRxQ (GHC.Ptr.Ptr ds1_sRu8 -> let !tpl_sRxP = Gui.Utils.wrapError_x, !wild_sRxO = ffi_wrapper3 jsToString ds1_sRu8 GHC.Prim.realWorld# in select wild_sRxO (<{GHC.Tuple.(,)}> ds2_sRxN ds3_sRud -> GHC.Ptr.Ptr ds3_sRud)) Gui.Utils.$wa1 w1_sRvj ww_sRul w2_sRum = select Gui.Utils.w (GHC.Ptr.Ptr ds3_sRuk -> let !wild_sRxU = ffi_wrapper4 _Javascript_JQuery_Basic_hasClass ds3_sRuk ww_sRul w2_sRum in select wild_sRxU (<{GHC.Tuple.(,)}> ds7_sRut ds8_sRur -> select ds8_sRur (_ -> <{GHC.Tuple.(,)}> ds7_sRut (GHC.Ptr.Ptr ww_sRul)) (0 -> select Gui.Utils.wrapError5 (GHC.Ptr.Ptr ds1_sRuy -> let !wild2_sRyf = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds1_sRuy ds7_sRut in select wild2_sRyf (<{GHC.Tuple.(,)}> ds4_sRuI ds5_sRuH -> select Gui.Utils.wrapError4 (GHC.Ptr.Ptr ds9_sRuG -> let !wild3_sRyd = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_sRuG ds5_sRuH ds4_sRuI in select wild3_sRyd (<{GHC.Tuple.(,)}> ds10_sRuP ds11_sRuO -> let !wild4_sRyc = ffi_wrapper4 _Javascript_JQuery_Basic_insertBeforeJQuery ww_sRul ds11_sRuO ds10_sRuP in select wild4_sRyc (<{GHC.Tuple.(,)}> ds12_sRuV ds13_sRyb -> let !wild5_sRya = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ww_sRul ds11_sRuO ds12_sRuV in select wild5_sRya (<{GHC.Tuple.(,)}> ds14_sRv4 ds15_sRy9 -> select Gui.Utils.wrapError3 (GHC.Ptr.Ptr ds17_sRv3 -> let !wild6_sRy7 = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds17_sRv3 ds14_sRv4 in select wild6_sRy7 (<{GHC.Tuple.(,)}> ds18_sRve ds19_sRvd -> select Gui.Utils.wrapError2 (GHC.Ptr.Ptr ds21_sRvc -> let !wild7_sRy5 = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds21_sRvc ds19_sRvd ds18_sRve in select wild7_sRy5 (<{GHC.Tuple.(,)}> ds22_sRvp ds23_sRvo -> select w1_sRvj (GHC.Ptr.Ptr ds25_sRvn -> let !wild8_sRy3 = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds25_sRvn ds23_sRvo ds22_sRvp in select wild8_sRy3 (<{GHC.Tuple.(,)}> ds26_sRvw ds27_sRvv -> let !wild9_sRy2 = ffi_wrapper4 _Javascript_JQuery_Basic_appendJQuery ds27_sRvv ds11_sRuO ds26_sRvw in select wild9_sRy2 (<{GHC.Tuple.(,)}> ds28_sRvC ds29_sRy1 -> let !wild10_sRy0 = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds3_sRuk ww_sRul ds28_sRvC in select wild10_sRy0 (<{GHC.Tuple.(,)}> ds30_sRvI ds31_sRxZ -> let !wild11_sRxY = ffi_wrapper3 _Javascript_JQuery_Basic_focus ww_sRul ds30_sRvI in select wild11_sRxY (<{GHC.Tuple.(,)}> ds32_sRvN ds33_sRxX -> <{GHC.Tuple.(,)}> ds32_sRvN (GHC.Ptr.Ptr ww_sRul))))))))))))))))))) Gui.Utils.wrapError1 w1_sRvV w2_sRvS w3_sRvX = select w2_sRvS (GHC.Ptr.Ptr ww_sRvW -> Gui.Utils.$wa1 w1_sRvV ww_sRvW w3_sRvX) Gui.Utils.wrapError eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Utils.wrapError1 eta_B3_B3 eta_B2_B2 eta_B1_B1 Gui.Utils.unwrapError2 =: let !ds_sRyo = Javascript.Base.Types.FakePtr Gui.Utils.unwrapError_x in select ds_sRyo (GHC.Ptr.Ptr ds1_sRw2 -> let !tpl_sRyn = Gui.Utils.unwrapError_x, !wild_sRym = ffi_wrapper3 jsToString ds1_sRw2 GHC.Prim.realWorld# in select wild_sRym (<{GHC.Tuple.(,)}> ds2_sRyl ds3_sRw7 -> GHC.Ptr.Ptr ds3_sRw7)) Gui.Utils.$wa ww_sRwe w1_sRwf = select Gui.Utils.w (GHC.Ptr.Ptr ds3_sRwd -> let !wild_sRyE = ffi_wrapper4 _Javascript_JQuery_Basic_hasClass ds3_sRwd ww_sRwe w1_sRwf in select wild_sRyE (<{GHC.Tuple.(,)}> ds7_sRwn ds8_sRwk -> select ds8_sRwk (_ -> let !wild2_sRyC = ffi_wrapper4 _Javascript_JQuery_Basic_removeClass ds3_sRwd ww_sRwe ds7_sRwn in select wild2_sRyC (<{GHC.Tuple.(,)}> ds1_sRwt ds4_sRyB -> let !wild3_sRyA = ffi_wrapper3 _Javascript_JQuery_Basic_parentNull ww_sRwe ds1_sRwt in select wild3_sRyA (<{GHC.Tuple.(,)}> ds5_sRwD ds6_sRwC -> select Gui.Utils.unwrapError2 (GHC.Ptr.Ptr ds10_sRwB -> let !wild4_sRyy = ffi_wrapper4 _Javascript_JQuery_Basic_hasClass ds10_sRwB ds6_sRwC ds5_sRwD in select wild4_sRyy (<{GHC.Tuple.(,)}> ds11_sRwL ds12_sRwI -> select ds12_sRwI (_ -> let !wild6_sRyw = ffi_wrapper4 _Javascript_JQuery_Basic_insertBeforeJQuery ds6_sRwC ww_sRwe ds11_sRwL in select wild6_sRyw (<{GHC.Tuple.(,)}> ds13_sRwR ds14_sRyv -> let !wild7_sRyu = ffi_wrapper3 _Javascript_JQuery_Basic_removeNone ds6_sRwC ds13_sRwR in select wild7_sRyu (<{GHC.Tuple.(,)}> ds15_sRwX ds16_sRyt -> let !wild8_sRys = ffi_wrapper3 _Javascript_JQuery_Basic_focus ww_sRwe ds15_sRwX in select wild8_sRys (<{GHC.Tuple.(,)}> ds17_sRx2 ds18_sRyr -> <{GHC.Tuple.(,)}> ds17_sRx2 (GHC.Ptr.Ptr ww_sRwe))))) (0 -> let !wild6_sRyI = ffi_wrapper3 _Javascript_JQuery_Basic_focus ww_sRwe ds11_sRwL in select wild6_sRyI (<{GHC.Tuple.(,)}> ds13_sRx9 ds14_sRyH -> <{GHC.Tuple.(,)}> ds13_sRx9 (GHC.Ptr.Ptr ww_sRwe)))))))) (0 -> <{GHC.Tuple.(,)}> ds7_sRwn (GHC.Ptr.Ptr ww_sRwe)))) Gui.Utils.unwrapError1 w1_sRxe w2_sRxi = select w1_sRxe (GHC.Ptr.Ptr ww_sRxh -> Gui.Utils.$wa ww_sRxh w2_sRxi) Gui.Utils.unwrapError eta_B2_B2 eta_B1_B1 = Gui.Utils.unwrapError1 eta_B2_B2 eta_B1_B1