Gui.Generic.Instances.Basic.$fToInputsDouble2 ds1_s14y6 = select ds1_s14y6 (Data.Either.Left x_s14CR -> Data.Maybe.Nothing) (Data.Either.Right y_s14ya -> Data.Maybe.Just y_s14ya) Gui.Generic.Instances.Basic.$fToInputsDouble1 =: FRP.Fursuit.Signal.Pure Gui.Generic.Instances.Basic.$fToInputsDouble2 Gui.Generic.Instances.Basic.$wnumInput ww_s14yg ww1_s14yV w_s14yq w1_s14yv w2_s14yS = select ww_s14yg (<{GHC.Base.D:Monad}> ww2_s14yY ww3_s14zJ ww4_s14zO ww5_s14Db -> ww2_s14yY (ww1_s14yV (Gui.Generic.Instances.Basic.$wnumInput$4 (Gui.Generic.Instances.Basic.$wnumInput$3 (GHC.Show.show w1_s14yv)) w2_s14yS)) (Gui.Generic.Instances.Basic.$wnumInput$2 (Gui.Generic.Instances.Basic.$wnumInput$1 w_s14yq) ww1_s14yV ww3_s14zJ ww4_s14zO)) Gui.Generic.Instances.Basic.$wnumInput$1 w_s14yq x_s14yo = w_s14yq (Javascript.Base.String.jsFromString x_s14yo) Gui.Generic.Instances.Basic.$wnumInput$2 lvl_s14yr ww1_s14yV ww3_s14zJ ww4_s14zO ds_s14z2 = select ds_s14z2 (<{GHC.Tuple.(,)}> inp_s14zb sig_s14z7 -> let esig_s14z8 = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure lvl_s14yr) sig_s14z7 in ww3_s14zJ (ww1_s14yV (Gui.Generic.Instances.Basic.$wnumInput$6 (Gui.Generic.Instances.Basic.$wnumInput$5 inp_s14zb) esig_s14z8 inp_s14zb)) (ww4_s14zO (Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Instances.Basic.$fToInputsDouble1 esig_s14z8) (<{GHC.Types.:}> inp_s14zb <{GHC.Types.[]}>)))) Gui.Generic.Instances.Basic.$wnumInput$5 inp_s14zb s_s14zf = select inp_s14zb (GHC.Ptr.Ptr ww6_s14ze -> let !ds1_s14De = Gui.Utils.$wa ww6_s14ze s_s14zf in select ds1_s14De (<{GHC.Tuple.(,)}> ipv_s14zj ipv1_s14D6 -> <{GHC.Tuple.(,)}> ipv_s14zj <{GHC.Tuple.()}>)) Gui.Generic.Instances.Basic.$wnumInput$6 a1_s14zk esig_s14z8 inp_s14zb s_s14zD = let !ds1_s14Dj = FRP.Fursuit.Signal.removableSink1 (Gui.Generic.Instances.Basic.$wnumInput$7 a1_s14zk inp_s14zb) esig_s14z8 s_s14zD in select ds1_s14Dj (<{GHC.Tuple.(,)}> ipv_s14zH ipv1_s14D1 -> <{GHC.Tuple.(,)}> ipv_s14zH <{GHC.Tuple.()}>) Gui.Generic.Instances.Basic.$wnumInput$7 a1_s14zk inp_s14zb v_s14zn = select v_s14zn (Data.Either.Left m_s14zt -> Gui.Generic.Instances.Basic.$wnumInput$8 inp_s14zb m_s14zt) (Data.Either.Right ds1_s14D2 -> a1_s14zk) Gui.Generic.Instances.Basic.$wnumInput$8 inp_s14zb m_s14zt s1_s14zv = select inp_s14zb (GHC.Ptr.Ptr ww6_s14zu -> let !ds1_s14Dg = Gui.Utils.$wa1 m_s14zt ww6_s14zu s1_s14zv in select ds1_s14Dg (<{GHC.Tuple.(,)}> ipv_s14zz ipv1_s14D3 -> <{GHC.Tuple.(,)}> ipv_s14zz <{GHC.Tuple.()}>)) Gui.Generic.Instances.Basic.$wnumInput$3 g_s14yw ds1_s14yy = select ds1_s14yy (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a1_s14yC -> Data.Maybe.Just (Gui.Generic.Instances.Basic.$wnumInput$21 a1_s14yC g_s14yw)) Gui.Generic.Instances.Basic.$wnumInput$21 a1_s14yC g_s14yw = let !x_s14yD = g_s14yw a1_s14yC, !ds_s14Dn = Javascript.Base.Types.FakePtr x_s14yD in select ds_s14Dn (GHC.Ptr.Ptr ds2_s14yI -> let !tpl_s14Dm = x_s14yD, !wild1_s14Dl = ffi_wrapper3 jsToString ds2_s14yI GHC.Prim.realWorld# in select wild1_s14Dl (<{GHC.Tuple.(,)}> ds3_s14D8 ds4_s14yN -> GHC.Ptr.Ptr ds4_s14yN)) Gui.Generic.Instances.Basic.$wnumInput$4 sat_s14yQ_s14yQ w2_s14yS eta_B1_B1 = Gui.FRP.Text.text2 Gui.Base.Text.text1 (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure sat_s14yQ_s14yQ) w2_s14yS) eta_B1_B1 Gui.Generic.Instances.Basic.numInput w_s14zZ w1_s14A5 w2_s14A6 w3_s14A7 = select w_s14zZ (<{Control.Monad.IO.Class.D:MonadIO}> ww_s14A3 ww1_s14A4 -> Gui.Generic.Instances.Basic.$wnumInput ww_s14A3 ww1_s14A4 w1_s14A5 w2_s14A6 w3_s14A7) Gui.Generic.Instances.Basic.$fToInputsPtr1 =: FRP.Fursuit.Signal.Pure Data.Maybe.Just Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput $dMonadIO_s14Ab eta_s14Ac = let $dMonad_s14Ah = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14Ab in Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$10 (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14Ab (Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$11 eta_s14Ac)) (Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$9 (GHC.Base.return $dMonad_s14Ah)) (<{GHC.Base.>>=}> $dMonad_s14Ah) Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$9 lvl_s14Aj ds_s14Am = select ds_s14Am (<{GHC.Tuple.(,)}> a5_s14Aq <{s'_s14AB}> -> select a5_s14Aq (<{GHC.Tuple.(,)}> inp_s14Aw sig_s14Au -> lvl_s14Aj (<{GHC.Tuple.(,)}> (Gui.Generic.Types.Input (FRP.Fursuit.Signal.App Gui.Generic.Instances.Basic.$fToInputsPtr1 sig_s14Au) (<{GHC.Types.:}> inp_s14Aw <{GHC.Types.[]}>)) <{s'_s14AB}>))) Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$10 a_s14Af lvl1_s14AE lvl2_s14AG eta1_s14AI = lvl2_s14AG (a_s14Af eta1_s14AI) lvl1_s14AE Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput$11 eta_s14Ac eta_B1_B1 = Gui.FRP.Text.text2 Gui.Base.Text.text1 eta_s14Ac eta_B1_B1 Gui.Generic.Instances.Basic.$fToInputsPtr =: Gui.Generic.Instances.Basic.$fToInputsPtr_$ctoInput <{Gui.Generic.Instances.Basic.$fToInputs[]3}> ds1_s14AN = select ds1_s14AN (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a_s14AQ -> Data.Maybe.Just (Javascript.Base.String.$fIsStringPtr_$ctoJSString a_s14AQ)) <{Gui.Generic.Instances.Basic.$fToInputs[]2}> =: FRP.Fursuit.Signal.Pure <{Gui.Generic.Instances.Basic.$fToInputs[]3}> <{Gui.Generic.Instances.Basic.$fToInputs[]1}> =: FRP.Fursuit.Signal.Pure <{Javascript.Base.String.$fFromJSString[]_$cfromJSString}> <{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput}> $dMonadIO_s14AV eta_s14AW = let $dMonad_s14B3 = Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14AV in <{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput$13}> (Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14AV (<{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput$14}> eta_s14AW)) (<{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput$12}> (GHC.Base.return $dMonad_s14B3)) (<{GHC.Base.>>=}> $dMonad_s14B3) <{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput$12}> lvl_s14B5 ds_s14B8 = select ds_s14B8 (<{GHC.Tuple.(,)}> a5_s14Bc <{s'_s14Bn}> -> select a5_s14Bc (<{GHC.Tuple.(,)}> inp_s14Bi sig_s14Bg -> lvl_s14B5 (<{GHC.Tuple.(,)}> (Gui.Generic.Types.Input (FRP.Fursuit.Signal.App <{Gui.Generic.Instances.Basic.$fToInputs[]1}> sig_s14Bg) (<{GHC.Types.:}> inp_s14Bi <{GHC.Types.[]}>)) <{s'_s14Bn}>))) <{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput$13}> a_s14B1 lvl1_s14Bq lvl2_s14Bs eta1_s14Bu = lvl2_s14Bs (a_s14B1 eta1_s14Bu) lvl1_s14Bq <{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput$14}> eta_s14AW eta_B1_B1 = Gui.FRP.Text.text2 Gui.Base.Text.text1 (FRP.Fursuit.Signal.App <{Gui.Generic.Instances.Basic.$fToInputs[]2}> eta_s14AW) eta_B1_B1 <{Gui.Generic.Instances.Basic.$fToInputs[]}> =: <{Gui.Generic.Instances.Basic.$fToInputs[]_$ctoInput}> Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput $dMonadIO_s14BA = Gui.Generic.Instances.Basic.$wnumInput (Control.Monad.Trans.State.Lazy.$fMonadStateT (Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14BA)) (Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput$15 $dMonadIO_s14BA) Gui.Generic.ConvNum.$fConvNumInt_$cconvNum GHC.Show.$fShowInt Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput$15 $dMonadIO_s14BA w_s14BG = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14BA w_s14BG Gui.Generic.Instances.Basic.$fToInputsInt =: Gui.Generic.Instances.Basic.$fToInputsInt_$ctoInput Gui.Generic.Instances.Basic.$fToInputsInteger_$ctoInput $dMonadIO_s14BM = Gui.Generic.Instances.Basic.$wnumInput (Control.Monad.Trans.State.Lazy.$fMonadStateT (Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14BM)) (Gui.Generic.Instances.Basic.$fToInputsInteger_$ctoInput$16 $dMonadIO_s14BM) Gui.Generic.ConvNum.$fConvNumInteger_$cconvNum GHC.Show.$fShowInteger Gui.Generic.Instances.Basic.$fToInputsInteger_$ctoInput$16 $dMonadIO_s14BM w_s14BS = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14BM w_s14BS Gui.Generic.Instances.Basic.$fToInputsInteger =: Gui.Generic.Instances.Basic.$fToInputsInteger_$ctoInput Gui.Generic.Instances.Basic.$fToInputsInt64_$ctoInput $dMonadIO_s14BY = Gui.Generic.Instances.Basic.$wnumInput (Control.Monad.Trans.State.Lazy.$fMonadStateT (Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14BY)) (Gui.Generic.Instances.Basic.$fToInputsInt64_$ctoInput$17 $dMonadIO_s14BY) Gui.Generic.ConvNum.$fConvNumInt64_$cconvNum GHC.Int.$fShowInt64 Gui.Generic.Instances.Basic.$fToInputsInt64_$ctoInput$17 $dMonadIO_s14BY w_s14C4 = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14BY w_s14C4 Gui.Generic.Instances.Basic.$fToInputsInt64 =: Gui.Generic.Instances.Basic.$fToInputsInt64_$ctoInput Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput $dMonadIO_s14Ca = Gui.Generic.Instances.Basic.$wnumInput (Control.Monad.Trans.State.Lazy.$fMonadStateT (Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14Ca)) (Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput$18 $dMonadIO_s14Ca) Gui.Generic.ConvNum.$fConvNumDouble_$cconvNum GHC.Float.$fShowDouble Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput$18 $dMonadIO_s14Ca w_s14Cg = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14Ca w_s14Cg Gui.Generic.Instances.Basic.$fToInputsDouble =: Gui.Generic.Instances.Basic.$fToInputsDouble_$ctoInput Gui.Generic.Instances.Basic.$fToInputsFloat_$ctoInput $dMonadIO_s14Cm = Gui.Generic.Instances.Basic.$wnumInput (Control.Monad.Trans.State.Lazy.$fMonadStateT (Control.Monad.IO.Class.$p1MonadIO $dMonadIO_s14Cm)) (Gui.Generic.Instances.Basic.$fToInputsFloat_$ctoInput$19 $dMonadIO_s14Cm) Gui.Generic.ConvNum.$fConvNumFloat_$cconvNum GHC.Float.$fShowFloat Gui.Generic.Instances.Basic.$fToInputsFloat_$ctoInput$19 $dMonadIO_s14Cm w_s14Cs = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14Cm w_s14Cs Gui.Generic.Instances.Basic.$fToInputsFloat =: Gui.Generic.Instances.Basic.$fToInputsFloat_$ctoInput Gui.Generic.Instances.Basic.$fToInputsBool1 $dMonadIO_s14Cy sigIn_s14CA = Control.Monad.Trans.State.Lazy.$w$cliftIO $dMonadIO_s14Cy (Gui.Generic.Instances.Basic.$fToInputsBool1$20 sigIn_s14CA) Gui.Generic.Instances.Basic.$fToInputsBool1$20 sigIn_s14CA s_s14CB = let !ds1_s14DZ = Gui.FRP.Checkbox.checkbox1 sigIn_s14CA s_s14CB in select ds1_s14DZ (<{GHC.Tuple.(,)}> ipv_s14CJ ipv1_s14CF -> select ipv1_s14CF (<{GHC.Tuple.(,)}> inp_s14CL sig_s14CK -> <{GHC.Tuple.(,)}> ipv_s14CJ (Gui.Generic.Types.Input sig_s14CK (<{GHC.Types.:}> inp_s14CL <{GHC.Types.[]}>)))) Gui.Generic.Instances.Basic.$fToInputsBool_$ctoInput eta_B2_B2 eta_B1_B1 = Gui.Generic.Instances.Basic.$fToInputsBool1 eta_B2_B2 eta_B1_B1 Gui.Generic.Instances.Basic.$fToInputsBool =: Gui.Generic.Instances.Basic.$fToInputsBool1