Gui.Generic.Instances.ID.x =: GHC.CString.unpackCString# "no id available"
Gui.Generic.Instances.ID.lvl =: let !ds_s1egm = Javascript.Base.Types.FakePtr Gui.Generic.Instances.ID.x in select ds_s1egm (GHC.Ptr.Ptr ds1_s1e16 -> let !tpl_s1egl = Gui.Generic.Instances.ID.x, !wild_s1egk = ffi_wrapper3 jsToString ds1_s1e16 GHC.Prim.realWorld# in select wild_s1egk (<{GHC.Tuple.(,)}> ds2_s1egj ds3_s1e1b -> GHC.Ptr.Ptr ds3_s1e1b))
Gui.Generic.Instances.ID.lvl1 =: let !ds_s1egx = Javascript.Base.Types.FakePtr Gui.Generic.Instances.ID.x in select ds_s1egx (GHC.Ptr.Ptr ds1_s1e1g -> let !tpl_s1egw = Gui.Generic.Instances.ID.x, !wild_s1egv = ffi_wrapper3 jsToString ds1_s1e1g GHC.Prim.realWorld# in select wild_s1egv (<{GHC.Tuple.(,)}> ds2_s1egu ds3_s1e1l -> GHC.Ptr.Ptr ds3_s1e1l))
Gui.Generic.Instances.ID.x1 =: GHC.CString.unpackCString# "<div />"
Gui.Generic.Instances.ID.x2 =: GHC.CString.unpackCString# "inputDiv inputID"
Gui.Generic.Instances.ID.lvl2 =: Javascript.Base.Types.FakePtr Gui.Generic.Instances.ID.x2
Gui.Generic.Instances.ID.lvl3 =: Javascript.Base.Types.FakePtr Gui.Generic.Instances.ID.x1
Gui.Generic.Instances.ID.a s_s1e1y = select Gui.Generic.Instances.ID.lvl3 (GHC.Ptr.Ptr ds1_s1e1r -> let !tpl_s1egM = Gui.Generic.Instances.ID.x1, !wild_s1egL = ffi_wrapper3 jsToString ds1_s1e1r GHC.Prim.realWorld# in select wild_s1egL (<{GHC.Tuple.(,)}> ds2_s1egK ds3_s1e1x -> let !wild1_s1egJ = ffi_wrapper3 _Javascript_JQuery_Basic_jQuery_ ds3_s1e1x s_s1e1y in select wild1_s1egJ (<{GHC.Tuple.(,)}> ds4_s1e1P ds5_s1e1O -> select Gui.Generic.Instances.ID.lvl2 (GHC.Ptr.Ptr ds7_s1e1H -> let !tpl1_s1egH = Gui.Generic.Instances.ID.x2, !wild2_s1egG = ffi_wrapper3 jsToString ds7_s1e1H GHC.Prim.realWorld# in select wild2_s1egG (<{GHC.Tuple.(,)}> ds8_s1egF ds9_s1e1N -> let !wild3_s1egE = ffi_wrapper4 _Javascript_JQuery_Basic_addClass ds9_s1e1N ds5_s1e1O ds4_s1e1P in select wild3_s1egE (<{GHC.Tuple.(,)}> ds10_s1e1U ds11_s1e1V -> <{GHC.Tuple.(,)}> ds10_s1e1U (GHC.Ptr.Ptr ds11_s1e1V)))))))
Gui.Generic.Instances.ID.a1 s_s1e1Y = let !ds_s1egQ = newMutVar# Data.Maybe.Nothing s_s1e1Y in select ds_s1egQ (<{GHC.Tuple.(,)}> ipv_s1e22 ipv1_s1e23 -> <{GHC.Tuple.(,)}> ipv_s1e22 (GHC.STRef.STRef ipv1_s1e23))
Gui.Generic.Instances.ID.$w$ctoInput w_s1e7j w1_s1e2O w2_s1e85 w3_s1e2d w4_s1e2H w5_s1e2P w6_s1e2g = let $dMonad_s1e2l = Control.Monad.IO.Class.$p1MonadIO w6_s1e2g in Gui.Generic.Instances.ID.$w$ctoInput$25 (Gui.Dialogable.$p1Dialogable w3_s1e2d) (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g Gui.Generic.Instances.ID.a) (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g Gui.Generic.Instances.ID.a1) (<{GHC.Base.>>=}> $dMonad_s1e2l) (<{GHC.Base.>>=}> $dMonad_s1e2l) (<{GHC.Base.>>=}> $dMonad_s1e2l) (<{GHC.Base.>>=}> $dMonad_s1e2l) (DB.Class.get w4_s1e2H) (<{GHC.Base.>>=}> $dMonad_s1e2l) (Gui.Dialogable.title w3_s1e2d GHC.Err.undefined) (Gui.Dialog.dialog w1_s1e2O Control.Monad.IO.Class.$fMonadIOIO w5_s1e2P) (DB.Class.update w4_s1e2H) (DB.Class.showDB w4_s1e2H) (DB.Class.addListener w4_s1e2H) (DB.Class.removeListener w4_s1e2H) (GHC.Base.return $dMonad_s1e2l) (<{GHC.Base.>>=}> $dMonad_s1e2l) (<{GHC.Base.>>=}> $dMonad_s1e2l) (<{GHC.Base.>>=}> $dMonad_s1e2l) (<{GHC.Base.>>=}> $dMonad_s1e2l) (GHC.Base.return $dMonad_s1e2l) w2_s1e85 w6_s1e2g w_s1e7j
Gui.Generic.Instances.ID.$w$ctoInput$25 $dTypeable_s1e2e a2_s1e2h a3_s1e2j lvl10_s1e2z lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y lvl4_s1e2n lvl5_s1e2p lvl6_s1e2r lvl7_s1e2t lvl8_s1e2v lvl9_s1e2x w2_s1e85 w6_s1e2g w_s1e7j sigIn_s1e32 = Gui.Generic.Instances.ID.$w$ctoInput$27 lvl10_s1e2z (Gui.Generic.Instances.ID.$w$ctoInput$26 $dTypeable_s1e2e a2_s1e2h a3_s1e2j (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$28 sigIn_s1e32)) lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y lvl4_s1e2n lvl5_s1e2p lvl6_s1e2r lvl7_s1e2t lvl8_s1e2v sigIn_s1e32 w2_s1e85 w6_s1e2g w_s1e7j) lvl9_s1e2x
Gui.Generic.Instances.ID.$w$ctoInput$26 $dTypeable_s1e2e a2_s1e2h a3_s1e2j a4_s1e3o lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y lvl4_s1e2n lvl5_s1e2p lvl6_s1e2r lvl7_s1e2t lvl8_s1e2v sigIn_s1e32 w2_s1e85 w6_s1e2g w_s1e7j ds_s1e3s = let s_s1e3x = Gui.Generic.Instances.ID.$w$ctoInput$2 ds_s1e3s in lvl8_s1e2v (a2_s1e2h (Gui.Generic.Instances.ID.$w$ctoInput$3 ds_s1e3s)) (Gui.Generic.Instances.ID.$w$ctoInput$29 $dTypeable_s1e2e a3_s1e2j a4_s1e3o lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y (lvl21_s1e2Y s_s1e3x) lvl4_s1e2n lvl5_s1e2p lvl6_s1e2r lvl7_s1e2t s_s1e3x sigIn_s1e32 w2_s1e85 w6_s1e2g w_s1e7j)
Gui.Generic.Instances.ID.$w$ctoInput$29 $dTypeable_s1e2e a3_s1e2j a4_s1e3o lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y lvl23_s1e3z lvl4_s1e2n lvl5_s1e2p lvl6_s1e2r lvl7_s1e2t s_s1e3x sigIn_s1e32 w2_s1e85 w6_s1e2g w_s1e7j ds1_s1e3J = let inp_s1e3O = Gui.Generic.Instances.ID.$w$ctoInput$4 ds1_s1e3J in lvl7_s1e2t (a3_s1e2j (Gui.Generic.Instances.ID.$w$ctoInput$5 ds1_s1e3J)) (Gui.Generic.Instances.ID.$w$ctoInput$31 $dTypeable_s1e2e a4_s1e3o (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$33 inp_s1e3O)) inp_s1e3O lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y lvl23_s1e3z (Gui.Generic.Instances.ID.$w$ctoInput$30 inp_s1e3O lvl4_s1e2n sigIn_s1e32) (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$32 inp_s1e3O)) lvl5_s1e2p lvl6_s1e2r s_s1e3x sigIn_s1e32 w2_s1e85 w6_s1e2g w_s1e7j)
Gui.Generic.Instances.ID.$w$ctoInput$30 inp_s1e3O lvl4_s1e2n sigIn_s1e32 ds2_s1e3V = lvl4_s1e2n (<{GHC.Tuple.(,)}> (Gui.Generic.Types.Input sigIn_s1e32 (<{GHC.Types.:}> inp_s1e3O <{GHC.Types.[]}>)) (Gui.Generic.Instances.ID.$w$ctoInput$13 ds2_s1e3V))
Gui.Generic.Instances.ID.$w$ctoInput$31 $dTypeable_s1e2e a4_s1e3o a7_s1e47 inp_s1e3O lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y lvl23_s1e3z lvl24_s1e43 lvl25_s1e4p lvl5_s1e2p lvl6_s1e2r s_s1e3x sigIn_s1e32 w2_s1e85 w6_s1e2g w_s1e7j ds2_s1e4z = let ref_s1e4E = Gui.Generic.Instances.ID.$w$ctoInput$6 ds2_s1e4z in lvl5_s1e2p (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$37 $dTypeable_s1e2e inp_s1e3O lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y ref_s1e4E s_s1e3x sigIn_s1e32 w2_s1e85 w_s1e7j) (Gui.Generic.Instances.ID.$w$ctoInput$7 ds2_s1e4z)) (Gui.Generic.Instances.ID.$w$ctoInput$36 a4_s1e3o (Gui.Generic.Instances.ID.$w$ctoInput$35 $dTypeable_s1e2e a7_s1e47 inp_s1e3O lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl24_s1e43 lvl25_s1e4p (Gui.Generic.Instances.ID.$w$ctoInput$34 lvl23_s1e3z ref_s1e4E w6_s1e2g) lvl5_s1e2p s_s1e3x w2_s1e85 w6_s1e2g w_s1e7j) lvl6_s1e2r)
Gui.Generic.Instances.ID.$w$ctoInput$34 lvl23_s1e3z ref_s1e4E w6_s1e2g ds3_s1e4R = Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$38 ds3_s1e4R lvl23_s1e3z ref_s1e4E) (Gui.Generic.Instances.ID.$w$ctoInput$10 ds3_s1e4R)
Gui.Generic.Instances.ID.$w$ctoInput$38 ds3_s1e4R lvl23_s1e3z ref_s1e4E s1_s1e4L = select ref_s1e4E (GHC.STRef.STRef var#_s1e4K -> let !ds4_s1eiw = readMutVar# var#_s1e4K s1_s1e4L in select ds4_s1eiw (<{GHC.Tuple.(,)}> ipv_s1e4Z ipv1_s1e4P -> select ipv1_s1e4P (Data.Maybe.Nothing  -> let !s2#_s1e51 = writeMutVar# var#_s1e4K (Data.Maybe.Just (Gui.Generic.Instances.ID.$w$ctoInput$11 ds3_s1e4R)) ipv_s1e4Z in <{GHC.Tuple.(,)}> s2#_s1e51 <{GHC.Tuple.()}>) (Data.Maybe.Just x3_s1e53 -> let !ds5_s1eiz = lvl23_s1e3z x3_s1e53 ipv_s1e4Z in select ds5_s1eiz (<{GHC.Tuple.(,)}> ipv2_s1e5e ipv3_s1egX -> let !s2#_s1e5g = writeMutVar# var#_s1e4K (Data.Maybe.Just (Gui.Generic.Instances.ID.$w$ctoInput$12 ds3_s1e4R)) ipv2_s1e5e in <{GHC.Tuple.(,)}> s2#_s1e5g <{GHC.Tuple.()}>))))
Gui.Generic.Instances.ID.$w$ctoInput$35 $dTypeable_s1e2e a7_s1e47 inp_s1e3O lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl24_s1e43 lvl25_s1e4p lvl26_s1e5n lvl5_s1e2p s_s1e3x w2_s1e85 w6_s1e2g w_s1e7j ds3_s1e5q = lvl5_s1e2p (Gui.Generic.Instances.ID.$w$ctoInput$9 $dTypeable_s1e2e a7_s1e47 ds3_s1e5q inp_s1e3O lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl25_s1e4p lvl26_s1e5n s_s1e3x w2_s1e85 w6_s1e2g w_s1e7j) lvl24_s1e43
Gui.Generic.Instances.ID.$w$ctoInput$36 a4_s1e3o lvl27_s1eaC lvl6_s1e2r ds3_s1efA = lvl6_s1e2r (a4_s1e3o (Gui.Generic.Instances.ID.$w$ctoInput$8 ds3_s1efA)) lvl27_s1eaC
Gui.Generic.Instances.ID.$w$ctoInput$37 $dTypeable_s1e2e inp_s1e3O lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y ref_s1e4E s_s1e3x sigIn_s1e32 w2_s1e85 w_s1e7j s1_s1efl = let !ds3_s1eks = FRP.Fursuit.Signal.removableSink1 (Gui.Generic.Instances.ID.$w$ctoInput$39 $dTypeable_s1e2e inp_s1e3O lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y ref_s1e4E s_s1e3x w2_s1e85 w_s1e7j) sigIn_s1e32 s1_s1efl in select ds3_s1eks (<{GHC.Tuple.(,)}> ipv_s1efp ipv1_s1eh3 -> <{GHC.Tuple.(,)}> ipv_s1efp <{GHC.Tuple.()}>)
Gui.Generic.Instances.ID.$w$ctoInput$39 $dTypeable_s1e2e inp_s1e3O lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y ref_s1e4E s_s1e3x w2_s1e85 w_s1e7j ma_s1eaG s2_s1eaP = select ma_s1eaG (Data.Maybe.Nothing  -> select Gui.Generic.Instances.ID.lvl (GHC.Ptr.Ptr ds4_s1eaN -> select inp_s1e3O (GHC.Ptr.Ptr ds6_s1eaO -> let !wild1_s1eju = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds4_s1eaN ds6_s1eaO s2_s1eaP in select wild1_s1eju (<{GHC.Tuple.(,)}> ds7_s1eaU ds8_s1eht -> <{GHC.Tuple.(,)}> ds7_s1eaU <{GHC.Tuple.()}>)))) (Data.Maybe.Just ia_s1eb6 -> let !ds3_s1ejG = Javascript.Base.Types.FakePtr (Gui.Generic.Instances.ID.$w$ctoInput$41 $dTypeable_s1e2e ia_s1eb6 lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q (Gui.Generic.Instances.ID.$w$ctoInput$40 $dTypeable_s1e2e ia_s1eb6 lvl18_s1e2S s_s1e3x) s_s1e3x) in select ds3_s1ejG (GHC.Ptr.Ptr ds4_s1ech -> let !ds5_s1ejF = lvl14_s1e2I $dTypeable_s1e2e s_s1e3x ia_s1eb6 s2_s1eaP in select ds5_s1ejF (<{GHC.Tuple.(,)}> ipv_s1ef0 ipv1_s1ebJ -> select ipv1_s1ebJ (Data.Maybe.Nothing  -> select ia_s1eb6 (Data.ID.ID ww1_s1eeK -> let !x3_s1eeL = Data.ID.$w$cshowsPrec 0 ww1_s1eeK <{GHC.Types.[]}>, !ds6_s1ekm = Javascript.Base.Types.FakePtr x3_s1eeL in select ds6_s1ekm (GHC.Ptr.Ptr ds7_s1eeQ -> let !tpl_s1ekl = x3_s1eeL, !wild2_s1ekk = ffi_wrapper3 jsToString ds7_s1eeQ GHC.Prim.realWorld# in select wild2_s1ekk (<{GHC.Tuple.(,)}> ds8_s1ehp ds9_s1eeY -> select inp_s1e3O (GHC.Ptr.Ptr ds11_s1eeZ -> let !wild3_s1eki = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds9_s1eeY ds11_s1eeZ ipv_s1ef0 in select wild3_s1eki (<{GHC.Tuple.(,)}> ds12_s1ef5 ds13_s1ehq -> Gui.Generic.Instances.ID.$w$ctoInput$1 $dTypeable_s1e2e ds4_s1ech ia_s1eb6 inp_s1e3O ipv1_s1ebJ lvl14_s1e2I lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y ref_s1e4E s_s1e3x w2_s1e85 w_s1e7j ds12_s1ef5)))))) (Data.Maybe.Just a8_s1ef7 -> let !ds6_s1ekr = w2_s1e85 a8_s1ef7 in select ds6_s1ekr (GHC.Ptr.Ptr ds7_s1efd -> select inp_s1e3O (GHC.Ptr.Ptr ds9_s1efe -> let !wild2_s1ekp = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds7_s1efd ds9_s1efe ipv_s1ef0 in select wild2_s1ekp (<{GHC.Tuple.(,)}> ds10_s1efj ds11_s1eho -> Gui.Generic.Instances.ID.$w$ctoInput$1 $dTypeable_s1e2e ds4_s1ech ia_s1eb6 inp_s1e3O ipv1_s1ebJ lvl14_s1e2I lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y ref_s1e4E s_s1e3x w2_s1e85 w_s1e7j ds10_s1efj)))))))
Gui.Generic.Instances.ID.$w$ctoInput$40 $dTypeable_s1e2e ia_s1eb6 lvl18_s1e2S s_s1e3x ds3_s1eaZ eta_s1eb1 = select ds3_s1eaZ (Gui.Dialog.DialogCancel  -> <{GHC.Tuple.(,)}> eta_s1eb1 <{GHC.Tuple.()}>) (Gui.Dialog.DialogOK ds4_s1eb3 -> select ds4_s1eb3 (Data.Maybe.Nothing  -> <{GHC.Tuple.(,)}> eta_s1eb1 <{GHC.Tuple.()}>) (Data.Maybe.Just a8_s1eb7 -> let !ds5_s1ejA = lvl18_s1e2S $dTypeable_s1e2e s_s1e3x ia_s1eb6 a8_s1eb7 eta_s1eb1 in select ds5_s1ejA (<{GHC.Tuple.(,)}> ipv_s1ebb ipv1_s1ehs -> <{GHC.Tuple.(,)}> ipv_s1ebb <{GHC.Tuple.()}>)))
Gui.Generic.Instances.ID.$w$ctoInput$41 $dTypeable_s1e2e ia_s1eb6 lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q lvl28_s1ebc s_s1e3x ds3_s1ebz eta_s1ebf = let !ds4_s1ejB = lvl14_s1e2I $dTypeable_s1e2e s_s1e3x ia_s1eb6 eta_s1ebf in select ds4_s1ejB (<{GHC.Tuple.(,)}> ipv_s1ebl ipv1_s1ebj -> let !ds5_s1ejE = lvl17_s1e2Q lvl16_s1e2M (FRP.Fursuit.Signal.Pure ipv1_s1ebj) s_s1e3x ipv_s1ebl in select ds5_s1ejE (<{GHC.Tuple.(,)}> ipv2_s1ebu ipv3_s1ebp -> select ipv3_s1ebp (<{GHC.Tuple.(,)}> a8_s1ebt ds6_s1eh5 -> let !ds7_s1ejC = FRP.Fursuit.Signal.removableSink1 lvl28_s1ebc a8_s1ebt ipv2_s1ebu in select ds7_s1ejC (<{GHC.Tuple.(,)}> ipv4_s1eby ipv5_s1eh6 -> <{GHC.Tuple.(,)}> ipv4_s1eby <{GHC.Tuple.()}>))))
Gui.Generic.Instances.ID.$w$ctoInput$32 inp_s1e3O s1_s1e4h = select Gui.Generic.Instances.ID.lvl1 (GHC.Ptr.Ptr ds3_s1e4f -> select inp_s1e3O (GHC.Ptr.Ptr ds5_s1e4g -> let !wild_s1eip = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds3_s1e4f ds5_s1e4g s1_s1e4h in select wild_s1eip (<{GHC.Tuple.(,)}> ds7_s1e4m ds8_s1eid -> <{GHC.Tuple.(,)}> ds7_s1e4m <{GHC.Tuple.()}>)))
Gui.Generic.Instances.ID.$w$ctoInput$33 inp_s1e3O eta_B1_B1 = Javascript.JQuery.Events.off_ Javascript.JQuery.Events.noclick1 inp_s1e3O eta_B1_B1
Gui.Generic.Instances.ID.$w$ctoInput$27 lvl10_s1e2z lvl22_s1efL lvl9_s1e2x eta_s1efN = lvl10_s1e2z (lvl9_s1e2x (<{GHC.Tuple.(,)}> eta_s1efN eta_s1efN)) lvl22_s1efL
Gui.Generic.Instances.ID.$w$ctoInput$28 sigIn_s1e32 s_s1e33 = let !ds1_s1efV = FRP.Fursuit.Signal.compile1 sigIn_s1e32 s_s1e33 in select ds1_s1efV (<{GHC.Tuple.(,)}> ipv_s1e37 ipv1_s1e38 -> let !ds2_s1efU = ipv1_s1e38 ipv_s1e37 in select ds2_s1efU (<{GHC.Tuple.(,)}> ipv2_s1e3c ipv3_s1e3d -> <{GHC.Tuple.(,)}> ipv2_s1e3c (Gui.Generic.Instances.ID.$w$ctoInput$14 ipv3_s1e3d)))
Gui.Generic.Instances.ID.$w$ctoInput$2 ds_s1e3s = select ds_s1e3s (<{GHC.Tuple.(,)}> a5_s1e3w <{s'_s1eik}> -> a5_s1e3w)
Gui.Generic.Instances.ID.$w$ctoInput$3 ds_s1e3s = select ds_s1e3s (<{GHC.Tuple.(,)}> a5_s1eih <{s'_s1e3D}> -> <{s'_s1e3D}>)
Gui.Generic.Instances.ID.$w$ctoInput$4 ds1_s1e3J = select ds1_s1e3J (<{GHC.Tuple.(,)}> a5_s1e3N <{s'_s1eii}> -> a5_s1e3N)
Gui.Generic.Instances.ID.$w$ctoInput$5 ds1_s1e3J = select ds1_s1e3J (<{GHC.Tuple.(,)}> a8_s1eib <{s'_s1e4t}> -> <{s'_s1e4t}>)
Gui.Generic.Instances.ID.$w$ctoInput$6 ds2_s1e4z = select ds2_s1e4z (<{GHC.Tuple.(,)}> a8_s1e4D <{s'_s1eic}> -> a8_s1e4D)
Gui.Generic.Instances.ID.$w$ctoInput$7 ds2_s1e4z = select ds2_s1e4z (<{GHC.Tuple.(,)}> a8_s1ehw <{s'_s1efu}> -> <{s'_s1efu}>)
Gui.Generic.Instances.ID.$w$ctoInput$8 ds3_s1efA = select ds3_s1efA (<{GHC.Tuple.(,)}> a8_s1ehx <{s'_s1efE}> -> <{s'_s1efE}>)
Gui.Generic.Instances.ID.$w$ctoInput$9 $dTypeable_s1e2e a7_s1e47 ds3_s1e5q inp_s1e3O lvl11_s1e2B lvl12_s1e2D lvl13_s1e2F lvl14_s1e2I lvl15_s1e2K lvl16_s1e2M lvl17_s1e2Q lvl18_s1e2S lvl19_s1e2U lvl20_s1e2W lvl25_s1e4p lvl26_s1e5n s_s1e3x w2_s1e85 w6_s1e2g w_s1e7j = select ds3_s1e5q (<{GHC.Tuple.(,)}> a8_s1e5u <{s'_s1e5w}> -> select a8_s1e5u (Data.Maybe.Nothing  -> lvl25_s1e4p <{s'_s1e5w}>) (Data.Maybe.Just ia_s1e5I -> let !ds4_s1eiN = Javascript.Base.Types.FakePtr (Gui.Generic.Instances.ID.$w$ctoInput$43 $dTypeable_s1e2e ia_s1e5I lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q (Gui.Generic.Instances.ID.$w$ctoInput$42 $dTypeable_s1e2e ia_s1e5I lvl18_s1e2S s_s1e3x) s_s1e3x) in select ds4_s1eiN (GHC.Ptr.Ptr ds5_s1e6j -> lvl15_s1e2K (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (lvl14_s1e2I $dTypeable_s1e2e s_s1e3x ia_s1e5I) <{s'_s1e5w}>) (Gui.Generic.Instances.ID.$w$ctoInput$47 ia_s1e5I inp_s1e3O lvl12_s1e2D lvl13_s1e2F (Gui.Generic.Instances.ID.$w$ctoInput$46 a7_s1e47 lvl12_s1e2D (Gui.Generic.Instances.ID.$w$ctoInput$45 (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$23 ds5_s1e6j inp_s1e3O)) lvl12_s1e2D (Gui.Generic.Instances.ID.$w$ctoInput$44 (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (lvl20_s1e2W $dTypeable_s1e2e s_s1e3x ia_s1e5I (Gui.Generic.Instances.ID.$w$ctoInput$48 $dTypeable_s1e2e ia_s1e5I inp_s1e3O lvl14_s1e2I lvl19_s1e2U w2_s1e85 w_s1e7j (GHC.CString.unpackAppendCString# "setting title:" (Gui.Generic.Instances.ID.$w$ctoInput$22 ia_s1e5I))))) lvl11_s1e2B lvl26_s1e5n))) w2_s1e85 w6_s1e2g w_s1e7j))))
Gui.Generic.Instances.ID.$w$ctoInput$42 $dTypeable_s1e2e ia_s1e5I lvl18_s1e2S s_s1e3x ds4_s1e5B eta_s1e5D = select ds4_s1e5B (Gui.Dialog.DialogCancel  -> <{GHC.Tuple.(,)}> eta_s1e5D <{GHC.Tuple.()}>) (Gui.Dialog.DialogOK ds5_s1e5F -> select ds5_s1e5F (Data.Maybe.Nothing  -> <{GHC.Tuple.(,)}> eta_s1e5D <{GHC.Tuple.()}>) (Data.Maybe.Just a9_s1e5J -> let !ds6_s1eiE = lvl18_s1e2S $dTypeable_s1e2e s_s1e3x ia_s1e5I a9_s1e5J eta_s1e5D in select ds6_s1eiE (<{GHC.Tuple.(,)}> ipv_s1e5N ipv1_s1ei7 -> <{GHC.Tuple.(,)}> ipv_s1e5N <{GHC.Tuple.()}>)))
Gui.Generic.Instances.ID.$w$ctoInput$43 $dTypeable_s1e2e ia_s1e5I lvl14_s1e2I lvl16_s1e2M lvl17_s1e2Q lvl28_s1e5O s_s1e3x ds4_s1e6b eta_s1e5R = let !ds5_s1eiF = lvl14_s1e2I $dTypeable_s1e2e s_s1e3x ia_s1e5I eta_s1e5R in select ds5_s1eiF (<{GHC.Tuple.(,)}> ipv_s1e5X ipv1_s1e5V -> let !ds6_s1eiI = lvl17_s1e2Q lvl16_s1e2M (FRP.Fursuit.Signal.Pure ipv1_s1e5V) s_s1e3x ipv_s1e5X in select ds6_s1eiI (<{GHC.Tuple.(,)}> ipv2_s1e66 ipv3_s1e61 -> select ipv3_s1e61 (<{GHC.Tuple.(,)}> a9_s1e65 ds7_s1ehz -> let !ds8_s1eiG = FRP.Fursuit.Signal.removableSink1 lvl28_s1e5O a9_s1e65 ipv2_s1e66 in select ds8_s1eiG (<{GHC.Tuple.(,)}> ipv4_s1e6a ipv5_s1ehA -> <{GHC.Tuple.(,)}> ipv4_s1e6a <{GHC.Tuple.()}>))))
Gui.Generic.Instances.ID.$w$ctoInput$44 a10_s1e8D lvl11_s1e2B lvl26_s1e5n ds6_s1e8G = lvl11_s1e2B (a10_s1e8D (Gui.Generic.Instances.ID.$w$ctoInput$21 ds6_s1e8G)) lvl26_s1e5n
Gui.Generic.Instances.ID.$w$ctoInput$45 a9_s1e6G lvl12_s1e2D lvl29_s1e8O ds6_s1e8R = lvl12_s1e2D (a9_s1e6G (Gui.Generic.Instances.ID.$w$ctoInput$20 ds6_s1e8R)) lvl29_s1e8O
Gui.Generic.Instances.ID.$w$ctoInput$46 a7_s1e47 lvl12_s1e2D lvl30_s1e8Z ds6_s1e92 = lvl12_s1e2D (a7_s1e47 (Gui.Generic.Instances.ID.$w$ctoInput$19 ds6_s1e92)) lvl30_s1e8Z
Gui.Generic.Instances.ID.$w$ctoInput$47 ia_s1e5I inp_s1e3O lvl12_s1e2D lvl13_s1e2F lvl31_s1e9a w2_s1e85 w6_s1e2g w_s1e7j ds6_s1e9g = let ma_s1e9l = Gui.Generic.Instances.ID.$w$ctoInput$15 ds6_s1e9g in lvl12_s1e2D (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$17 ia_s1e5I inp_s1e3O ma_s1e9l w2_s1e85) (Gui.Generic.Instances.ID.$w$ctoInput$16 ds6_s1e9g)) (Gui.Generic.Instances.ID.$w$ctoInput$49 (Control.Monad.Trans.State.Lazy.$w$cliftIO w6_s1e2g (Gui.Generic.Instances.ID.$w$ctoInput$50 ma_s1e9l w_s1e7j)) lvl13_s1e2F lvl31_s1e9a)
Gui.Generic.Instances.ID.$w$ctoInput$49 a11_s1e9t lvl13_s1e2F lvl31_s1e9a ds7_s1ear = lvl13_s1e2F (a11_s1e9t (Gui.Generic.Instances.ID.$w$ctoInput$18 ds7_s1ear)) lvl31_s1e9a
Gui.Generic.Instances.ID.$w$ctoInput$50 ma_s1e9l w_s1e7j eta_B1_B1 = Javascript.Utils.dumpString1 (GHC.CString.unpackAppendCString# "value:" (GHC.Show.$fShowMaybe_$cshowsPrec w_s1e7j GHC.Show.shows26 ma_s1e9l <{GHC.Types.[]}>)) eta_B1_B1
Gui.Generic.Instances.ID.$w$ctoInput$48 $dTypeable_s1e2e ia_s1e5I inp_s1e3O lvl14_s1e2I lvl19_s1e2U w2_s1e85 w_s1e7j x3_s1e6O s1_s1e79 s2_s1e8t = let !ds6_s1ejb = Javascript.Base.Types.FakePtr (Gui.Generic.Instances.ID.$w$ctoInput$51 $dTypeable_s1e2e ia_s1e5I inp_s1e3O lvl14_s1e2I lvl19_s1e2U s1_s1e79 w2_s1e85 w_s1e7j x3_s1e6O) in select ds6_s1ejb (GHC.Ptr.Ptr ds7_s1e8m -> let !wild2_s1eja = ffi_wrapper3 makeCallback ds7_s1e8m GHC.Prim.realWorld# in select wild2_s1eja (<{GHC.Tuple.(,)}> ds8_s1ehI ds9_s1e8s -> let !wild3_s1ej9 = ffi_wrapper4 _Javascript_Time_setTimeout_ 0 ds9_s1e8s s2_s1e8t in select wild3_s1ej9 (<{GHC.Tuple.(,)}> ds10_s1e8y ds11_s1ehJ -> <{GHC.Tuple.(,)}> ds10_s1e8y <{GHC.Tuple.()}>)))
Gui.Generic.Instances.ID.$w$ctoInput$51 $dTypeable_s1e2e ia_s1e5I inp_s1e3O lvl14_s1e2I lvl19_s1e2U s1_s1e79 w2_s1e85 w_s1e7j x3_s1e6O s3_s1e75 = select (Javascript.Base.Types.FakePtr x3_s1e6O) (GHC.Ptr.Ptr ds7_s1e6Y -> let !tpl_s1eiT = x3_s1e6O, !wild2_s1eiS = ffi_wrapper3 jsToString ds7_s1e6Y GHC.Prim.realWorld# in select wild2_s1eiS (<{GHC.Tuple.(,)}> ds8_s1ehK ds9_s1e74 -> let !wild3_s1eiR = ffi_wrapper3 _Javascript_Utils_dump_ ds9_s1e74 s3_s1e75 in select wild3_s1eiR (<{GHC.Tuple.()}> ds10_s1e7a -> let !ds11_s1eiQ = lvl19_s1e2U s1_s1e79 ds10_s1e7a in select ds11_s1eiQ (<{GHC.Tuple.(,)}> ipv_s1e7e ipv1_s1ehL -> let !ds12_s1eiP = lvl14_s1e2I $dTypeable_s1e2e s1_s1e79 ia_s1e5I ipv_s1e7e in select ds12_s1eiP (<{GHC.Tuple.(,)}> ipv2_s1e7z ipv3_s1e7k -> let !x4_s1e7m = GHC.CString.unpackAppendCString# "value:" (GHC.Show.$fShowMaybe_$cshowsPrec w_s1e7j GHC.Show.shows26 ipv3_s1e7k <{GHC.Types.[]}>), !ds13_s1ej5 = Javascript.Base.Types.FakePtr x4_s1e7m in select ds13_s1ej5 (GHC.Ptr.Ptr ds14_s1e7s -> let !tpl1_s1ej4 = x4_s1e7m, !wild4_s1ej3 = ffi_wrapper3 jsToString ds14_s1e7s GHC.Prim.realWorld# in select wild4_s1ej3 (<{GHC.Tuple.(,)}> ds15_s1ehD ds16_s1e7y -> let !wild5_s1ej2 = ffi_wrapper3 _Javascript_Utils_dump_ ds16_s1e7y ipv2_s1e7z in select wild5_s1ej2 (<{GHC.Tuple.()}> ds17_s1e7X -> select ipv3_s1e7k (Data.Maybe.Nothing  -> select ia_s1e5I (Data.ID.ID ww1_s1e7H -> let !x5_s1e7I = Data.ID.$w$cshowsPrec 0 ww1_s1e7H <{GHC.Types.[]}>, !ds18_s1eiZ = Javascript.Base.Types.FakePtr x5_s1e7I in select ds18_s1eiZ (GHC.Ptr.Ptr ds19_s1e7N -> let !tpl2_s1eiY = x5_s1e7I, !wild7_s1eiX = ffi_wrapper3 jsToString ds19_s1e7N GHC.Prim.realWorld# in select wild7_s1eiX (<{GHC.Tuple.(,)}> ds20_s1ehF ds21_s1e7V -> select inp_s1e3O (GHC.Ptr.Ptr ds23_s1e7W -> let !wild8_s1eiV = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds21_s1e7V ds23_s1e7W ds17_s1e7X in select wild8_s1eiV (<{GHC.Tuple.(,)}> ds24_s1e82 ds25_s1ehG -> <{GHC.Tuple.(,)}> ds24_s1e82 <{GHC.Tuple.()}>)))))) (Data.Maybe.Just a11_s1e84 -> let !ds18_s1ej8 = w2_s1e85 a11_s1e84 in select ds18_s1ej8 (GHC.Ptr.Ptr ds19_s1e8b -> select inp_s1e3O (GHC.Ptr.Ptr ds21_s1e8c -> let !wild7_s1ej6 = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds19_s1e8b ds21_s1e8c ds17_s1e7X in select wild7_s1ej6 (<{GHC.Tuple.(,)}> ds22_s1e8h ds23_s1ehE -> <{GHC.Tuple.(,)}> ds22_s1e8h <{GHC.Tuple.()}>))))))))))))
Gui.Generic.Instances.ID.$w$ctoInput$15 ds6_s1e9g = select ds6_s1e9g (<{GHC.Tuple.(,)}> a11_s1e9k <{s'1_s1ei1}> -> a11_s1e9k)
Gui.Generic.Instances.ID.$w$ctoInput$16 ds6_s1e9g = select ds6_s1e9g (<{GHC.Tuple.(,)}> a12_s1ehX <{s'1_s1eal}> -> <{s'1_s1eal}>)
Gui.Generic.Instances.ID.$w$ctoInput$17 ia_s1e5I inp_s1e3O ma_s1e9l w2_s1e85 = select ma_s1e9l (Data.Maybe.Nothing  -> select ia_s1e5I (Data.ID.ID ww1_s1e9y -> let !x3_s1e9z = Data.ID.$w$cshowsPrec 0 ww1_s1e9y <{GHC.Types.[]}>, !ds7_s1ejm = Javascript.Base.Types.FakePtr x3_s1e9z in select ds7_s1ejm (GHC.Ptr.Ptr ds8_s1e9E -> let !tpl_s1ejl = x3_s1e9z, !wild3_s1ejk = ffi_wrapper3 jsToString ds8_s1e9E GHC.Prim.realWorld# in select wild3_s1ejk (<{GHC.Tuple.(,)}> ds9_s1ehU ds10_s1e9N -> select inp_s1e3O (GHC.Ptr.Ptr ds12_s1e9O -> Gui.Generic.Instances.ID.$w$ctoInput$52 ds10_s1e9N ds12_s1e9O))))) (Data.Maybe.Just a12_s1e9Z -> let !ds7_s1ejr = w2_s1e85 a12_s1e9Z in select ds7_s1ejr (GHC.Ptr.Ptr ds8_s1ea6 -> select inp_s1e3O (GHC.Ptr.Ptr ds10_s1ea7 -> Gui.Generic.Instances.ID.$w$ctoInput$53 ds10_s1ea7 ds8_s1ea6)))
Gui.Generic.Instances.ID.$w$ctoInput$52 ds10_s1e9N ds12_s1e9O ds13_s1e9P = let !wild4_s1eji = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds10_s1e9N ds12_s1e9O ds13_s1e9P in select wild4_s1eji (<{GHC.Tuple.(,)}> ds14_s1e9U ds15_s1e9V -> <{GHC.Tuple.(,)}> ds14_s1e9U (GHC.Ptr.Ptr ds15_s1e9V))
Gui.Generic.Instances.ID.$w$ctoInput$53 ds10_s1ea7 ds8_s1ea6 ds11_s1ea8 = let !wild3_s1ejp = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds8_s1ea6 ds10_s1ea7 ds11_s1ea8 in select wild3_s1ejp (<{GHC.Tuple.(,)}> ds12_s1ead ds13_s1eae -> <{GHC.Tuple.(,)}> ds12_s1ead (GHC.Ptr.Ptr ds13_s1eae))
Gui.Generic.Instances.ID.$w$ctoInput$18 ds7_s1ear = select ds7_s1ear (<{GHC.Tuple.(,)}> a12_s1ehY <{s'1_s1eav}> -> <{s'1_s1eav}>)
Gui.Generic.Instances.ID.$w$ctoInput$19 ds6_s1e92 = select ds6_s1e92 (<{GHC.Tuple.(,)}> a11_s1ei2 <{s'1_s1e96}> -> <{s'1_s1e96}>)
Gui.Generic.Instances.ID.$w$ctoInput$20 ds6_s1e8R = select ds6_s1e8R (<{GHC.Tuple.(,)}> a11_s1ei3 <{s'1_s1e8V}> -> <{s'1_s1e8V}>)
Gui.Generic.Instances.ID.$w$ctoInput$21 ds6_s1e8G = select ds6_s1e8G (<{GHC.Tuple.(,)}> a11_s1ei4 <{s'1_s1e8K}> -> <{s'1_s1e8K}>)
Gui.Generic.Instances.ID.$w$ctoInput$22 ia_s1e5I = select ia_s1e5I (Data.ID.ID ww1_s1e6L -> Data.ID.$w$cshowsPrec 0 ww1_s1e6L <{GHC.Types.[]}>)
Gui.Generic.Instances.ID.$w$ctoInput$23 ds5_s1e6j inp_s1e3O = select Javascript.JQuery.Events.click_evt (GHC.Ptr.Ptr ds7_s1e6s -> let !wild2_s1eiL = ffi_wrapper3 makeCallback ds5_s1e6j GHC.Prim.realWorld# in select wild2_s1eiL (<{GHC.Tuple.(,)}> ds8_s1ei6 ds9_s1e6t -> select inp_s1e3O (GHC.Ptr.Ptr ds11_s1e6u -> Gui.Generic.Instances.ID.$w$ctoInput$54 ds11_s1e6u ds7_s1e6s ds9_s1e6t)))
Gui.Generic.Instances.ID.$w$ctoInput$54 ds11_s1e6u ds7_s1e6s ds9_s1e6t ds12_s1e6v = let !wild3_s1eiJ = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds7_s1e6s ds9_s1e6t ds11_s1e6u ds12_s1e6v in select wild3_s1eiJ (<{GHC.Tuple.(,)}> ds13_s1e6A ds14_s1e6B -> <{GHC.Tuple.(,)}> ds13_s1e6A (GHC.Ptr.Ptr ds14_s1e6B))
Gui.Generic.Instances.ID.$w$ctoInput$10 ds3_s1e4R = select ds3_s1e4R (<{GHC.Tuple.(,)}> a8_s1ei8 <{s'_s1e5l}> -> <{s'_s1e5l}>)
Gui.Generic.Instances.ID.$w$ctoInput$11 ds3_s1e4R = select ds3_s1e4R (<{GHC.Tuple.(,)}> a8_s1e4V <{s'_s1egZ}> -> a8_s1e4V)
Gui.Generic.Instances.ID.$w$ctoInput$12 ds3_s1e4R = select ds3_s1e4R (<{GHC.Tuple.(,)}> a8_s1e5a <{s'_s1egY}> -> a8_s1e5a)
Gui.Generic.Instances.ID.$w$ctoInput$13 ds2_s1e3V = select ds2_s1e3V (<{GHC.Tuple.(,)}> a7_s1eie <{s'_s1e3Z}> -> <{s'_s1e3Z}>)
Gui.Generic.Instances.ID.$w$ctoInput$14 ipv3_s1e3d = select ipv3_s1e3d (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a5_s1e3g -> select a5_s1e3g (<{GHC.Tuple.(,)}> x3_s1e3k ds3_s1efW -> x3_s1e3k))
Gui.Generic.Instances.ID.$w$ctoInput$1 $dTypeable_s1e2e ds4_s1ech ia_s1eb6 inp_s1e3O ipv1_s1ebJ lvl14_s1e2I lvl19_s1e2U lvl20_s1e2W lvl21_s1e2Y ref_s1e4E s_s1e3x w2_s1e85 w_s1e7j ipv2_s1ebY = let !x3_s1ebL = GHC.CString.unpackAppendCString# "value:" (GHC.Show.$fShowMaybe_$cshowsPrec w_s1e7j GHC.Show.shows26 ipv1_s1ebJ <{GHC.Types.[]}>), !ds6_s1ejR = Javascript.Base.Types.FakePtr x3_s1ebL in select ds6_s1ejR (GHC.Ptr.Ptr ds7_s1ebR -> let !tpl_s1ejQ = x3_s1ebL, !wild1_s1ejP = ffi_wrapper3 jsToString ds7_s1ebR GHC.Prim.realWorld# in select wild1_s1ejP (<{GHC.Tuple.(,)}> ds8_s1ehk ds9_s1ebX -> let !wild2_s1ejO = ffi_wrapper3 _Javascript_Utils_dump_ ds9_s1ebX ipv2_s1ebY in select wild2_s1ejO (<{GHC.Tuple.()}> ds10_s1ec9 -> select Javascript.JQuery.Events.noclick1 (GHC.Ptr.Ptr ds12_s1ec7 -> select inp_s1e3O (GHC.Ptr.Ptr ds14_s1ec8 -> let !wild3_s1ejL = ffi_wrapper4 _Javascript_JQuery_Events_off_ ds12_s1ec7 ds14_s1ec8 ds10_s1ec9 in select wild3_s1ejL (<{GHC.Tuple.(,)}> ds15_s1ecp ds16_s1ehl -> select Javascript.JQuery.Events.click_evt (GHC.Ptr.Ptr ds18_s1ecn -> let !wild4_s1ejJ = ffi_wrapper3 makeCallback ds4_s1ech GHC.Prim.realWorld# in select wild4_s1ejJ (<{GHC.Tuple.(,)}> ds19_s1ehm ds20_s1eco -> let !wild5_s1ejI = ffi_wrapper5 _Javascript_JQuery_Events_on_ ds18_s1ecn ds20_s1eco ds14_s1ec8 ds15_s1ecp in select wild5_s1ejI (<{GHC.Tuple.(,)}> ds21_s1eee ds22_s1ehn -> let !ds23_s1ekg = lvl20_s1e2W $dTypeable_s1e2e s_s1e3x ia_s1eb6 (Gui.Generic.Instances.ID.$w$ctoInput$55 $dTypeable_s1e2e ds14_s1ec8 ia_s1eb6 lvl14_s1e2I lvl19_s1e2U w2_s1e85 w_s1e7j (GHC.CString.unpackAppendCString# "setting title:" (Gui.Generic.Instances.ID.$w$ctoInput$24 ia_s1eb6))) ds21_s1eee in select ds23_s1ekg (<{GHC.Tuple.(,)}> ipv3_s1eel ipv4_s1eer -> select ref_s1e4E (GHC.STRef.STRef var#_s1eek -> let !ds24_s1eke = readMutVar# var#_s1eek ipv3_s1eel in select ds24_s1eke (<{GHC.Tuple.(,)}> ipv5_s1eet ipv6_s1eep -> select ipv6_s1eep (Data.Maybe.Nothing  -> let !s2#_s1eev = writeMutVar# var#_s1eek (Data.Maybe.Just ipv4_s1eer) ipv5_s1eet in <{GHC.Tuple.(,)}> s2#_s1eev <{GHC.Tuple.()}>) (Data.Maybe.Just x5_s1eex -> let !ds25_s1ekh = lvl21_s1e2Y s_s1e3x x5_s1eex ipv5_s1eet in select ds25_s1ekh (<{GHC.Tuple.(,)}> ipv7_s1eeC ipv8_s1ehh -> let !s2#_s1eeE = writeMutVar# var#_s1eek (Data.Maybe.Just ipv4_s1eer) ipv7_s1eeC in <{GHC.Tuple.(,)}> s2#_s1eeE <{GHC.Tuple.()}>))))))))))))))
Gui.Generic.Instances.ID.$w$ctoInput$55 $dTypeable_s1e2e ds14_s1ec8 ia_s1eb6 lvl14_s1e2I lvl19_s1e2U w2_s1e85 w_s1e7j x4_s1ecA s3_s1ecV s4_s1ee7 = let !ds23_s1ekc = Javascript.Base.Types.FakePtr (Gui.Generic.Instances.ID.$w$ctoInput$56 $dTypeable_s1e2e ds14_s1ec8 ia_s1eb6 lvl14_s1e2I lvl19_s1e2U s3_s1ecV w2_s1e85 w_s1e7j x4_s1ecA) in select ds23_s1ekc (GHC.Ptr.Ptr ds24_s1ee0 -> let !wild6_s1ekb = ffi_wrapper3 makeCallback ds24_s1ee0 GHC.Prim.realWorld# in select wild6_s1ekb (<{GHC.Tuple.(,)}> ds25_s1ehc ds26_s1ee6 -> let !wild7_s1eka = ffi_wrapper4 _Javascript_Time_setTimeout_ 0 ds26_s1ee6 s4_s1ee7 in select wild7_s1eka (<{GHC.Tuple.(,)}> ds27_s1eec ds28_s1ehd -> <{GHC.Tuple.(,)}> ds27_s1eec <{GHC.Tuple.()}>)))
Gui.Generic.Instances.ID.$w$ctoInput$56 $dTypeable_s1e2e ds14_s1ec8 ia_s1eb6 lvl14_s1e2I lvl19_s1e2U s3_s1ecV w2_s1e85 w_s1e7j x4_s1ecA s5_s1ecR = select (Javascript.Base.Types.FakePtr x4_s1ecA) (GHC.Ptr.Ptr ds24_s1ecK -> let !tpl1_s1ejW = x4_s1ecA, !wild6_s1ejV = ffi_wrapper3 jsToString ds24_s1ecK GHC.Prim.realWorld# in select wild6_s1ejV (<{GHC.Tuple.(,)}> ds25_s1ehi ds26_s1ecQ -> let !wild7_s1ejU = ffi_wrapper3 _Javascript_Utils_dump_ ds26_s1ecQ s5_s1ecR in select wild7_s1ejU (<{GHC.Tuple.()}> ds27_s1ecW -> let !ds28_s1ejT = lvl19_s1e2U s3_s1ecV ds27_s1ecW in select ds28_s1ejT (<{GHC.Tuple.(,)}> ipv3_s1ed0 ipv4_s1ehj -> let !ds29_s1ejS = lvl14_s1e2I $dTypeable_s1e2e s3_s1ecV ia_s1eb6 ipv3_s1ed0 in select ds29_s1ejS (<{GHC.Tuple.(,)}> ipv5_s1edk ipv6_s1ed5 -> let !x5_s1ed7 = GHC.CString.unpackAppendCString# "value:" (GHC.Show.$fShowMaybe_$cshowsPrec w_s1e7j GHC.Show.shows26 ipv6_s1ed5 <{GHC.Types.[]}>), !ds30_s1ek7 = Javascript.Base.Types.FakePtr x5_s1ed7 in select ds30_s1ek7 (GHC.Ptr.Ptr ds31_s1edd -> let !tpl2_s1ek6 = x5_s1ed7, !wild8_s1ek5 = ffi_wrapper3 jsToString ds31_s1edd GHC.Prim.realWorld# in select wild8_s1ek5 (<{GHC.Tuple.(,)}> ds32_s1eh7 ds33_s1edj -> let !wild9_s1ek4 = ffi_wrapper3 _Javascript_Utils_dump_ ds33_s1edj ipv5_s1edk in select wild9_s1ek4 (<{GHC.Tuple.()}> ds34_s1edF -> select ipv6_s1ed5 (Data.Maybe.Nothing  -> select ia_s1eb6 (Data.ID.ID ww1_s1eds -> let !x6_s1edt = Data.ID.$w$cshowsPrec 0 ww1_s1eds <{GHC.Types.[]}>, !ds35_s1ek1 = Javascript.Base.Types.FakePtr x6_s1edt in select ds35_s1ek1 (GHC.Ptr.Ptr ds36_s1edy -> let !tpl3_s1ek0 = x6_s1edt, !wild11_s1ejZ = ffi_wrapper3 jsToString ds36_s1edy GHC.Prim.realWorld# in select wild11_s1ejZ (<{GHC.Tuple.(,)}> ds37_s1eh9 ds38_s1edE -> let !wild12_s1ejY = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds38_s1edE ds14_s1ec8 ds34_s1edF in select wild12_s1ejY (<{GHC.Tuple.(,)}> ds39_s1edK ds40_s1eha -> <{GHC.Tuple.(,)}> ds39_s1edK <{GHC.Tuple.()}>))))) (Data.Maybe.Just a8_s1edM -> let !ds35_s1ek9 = w2_s1e85 a8_s1edM in select ds35_s1ek9 (GHC.Ptr.Ptr ds36_s1edQ -> let !wild11_s1ek8 = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds36_s1edQ ds14_s1ec8 ds34_s1edF in select wild11_s1ek8 (<{GHC.Tuple.(,)}> ds37_s1edV ds38_s1eh8 -> <{GHC.Tuple.(,)}> ds37_s1edV <{GHC.Tuple.()}>)))))))))))
Gui.Generic.Instances.ID.$w$ctoInput$24 ia_s1eb6 = select ia_s1eb6 (Data.ID.ID ww1_s1ecx -> Data.ID.$w$cshowsPrec 0 ww1_s1ecx <{GHC.Types.[]}>)
Gui.Generic.Instances.ID.$fToInputsID_$ctoInput w_s1eg9 w1_s1ega w2_s1egb w3_s1egc w4_s1egg w5_s1egd w6_s1ege w7_s1egh w8_s1egf = Gui.Generic.Instances.ID.$w$ctoInput w_s1eg9 w1_s1ega w2_s1egb w3_s1egc w5_s1egd w6_s1ege w8_s1egf
Gui.Generic.Instances.ID.$fToInputsID eta_B8_B8 eta_B7_B7 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = Gui.Generic.Instances.ID.$fToInputsID_$ctoInput eta_B8_B8 eta_B7_B7 eta_B6_B6 eta_B5_B5 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1