Gui.FRP.Text.plainText1 sigIn_sPJD eta_sPJE = let !ds1_sPMS = FRP.Fursuit.Signal.compile1 sigIn_sPJD eta_sPJE in select ds1_sPMS (<{GHC.Tuple.(,)}> ipv_sPJI ipv1_sPJJ -> let !ds2_sPMR = ipv1_sPJJ ipv_sPJI in select ds2_sPMR (<{GHC.Tuple.(,)}> ipv2_sPJZ ipv3_sPJN -> let !ds3_sPN0 = Gui.Base.Text.plainText1 (Gui.FRP.Text.plainText1$1 ipv3_sPJN) ipv2_sPJZ in select ds3_sPN0 (<{GHC.Tuple.(,)}> ipv4_sPKA ipv5_sPK9 -> let !ds_sPN4 = FRP.Fursuit.Signal.removableSink1 (Gui.FRP.Text.plainText1$4 ipv5_sPK9) sigIn_sPJD ipv4_sPKA in select ds_sPN4 (<{GHC.Tuple.(,)}> ipv6_sPKE ipv7_sPMM -> <{GHC.Tuple.(,)}> ipv6_sPKE ipv5_sPK9))))
Gui.FRP.Text.plainText1$4 ipv5_sPK9 x_sPK5 s_sPKf = select x_sPK5 (Data.Maybe.Nothing  -> select Javascript.Base.String.$fDefaultPtr_$cmempty (GHC.Ptr.Ptr ds5_sPKd -> select ipv5_sPK9 (GHC.Ptr.Ptr ds7_sPKe -> let !wild1_sPMW = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds5_sPKd ds7_sPKe s_sPKf in select wild1_sPMW (<{GHC.Tuple.(,)}> ds8_sPKk ds9_sPMP -> <{GHC.Tuple.(,)}> ds8_sPKk <{GHC.Tuple.()}>)))) (Data.Maybe.Just v_sPKm -> select v_sPKm (GHC.Ptr.Ptr ds5_sPKs -> select ipv5_sPK9 (GHC.Ptr.Ptr ds7_sPKt -> let !wild1_sPN1 = ffi_wrapper4 _Javascript_JQuery_Basic_setText ds5_sPKs ds7_sPKt s_sPKf in select wild1_sPN1 (<{GHC.Tuple.(,)}> ds8_sPKy ds9_sPMO -> <{GHC.Tuple.(,)}> ds8_sPKy <{GHC.Tuple.()}>))))
Gui.FRP.Text.plainText1$1 ipv3_sPJN = select ipv3_sPJN (Data.Maybe.Nothing  -> Javascript.Base.String.$fDefaultPtr_$cmempty) (Data.Maybe.Just a_sPJQ -> select a_sPJQ (<{GHC.Tuple.(,)}> x_sPJU ds3_sPMU -> select x_sPJU (Data.Maybe.Nothing  -> Javascript.Base.String.$fDefaultPtr_$cmempty) (Data.Maybe.Just v_sPJX -> v_sPJX)))
Gui.FRP.Text.plainText eta_B2_B2 eta_B1_B1 = Gui.FRP.Text.plainText1 eta_B2_B2 eta_B1_B1
Gui.FRP.Text.text2 inpf_sPLE sigIn_sPKI eta_sPKJ = let !ds1_sPNj = FRP.Fursuit.Signal.compile1 sigIn_sPKI eta_sPKJ in select ds1_sPNj (<{GHC.Tuple.(,)}> ipv_sPKN ipv1_sPKO -> let !ds2_sPNi = ipv1_sPKO ipv_sPKN in select ds2_sPNi (<{GHC.Tuple.(,)}> ipv2_sPL7 ipv3_sPKT -> let !ma_sPL1 = Gui.FRP.Text.text2$2 ipv3_sPKT, !initially1_sPLo = Gui.FRP.Text.text2$3 ma_sPL1 in select initially1_sPLo (GHC.Ptr.Ptr ipv4_sPNh -> let !ds3_sPNg = FRP.Fursuit.Pipe.emptyPipe1 ipv2_sPL7 in select ds3_sPNg (<{GHC.Tuple.(,)}> ipv5_sPLq ipv6_sPLb -> select ipv6_sPLb (<{GHC.Tuple.(,)}> ds_sPLf ds4_sPMI -> select ds_sPLf (FRP.Fursuit.Signal.P ref_sPLk ds5_sPLu ds6_sPLx -> select ref_sPLk (GHC.STRef.STRef var#_sPLn -> let !s2#_sPLG = writeMutVar# var#_sPLn (Data.Maybe.Just initially1_sPLo) ipv5_sPLq, !ds7_sPNq = inpf_sPLE ma_sPL1 (Gui.FRP.Text.text2$5 ds5_sPLu ds6_sPLx var#_sPLn) s2#_sPLG in select ds7_sPNq (<{GHC.Tuple.(,)}> ipv7_sPMD ipv8_sPLO -> let !ds8_sPNy = FRP.Fursuit.Signal.removableSink1 (Gui.FRP.Text.text2$6 ds5_sPLu ds6_sPLx ipv8_sPLO var#_sPLn) sigIn_sPKI ipv7_sPMD in select ds8_sPNy (<{GHC.Tuple.(,)}> ipv9_sPMH ipv10_sPN8 -> <{GHC.Tuple.(,)}> ipv9_sPMH (<{GHC.Tuple.(,)}> ipv8_sPLO ds4_sPMI))))))))))
Gui.FRP.Text.text2$5 ds5_sPLu ds6_sPLx var#_sPLn w1_sPLC w2_sPLD = select ds5_sPLu (GHC.STRef.STRef ww6_sPLA -> select ds6_sPLx (GHC.STRef.STRef ww8_sPLB -> FRP.Fursuit.Pipe.$wa1 var#_sPLn ww6_sPLA ww8_sPLB w1_sPLC w2_sPLD))
Gui.FRP.Text.text2$6 ds5_sPLu ds6_sPLx ipv8_sPLO var#_sPLn x_sPM2 s_sPLU = select Javascript.JQuery.Basic.hasFocus1 (GHC.Ptr.Ptr ds9_sPLS -> select ipv8_sPLO (GHC.Ptr.Ptr ds11_sPLT -> let !wild3_sPNn = ffi_wrapper4 _Javascript_JQuery_Basic_isText ds9_sPLS ds11_sPLT s_sPLU in select wild3_sPNn (<{GHC.Tuple.(,)}> ds12_sPM1 ds13_sPLZ -> select ds13_sPLZ (_ -> <{GHC.Tuple.(,)}> ds12_sPM1 <{GHC.Tuple.()}>) (0 -> select x_sPM2 (Data.Maybe.Nothing  -> select Javascript.Base.String.$fDefaultPtr_$cmempty (GHC.Ptr.Ptr ds15_sPM7 -> let !wild6_sPNt = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds15_sPM7 ds11_sPLT ds12_sPM1 in select wild6_sPNt (<{GHC.Tuple.(,)}> ds16_sPMj ds17_sPNb -> select ds5_sPLu (GHC.STRef.STRef ww6_sPMg -> select ds6_sPLx (GHC.STRef.STRef ww8_sPMh -> FRP.Fursuit.Pipe.$wa1 var#_sPLn ww6_sPMg ww8_sPMh Javascript.Base.String.$fDefaultPtr_$cmempty ds16_sPMj))))) (Data.Maybe.Just v_sPMl -> select v_sPMl (GHC.Ptr.Ptr ds15_sPMp -> let !wild6_sPNx = ffi_wrapper4 _Javascript_JQuery_Basic_jq_setVal ds15_sPMp ds11_sPLT ds12_sPM1 in select wild6_sPNx (<{GHC.Tuple.(,)}> ds16_sPMB ds17_sPNa -> select ds5_sPLu (GHC.STRef.STRef ww6_sPMy -> select ds6_sPLx (GHC.STRef.STRef ww8_sPMz -> FRP.Fursuit.Pipe.$wa1 var#_sPLn ww6_sPMy ww8_sPMz v_sPMl ds16_sPMB)))))))))
Gui.FRP.Text.text2$2 ipv3_sPKT = select ipv3_sPKT (Data.Maybe.Nothing  -> Data.Maybe.Nothing) (Data.Maybe.Just a_sPKW -> select a_sPKW (<{GHC.Tuple.(,)}> x_sPL0 ds3_sPNB -> x_sPL0))
Gui.FRP.Text.text2$3 ma_sPL1 = select ma_sPL1 (Data.Maybe.Nothing  -> Javascript.Base.String.$fDefaultPtr_$cmempty) (Data.Maybe.Just v_sPL4 -> v_sPL4)
Gui.FRP.Text.text1 eta_B2_B2 eta_B1_B1 = Gui.FRP.Text.text2 Gui.Base.Text.text1 eta_B2_B2 eta_B1_B1
Gui.FRP.Text.text =: Gui.FRP.Text.text1
Gui.FRP.Text.textarea1 eta_B2_B2 eta_B1_B1 = Gui.FRP.Text.text2 Gui.Base.Text.textarea1 eta_B2_B2 eta_B1_B1
Gui.FRP.Text.textarea =: Gui.FRP.Text.textarea1