:: FRP.Fursuit.Signal.Signal = FRP.Fursuit.Signal.App a1 a2 | FRP.Fursuit.Signal.Pure a1 | FRP.Fursuit.Signal.Pipe a1 a2 a3 | FRP.Fursuit.Signal.Filter a1 a2 | FRP.Fursuit.Signal.Accum a1 a2 | FRP.Fursuit.Signal.New a1 | FRP.Fursuit.Signal.Union a1 a2 :: FRP.Fursuit.Signal.Pipe = FRP.Fursuit.Signal.P a1 a2 a3 FRP.Fursuit.Signal.sourceOrigins ds_s2I6 = select ds_s2I6 (FRP.Fursuit.Signal.App f_s2Ia x_s2Ic -> let !sat_s2S8_s2S8 = FRP.Fursuit.Signal.sourceOrigins f_s2Ia in <{GHC.Base.++}> sat_s2S8_s2S8 (FRP.Fursuit.Signal.sourceOrigins x_s2Ic)) (FRP.Fursuit.Signal.Pure ds1_s2Sa -> <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Pipe ds1_s2Sc src_s2Ii orig_s2Ij -> <{GHC.Types.:}> (<{GHC.Tuple.(,)}> src_s2Ii orig_s2Ij) <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Filter ds1_s2Sd s_s2In -> FRP.Fursuit.Signal.sourceOrigins s_s2In) (FRP.Fursuit.Signal.Accum ds1_s2Se s_s2Iq -> FRP.Fursuit.Signal.sourceOrigins s_s2Iq) (FRP.Fursuit.Signal.New s_s2Is -> FRP.Fursuit.Signal.sourceOrigins s_s2Is) (FRP.Fursuit.Signal.Union a_s2Iv b_s2Ix -> let !sat_s2Sg_s2Sg = FRP.Fursuit.Signal.sourceOrigins a_s2Iv in <{GHC.Base.++}> sat_s2Sg_s2Sg (FRP.Fursuit.Signal.sourceOrigins b_s2Ix)) FRP.Fursuit.Signal.sources ds_s2IA = select ds_s2IA (FRP.Fursuit.Signal.App f_s2IE x_s2IG -> let !sat_s2Sl_s2Sl = FRP.Fursuit.Signal.sources f_s2IE in <{GHC.Base.++}> sat_s2Sl_s2Sl (FRP.Fursuit.Signal.sources x_s2IG)) (FRP.Fursuit.Signal.Pure ds1_s2Sn -> <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Pipe ds1_s2So src_s2IM ds2_s2Sp -> <{GHC.Types.:}> src_s2IM <{GHC.Types.[]}>) (FRP.Fursuit.Signal.Filter ds1_s2Sq s_s2IP -> FRP.Fursuit.Signal.sources s_s2IP) (FRP.Fursuit.Signal.Accum ds1_s2Sr s_s2IS -> FRP.Fursuit.Signal.sources s_s2IS) (FRP.Fursuit.Signal.New s_s2IU -> FRP.Fursuit.Signal.sources s_s2IU) (FRP.Fursuit.Signal.Union a_s2IX b_s2IZ -> let !sat_s2St_s2St = FRP.Fursuit.Signal.sources a_s2IX in <{GHC.Base.++}> sat_s2St_s2St (FRP.Fursuit.Signal.sources b_s2IZ)) FRP.Fursuit.Signal.isDynamic ds_s2J2 = select ds_s2J2 (FRP.Fursuit.Signal.App f_s2J6 x_s2J8 -> let !wild1_s2T5 = FRP.Fursuit.Signal.isDynamic f_s2J6 in if wild1_s2T5 true (FRP.Fursuit.Signal.isDynamic x_s2J8)) (FRP.Fursuit.Signal.Pure ds1_s2T7 -> false) (FRP.Fursuit.Signal.Pipe ds1_s2T8 src_s2T9 ds2_s2Ta -> true) (FRP.Fursuit.Signal.Filter ds1_s2Tb s_s2Jf -> FRP.Fursuit.Signal.isDynamic s_s2Jf) (FRP.Fursuit.Signal.Accum ds1_s2Tc s_s2Ji -> FRP.Fursuit.Signal.isDynamic s_s2Ji) (FRP.Fursuit.Signal.New s_s2Jk -> FRP.Fursuit.Signal.isDynamic s_s2Jk) (FRP.Fursuit.Signal.Union a_s2Jn b_s2Jp -> let !wild1_s2Td = FRP.Fursuit.Signal.isDynamic a_s2Jn in if wild1_s2Td true (FRP.Fursuit.Signal.isDynamic b_s2Jp)) FRP.Fursuit.Signal.isStatic x_s2Jr = let !wild_s2Tx = FRP.Fursuit.Signal.isDynamic x_s2Jr in if wild_s2Tx false true FRP.Fursuit.Signal.lvl =: GHC.Types.I# 0 FRP.Fursuit.Signal.lvl1 s_s2Ju = let !<{s'_s2Jw}> = noDuplicate# s_s2Ju, !ds_s2TF = newMutVar# FRP.Fursuit.Signal.lvl <{s'_s2Jw}> in select ds_s2TF (<{GHC.Tuple.(,)}> ipv_s2JA ipv1_s2JB -> <{GHC.Tuple.(,)}> ipv_s2JA (GHC.STRef.STRef ipv1_s2JB)) FRP.Fursuit.Signal.sinkIDs =: GHC.IO.unsafeDupablePerformIO FRP.Fursuit.Signal.lvl1 FRP.Fursuit.Signal.origref ds_s2JE = select ds_s2JE (FRP.Fursuit.Signal.P ds1_s2TL ds2_s2TM ds3_s2JJ -> ds3_s2JJ) FRP.Fursuit.Signal.cbref ds_s2JL = select ds_s2JL (FRP.Fursuit.Signal.P ds1_s2TP ds2_s2JQ ds3_s2TQ -> ds2_s2JQ) FRP.Fursuit.Signal.piperef ds_s2JS = select ds_s2JS (FRP.Fursuit.Signal.P ds1_s2JX ds2_s2TT ds3_s2TU -> ds1_s2JX) FRP.Fursuit.Signal.$fFunctorSignal_$cfmap f_s2K0 x_s2K2 = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure f_s2K0) x_s2K2 <{FRP.Fursuit.Signal.$fFunctorSignal_$c<$}> x_s2K6 eta_s2Kb = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure (<{FRP.Fursuit.Signal.$fFunctorSignal_$c<$$9}> x_s2K6)) eta_s2Kb <{FRP.Fursuit.Signal.$fFunctorSignal_$c<$$9}> x_s2K6 ds_s2K7 = x_s2K6 FRP.Fursuit.Signal.$fFunctorSignal =: <{GHC.Base.D:Functor}> FRP.Fursuit.Signal.$fFunctorSignal_$cfmap <{FRP.Fursuit.Signal.$fFunctorSignal_$c<$}> FRP.Fursuit.Signal.$fApplicativeSignal3 ds_s2Kf eta_s2Ke = eta_s2Ke FRP.Fursuit.Signal.$fApplicativeSignal1 =: FRP.Fursuit.Signal.Pure GHC.Base.const <{FRP.Fursuit.Signal.$fApplicativeSignal_$c<*}> eta1_s2Ki eta2_s2Kk = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.Signal.$fApplicativeSignal1 eta1_s2Ki) eta2_s2Kk FRP.Fursuit.Signal.$fApplicativeSignal2 =: FRP.Fursuit.Signal.Pure FRP.Fursuit.Signal.$fApplicativeSignal3 <{FRP.Fursuit.Signal.$fApplicativeSignal_$c*>}> eta1_s2Kn eta2_s2Kp = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.Signal.$fApplicativeSignal2 eta1_s2Kn) eta2_s2Kp FRP.Fursuit.Signal.$fApplicativeSignal =: <{Control.Applicative.D:Applicative}> FRP.Fursuit.Signal.$fFunctorSignal FRP.Fursuit.Signal.Pure FRP.Fursuit.Signal.App <{FRP.Fursuit.Signal.$fApplicativeSignal_$c*>}> <{FRP.Fursuit.Signal.$fApplicativeSignal_$c<*}> FRP.Fursuit.Signal.compile1 ds_s2Ks eta_s2Kx = select ds_s2Ks (FRP.Fursuit.Signal.App sf_s2Kw sx_s2KB -> let !ds1_s2Uh = FRP.Fursuit.Signal.compile1 sf_s2Kw eta_s2Kx in select ds1_s2Uh (<{GHC.Tuple.(,)}> ipv_s2KC ipv1_s2KJ -> let !ds2_s2Ug = FRP.Fursuit.Signal.compile1 sx_s2KB ipv_s2KC in select ds2_s2Ug (<{GHC.Tuple.(,)}> ipv2_s2KG ipv3_s2KO -> <{GHC.Tuple.(,)}> ipv2_s2KG (FRP.Fursuit.Signal.compile1$10 ipv1_s2KJ ipv3_s2KO)))) (FRP.Fursuit.Signal.Pure x_s2Lm -> <{GHC.Tuple.(,)}> eta_s2Kx (FRP.Fursuit.Signal.compile1$11 x_s2Lm)) (FRP.Fursuit.Signal.Pipe value_s2Lv ds1_s2Ux origin_s2LD -> <{GHC.Tuple.(,)}> eta_s2Kx (FRP.Fursuit.Signal.compile1$12 origin_s2LD value_s2Lv)) (FRP.Fursuit.Signal.Filter predicate_s2Ms s_s2LW -> let !ds1_s2UG = FRP.Fursuit.Signal.compile1 s_s2LW eta_s2Kx in select ds1_s2UG (<{GHC.Tuple.(,)}> ipv_s2M0 ipv1_s2M1 -> let !ds2_s2UF = ipv1_s2M1 ipv_s2M0 in select ds2_s2UF (<{GHC.Tuple.(,)}> ipv2_s2N3 ipv3_s2N1 -> select ipv3_s2N1 (Data.Maybe.Nothing -> let !ds3_s2US = newMutVar# Data.Maybe.Nothing ipv2_s2N3 in select ds3_s2US (<{GHC.Tuple.(,)}> ipv4_s2N7 ipv5_s2N8 -> FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW ipv4_s2N7 GHC.Prim.coercionToken# ipv5_s2N8)) (Data.Maybe.Just ds3_s2Na -> select ds3_s2Na (<{GHC.Tuple.(,)}> initial_s2Ne ds4_s2UA -> let !wild3_s2UV = predicate_s2Ms initial_s2Ne in if wild3_s2UV (let !ds5_s2UX = newMutVar# (Data.Maybe.Just initial_s2Ne) ipv2_s2N3 in select ds5_s2UX (<{GHC.Tuple.(,)}> ipv4_s2Np ipv5_s2Nq -> FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW ipv4_s2Np GHC.Prim.coercionToken# ipv5_s2Nq)) (let !ds5_s2UU = newMutVar# Data.Maybe.Nothing ipv2_s2N3 in select ds5_s2UU (<{GHC.Tuple.(,)}> ipv4_s2Nj ipv5_s2Nk -> FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW ipv4_s2Nj GHC.Prim.coercionToken# ipv5_s2Nk))))))) (FRP.Fursuit.Signal.Accum initially_s2Nx s_s2Nt -> let !ds1_s2V4 = FRP.Fursuit.Signal.compile1 s_s2Nt eta_s2Kx in select ds1_s2V4 (<{GHC.Tuple.(,)}> ipv_s2Ny ipv1_s2NF -> let !ds2_s2V3 = newMutVar# initially_s2Nx ipv_s2Ny in select ds2_s2V3 (<{GHC.Tuple.(,)}> ipv2_s2NC ipv3_s2NL -> <{GHC.Tuple.(,)}> ipv2_s2NC (FRP.Fursuit.Signal.compile1$13 ipv1_s2NF ipv3_s2NL)))) (FRP.Fursuit.Signal.New signal_s2Op -> FRP.Fursuit.Signal.compile1 signal_s2Op eta_s2Kx) (FRP.Fursuit.Signal.Union a_s2Os b_s2Ow -> let !ds1_s2Vr = FRP.Fursuit.Signal.compile1 a_s2Os eta_s2Kx in select ds1_s2Vr (<{GHC.Tuple.(,)}> ipv_s2Ox ipv1_s2OC -> let !ds2_s2Vq = FRP.Fursuit.Signal.compile1 b_s2Ow ipv_s2Ox in select ds2_s2Vq (<{GHC.Tuple.(,)}> ipv2_s2OB ipv3_s2OQ -> let !ds3_s2Vp = ipv1_s2OC ipv2_s2OB in select ds3_s2Vp (<{GHC.Tuple.(,)}> ipv4_s2Pr ipv5_s2Pp -> select ipv5_s2Pp (Data.Maybe.Nothing -> let !ds4_s2Vw = ipv3_s2OQ ipv4_s2Pr in select ds4_s2Vw (<{GHC.Tuple.(,)}> ipv6_s2Px ipv7_s2Pv -> select ipv7_s2Pv (Data.Maybe.Nothing -> let !ds5_s2Vu = newMutVar# Data.Maybe.Nothing ipv6_s2Px in select ds5_s2Vu (<{GHC.Tuple.(,)}> ipv8_s2PB ipv9_s2PC -> FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ ipv8_s2PB GHC.Prim.coercionToken# ipv9_s2PC)) (Data.Maybe.Just ds5_s2PE -> select ds5_s2PE (<{GHC.Tuple.(,)}> x_s2PI ds6_s2Vl -> let !ds7_s2Vz = newMutVar# (Data.Maybe.Just x_s2PI) ipv6_s2Px in select ds7_s2Vz (<{GHC.Tuple.(,)}> ipv8_s2PN ipv9_s2PO -> FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ ipv8_s2PN GHC.Prim.coercionToken# ipv9_s2PO))))) (Data.Maybe.Just ds4_s2PQ -> select ds4_s2PQ (<{GHC.Tuple.(,)}> x_s2PU ds5_s2Vj -> let !ds6_s2VB = newMutVar# (Data.Maybe.Just x_s2PU) ipv4_s2Pr in select ds6_s2VB (<{GHC.Tuple.(,)}> ipv6_s2PZ ipv7_s2Q0 -> FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ ipv6_s2PZ GHC.Prim.coercionToken# ipv7_s2Q0))))))) FRP.Fursuit.Signal.compile1$10 ipv1_s2KJ ipv3_s2KO s_s2KI = let !ds3_s2Uf = ipv1_s2KJ s_s2KI in select ds3_s2Uf (<{GHC.Tuple.(,)}> ipv4_s2KN ipv5_s2KT -> let !ds4_s2Ue = ipv3_s2KO ipv4_s2KN in select ds4_s2Ue (<{GHC.Tuple.(,)}> ipv6_s2KS ipv7_s2L0 -> <{GHC.Tuple.(,)}> ipv6_s2KS (FRP.Fursuit.Signal.compile1$3 ipv5_s2KT ipv7_s2L0))) FRP.Fursuit.Signal.compile1$11 x_s2Lm s_s2Ll = <{GHC.Tuple.(,)}> s_s2Ll (Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s2Lm false)) FRP.Fursuit.Signal.compile1$12 origin_s2LD value_s2Lv s_s2Lz = select value_s2Lv (GHC.STRef.STRef var#_s2Ly -> let !ds2_s2Uv = readMutVar# var#_s2Ly s_s2Lz in select ds2_s2Uv (<{GHC.Tuple.(,)}> ipv_s2LH ipv1_s2LM -> select origin_s2LD (GHC.STRef.STRef var#1_s2LG -> let !ds3_s2Ut = readMutVar# var#1_s2LG ipv_s2LH in select ds3_s2Ut (<{GHC.Tuple.(,)}> ipv2_s2LL ipv3_s2LQ -> <{GHC.Tuple.(,)}> ipv2_s2LL (FRP.Fursuit.Signal.compile1$4 ipv1_s2LM ipv3_s2LQ))))) FRP.Fursuit.Signal.compile1$13 ipv1_s2NF ipv3_s2NL s1_s2NE = let !ds3_s2V2 = ipv1_s2NF s1_s2NE in select ds3_s2V2 (<{GHC.Tuple.(,)}> ipv4_s2NM ipv5_s2NJ -> select ipv5_s2NJ (Data.Maybe.Nothing -> let !ds4_s2V0 = readMutVar# ipv3_s2NL ipv4_s2NM in select ds4_s2V0 (<{GHC.Tuple.(,)}> ipv6_s2NQ ipv7_s2NR -> <{GHC.Tuple.(,)}> ipv6_s2NQ (Data.Maybe.Just (<{GHC.Tuple.(,)}> ipv7_s2NR false)))) (Data.Maybe.Just ds4_s2NW -> select ds4_s2NW (<{GHC.Tuple.(,)}> f_s2Oe orig_s2O0 -> if orig_s2O0 (let !ds5_s2Va = readMutVar# ipv3_s2NL ipv4_s2NM in select ds5_s2Va (<{GHC.Tuple.(,)}> ipv6_s2Oh ipv7_s2Od -> let !x_s2Og = f_s2Oe ipv7_s2Od, !s2#_s2Oj = writeMutVar# ipv3_s2NL x_s2Og ipv6_s2Oh in <{GHC.Tuple.(,)}> s2#_s2Oj (Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s2Og true)))) (let !ds5_s2V6 = readMutVar# ipv3_s2NL ipv4_s2NM in select ds5_s2V6 (<{GHC.Tuple.(,)}> ipv6_s2O5 ipv7_s2O6 -> <{GHC.Tuple.(,)}> ipv6_s2O5 (Data.Maybe.Just (<{GHC.Tuple.(,)}> ipv7_s2O6 false))))))) FRP.Fursuit.Signal.compile1$3 ipv5_s2KT ipv7_s2L0 = select ipv5_s2KT (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x_s2KW -> select x_s2KW (<{GHC.Tuple.(,)}> f_s2L8 origf_s2La -> select ipv7_s2L0 (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x1_s2L3 -> select x1_s2L3 (<{GHC.Tuple.(,)}> x2_s2L7 origx_s2Lc -> Data.Maybe.Just (<{GHC.Tuple.(,)}> (f_s2L8 x2_s2L7) (FRP.Fursuit.Signal.compile1$5 origf_s2La origx_s2Lc)))))) FRP.Fursuit.Signal.compile1$5 origf_s2La origx_s2Lc = if origf_s2La true origx_s2Lc FRP.Fursuit.Signal.compile1$4 ipv1_s2LM ipv3_s2LQ = select ipv1_s2LM (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just x_s2LP -> Data.Maybe.Just (<{GHC.Tuple.(,)}> x_s2LP ipv3_s2LQ)) FRP.Fursuit.Signal.compile1$1 predicate_s2Ms s_s2LW sc_s2M8 sg_s2Dr sc1_s2Mu = let !ds3_s2UE = FRP.Fursuit.Signal.compile1 s_s2LW sc_s2M8 in select ds3_s2UE (<{GHC.Tuple.(,)}> ipv4_s2Mc ipv5_s2Mf -> <{GHC.Tuple.(,)}> ipv4_s2Mc (FRP.Fursuit.Signal.compile1$14 ipv5_s2Mf predicate_s2Ms sc1_s2Mu)) FRP.Fursuit.Signal.compile1$14 ipv5_s2Mf predicate_s2Ms sc1_s2Mu s1_s2Me = let !ds4_s2UD = ipv5_s2Mf s1_s2Me in select ds4_s2UD (<{GHC.Tuple.(,)}> ipv6_s2Ml ipv7_s2Mj -> select ipv7_s2Mj (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv6_s2Ml Data.Maybe.Nothing) (Data.Maybe.Just ds5_s2Mn -> select ds5_s2Mn (<{GHC.Tuple.(,)}> val_s2Mr orig_s2MG -> let !wild3_s2UJ = predicate_s2Ms val_s2Mr in if wild3_s2UJ (if orig_s2MG (let !s2#_s2MV = writeMutVar# sc1_s2Mu (Data.Maybe.Just val_s2Mr) ipv6_s2Ml in <{GHC.Tuple.(,)}> s2#_s2MV (Data.Maybe.Just (<{GHC.Tuple.(,)}> val_s2Mr true))) (let !ds6_s2UN = readMutVar# sc1_s2Mu ipv6_s2Ml in select ds6_s2UN (<{GHC.Tuple.(,)}> ipv8_s2MN ipv9_s2ML -> select ipv9_s2ML (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv8_s2MN Data.Maybe.Nothing) (Data.Maybe.Just lastVal_s2MP -> <{GHC.Tuple.(,)}> ipv8_s2MN (Data.Maybe.Just (<{GHC.Tuple.(,)}> lastVal_s2MP false)))))) (let !ds6_s2UI = readMutVar# sc1_s2Mu ipv6_s2Ml in select ds6_s2UI (<{GHC.Tuple.(,)}> ipv8_s2MA ipv9_s2My -> select ipv9_s2My (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv8_s2MA Data.Maybe.Nothing) (Data.Maybe.Just lastVal_s2MC -> <{GHC.Tuple.(,)}> ipv8_s2MA (Data.Maybe.Just (<{GHC.Tuple.(,)}> lastVal_s2MC false)))))))) FRP.Fursuit.Signal.compile1$2 ipv1_s2OC ipv3_s2OQ sc_s2OJ sg_s2DK sc1_s2OU = <{GHC.Tuple.(,)}> sc_s2OJ (FRP.Fursuit.Signal.compile1$15 ipv1_s2OC ipv3_s2OQ sc1_s2OU) FRP.Fursuit.Signal.compile1$15 ipv1_s2OC ipv3_s2OQ sc1_s2OU s_s2OL = let !ds4_s2Vo = ipv1_s2OC s_s2OL in select ds4_s2Vo (<{GHC.Tuple.(,)}> ipv6_s2OP ipv7_s2OZ -> let !ds5_s2Vn = ipv3_s2OQ ipv6_s2OP in select ds5_s2Vn (<{GHC.Tuple.(,)}> ipv8_s2OV ipv9_s2P0 -> let !ds6_s2Vm = readMutVar# sc1_s2OU ipv8_s2OV in select ds6_s2Vm (<{GHC.Tuple.(,)}> ipv10_s2P7 ipv11_s2P8 -> let !sat_s2Vc_s2Vc = Data.Maybe.catMaybes1 (<{GHC.Types.:}> ipv7_s2OZ (<{GHC.Types.:}> ipv9_s2P0 <{GHC.Types.[]}>)), !wild1_s2Vt = GHC.List.filter Data.Tuple.snd sat_s2Vc_s2Vc in select wild1_s2Vt (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> ipv10_s2P7 (FRP.Fursuit.Signal.compile1$6 ipv11_s2P8)) (<{GHC.Types.:}> a1_s2Pg ds7_s2Vf -> let !s2#_s2Pl = writeMutVar# sc1_s2OU (Data.Maybe.Just (Data.Tuple.fst a1_s2Pg)) ipv10_s2P7 in <{GHC.Tuple.(,)}> s2#_s2Pl (Data.Maybe.Just a1_s2Pg))))) FRP.Fursuit.Signal.compile1$6 ipv11_s2P8 = select ipv11_s2P8 (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a1_s2Pb -> Data.Maybe.Just (<{GHC.Tuple.(,)}> a1_s2Pb false)) FRP.Fursuit.Signal.compile eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.compile1 eta_B2_B2 eta_B1_B1 FRP.Fursuit.Signal.sample1 sig_s2Q3 eta_s2Q4 = let !ds1_s2VI = FRP.Fursuit.Signal.compile1 sig_s2Q3 eta_s2Q4 in select ds1_s2VI (<{GHC.Tuple.(,)}> ipv_s2Q8 ipv1_s2Q9 -> let !ds2_s2VH = ipv1_s2Q9 ipv_s2Q8 in select ds2_s2VH (<{GHC.Tuple.(,)}> ipv2_s2Qd ipv3_s2Qe -> <{GHC.Tuple.(,)}> ipv2_s2Qd (FRP.Fursuit.Signal.sample1$7 ipv3_s2Qe))) FRP.Fursuit.Signal.sample1$7 ipv3_s2Qe = select ipv3_s2Qe (Data.Maybe.Nothing -> Data.Maybe.Nothing) (Data.Maybe.Just a_s2Qh -> Data.Maybe.Just (FRP.Fursuit.Signal.sample1$8 a_s2Qh)) FRP.Fursuit.Signal.sample1$8 a_s2Qh = select a_s2Qh (<{GHC.Tuple.(,)}> x_s2Ql ds3_s2VK -> x_s2Ql) FRP.Fursuit.Signal.sample eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.sample1 eta_B2_B2 eta_B1_B1 FRP.Fursuit.Signal.removableSink1 act_s2R6 sig_s2Qr eta_s2Qs = let !ds1_s2VW = FRP.Fursuit.Signal.compile1 sig_s2Qr eta_s2Qs in select ds1_s2VW (<{GHC.Tuple.(,)}> ipv_s2Qz ipv1_s2QR -> select FRP.Fursuit.Signal.sinkIDs (GHC.STRef.STRef var#_s2Qy -> let !ds2_s2VU = readMutVar# var#_s2Qy ipv_s2Qz in select ds2_s2VU (<{GHC.Tuple.(,)}> ipv2_s2QK ipv3_s2QD -> select ipv3_s2QD (GHC.Types.I# x_s2QG -> let !sat_s2QI_s2QI = <{+#}> x_s2QG 1, !s2#_s2Ru = writeMutVar# var#_s2Qy (GHC.Types.I# sat_s2QI_s2QI) ipv2_s2QK, srcs_s2QN = FRP.Fursuit.Signal.sources sig_s2Qr, a1_s2Rt = FRP.Fursuit.Signal.removableSink1$17 a1_s2Rt (FRP.Fursuit.Signal.removableSink1$16 act_s2R6 ipv1_s2QR) x_s2QG, !ds3_s2W5 = a1_s2Rt srcs_s2QN s2#_s2Ru in select ds3_s2W5 (<{GHC.Tuple.(,)}> ipv4_s2Ry ipv5_s2VR -> let a2_s2RU = FRP.Fursuit.Signal.removableSink1$18 a2_s2RU x_s2QG in <{GHC.Tuple.(,)}> ipv4_s2Ry (FRP.Fursuit.Signal.removableSink1$19 a2_s2RU srcs_s2QN)))))) FRP.Fursuit.Signal.removableSink1$16 act_s2R6 ipv1_s2QR s_s2QQ = let !ds3_s2VY = ipv1_s2QR s_s2QQ in select ds3_s2VY (<{GHC.Tuple.(,)}> ipv4_s2QX ipv5_s2QV -> select ipv5_s2QV (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv4_s2QX <{GHC.Tuple.()}>) (Data.Maybe.Just ds_s2QZ -> select ds_s2QZ (<{GHC.Tuple.(,)}> val_s2R5 actuallyHappened_s2R3 -> if actuallyHappened_s2R3 (act_s2R6 val_s2R5 ipv4_s2QX) (<{GHC.Tuple.(,)}> ipv4_s2QX <{GHC.Tuple.()}>)))) FRP.Fursuit.Signal.removableSink1$17 a1_s2Rt a_s2R7 x_s2QG ds_s2Rb eta1_s2Rd = select ds_s2Rb (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta1_s2Rd <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s2Rg ys_s2Rr -> select y_s2Rg (GHC.STRef.STRef var#1_s2Rj -> let !ds3_s2W2 = readMutVar# var#1_s2Rj eta1_s2Rd in select ds3_s2W2 (<{GHC.Tuple.(,)}> ipv4_s2Rp ipv5_s2Rn -> let !s2#1_s2Rs = writeMutVar# var#1_s2Rj (Data.IntMap.Base.$winsert x_s2QG a_s2R7 ipv5_s2Rn) ipv4_s2Rp in a1_s2Rt ys_s2Rr s2#1_s2Rs))) FRP.Fursuit.Signal.removableSink1$18 a2_s2RU x_s2QG ds_s2RC eta1_s2RE = select ds_s2RC (<{GHC.Types.[]}> -> <{GHC.Tuple.(,)}> eta1_s2RE <{GHC.Tuple.()}>) (<{GHC.Types.:}> y_s2RH ys_s2RS -> select y_s2RH (GHC.STRef.STRef var#1_s2RK -> let !ds4_s2W6 = readMutVar# var#1_s2RK eta1_s2RE in select ds4_s2W6 (<{GHC.Tuple.(,)}> ipv6_s2RQ ipv7_s2RO -> let !s2#1_s2RT = writeMutVar# var#1_s2RK (Data.IntMap.Base.$wdelete x_s2QG ipv7_s2RO) ipv6_s2RQ in a2_s2RU ys_s2RS s2#1_s2RT))) FRP.Fursuit.Signal.removableSink1$19 a2_s2RU srcs_s2QN eta_B1_B1 = a2_s2RU srcs_s2QN eta_B1_B1 FRP.Fursuit.Signal.removableSink eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.removableSink1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Fursuit.Signal.sink1 act_s2RZ sig_s2S0 s_s2S1 = let !ds_s2Wb = FRP.Fursuit.Signal.removableSink1 act_s2RZ sig_s2S0 s_s2S1 in select ds_s2Wb (<{GHC.Tuple.(,)}> ipv_s2S5 ipv1_s2Wa -> <{GHC.Tuple.(,)}> ipv_s2S5 <{GHC.Tuple.()}>) FRP.Fursuit.Signal.sink eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.sink1 eta_B3_B3 eta_B2_B2 eta_B1_B1