:: <{FRP.Sodium.Plain.R:BehaviorPlaina}> = FRP.Sodium.Plain.Behavior a1 a2 :: <{FRP.Sodium.Plain.R:EventPlaina}> = FRP.Sodium.Plain.Event a1 a2 a3 :: FRP.Sodium.Plain.Sample = FRP.Sodium.Plain.Sample a1 a2 :: FRP.Sodium.Plain.ReactiveState = FRP.Sodium.Plain.ReactiveState a1 a2 a3 a4 :: FRP.Sodium.Plain.PriorityQueue = FRP.Sodium.Plain.PriorityQueue a1 a2 a3 a4 :: FRP.Sodium.Plain.Partition = FRP.Sodium.Plain.Partition a1 a2 :: FRP.Sodium.Plain.Observer = FRP.Sodium.Plain.Observer a1 a2 a3 :: FRP.Sodium.Plain.Node = FRP.Sodium.Plain.Node a1 a2 a3 :: FRP.Sodium.Plain.Listen = FRP.Sodium.Plain.Listen a1 :: FRP.Sodium.Plain.BehaviorState = FRP.Sodium.Plain.BehaviorState a1 a2 FRP.Sodium.Plain.priorityOf tpl_s8Ao_s8Ao = tpl_s8Ao_s8Ao FRP.Sodium.Plain.$WBehavior tpl_s8Ar_s8Ar tpl_s8As_s8As = FRP.Sodium.Plain.Behavior tpl_s8Ar_s8Ar tpl_s8As_s8As FRP.Sodium.Plain.$WEvent tpl_s8Aw_s8Aw tpl_s8Ax_s8Ax tpl_s8Ay_s8Ay = FRP.Sodium.Plain.Event tpl_s8Aw_s8Aw tpl_s8Ax_s8Ax tpl_s8Ay_s8Ay FRP.Sodium.Plain.$sinsert_$s$sgo10 sc_s8AM sc1_s8AT sc2_s8AC = select sc2_s8AC (Data.Map.Base.Bin rb_s8AW ky_s8AJ y_s8AR l_s8AS r_s8AU -> select ky_s8AJ (GHC.Int.I64# b1_s8AN -> let !wild2_s9YE = <{<#}> sc_s8AM b1_s8AN in if wild2_s9YE (let !sat_s9YH_s9YH = FRP.Sodium.Plain.$sinsert_$s$sgo10 sc_s8AM sc1_s8AT l_s8AS in Data.Map.Base.balanceL ky_s8AJ y_s8AR sat_s9YH_s9YH r_s8AU) (let !wild3_s9YD = <{==#}> sc_s8AM b1_s8AN in if wild3_s9YD (Data.Map.Base.Bin rb_s8AW (GHC.Int.I64# sc_s8AM) sc1_s8AT l_s8AS r_s8AU) (let !sat_s9YC_s9YC = FRP.Sodium.Plain.$sinsert_$s$sgo10 sc_s8AM sc1_s8AT r_s8AU in Data.Map.Base.balanceR ky_s8AJ y_s8AR l_s8AS sat_s9YC_s9YC)))) (Data.Map.Base.Tip -> Data.Map.Base.Bin 1 (GHC.Int.I64# sc_s8AM) sc1_s8AT Data.Map.Base.Tip Data.Map.Base.Tip) FRP.Sodium.Plain.$sinsert_$sgo10 arg_s8B3 ds_s8Bn ds1_s8B6 = select arg_s8B3 (GHC.Int.I64# ipv_s8Bg -> select ds1_s8B6 (Data.Map.Base.Bin rb_s8Bq ky_s8Bd y_s8Bl l_s8Bm r_s8Bo -> select ky_s8Bd (GHC.Int.I64# b1_s8Bh -> let !wild2_s9Z8 = <{<#}> ipv_s8Bg b1_s8Bh in if wild2_s9Z8 (let !sat_s9Za_s9Za = FRP.Sodium.Plain.$sinsert_$s$sgo10 ipv_s8Bg ds_s8Bn l_s8Bm in Data.Map.Base.balanceL ky_s8Bd y_s8Bl sat_s9Za_s9Za r_s8Bo) (let !wild3_s9Z7 = <{==#}> ipv_s8Bg b1_s8Bh in if wild3_s9Z7 (Data.Map.Base.Bin rb_s8Bq arg_s8B3 ds_s8Bn l_s8Bm r_s8Bo) (let !sat_s9Z6_s9Z6 = FRP.Sodium.Plain.$sinsert_$s$sgo10 ipv_s8Bg ds_s8Bn r_s8Bo in Data.Map.Base.balanceR ky_s8Bd y_s8Bl l_s8Bm sat_s9Z6_s9Z6)))) (Data.Map.Base.Tip -> Data.Map.Base.Bin 1 arg_s8B3 ds_s8Bn Data.Map.Base.Tip Data.Map.Base.Tip)) FRP.Sodium.Plain.$sinsert eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$sinsert_$sgo10 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$w$sgo10 ww_s8BF w_s8Bv = select w_s8Bv (Data.Map.Base.Bin rb_s9ZF kx_s8BC x_s8BK l_s8BL r_s8BM -> select kx_s8BC (GHC.Int.I64# b1_s8BG -> let !wild2_s9ZE = <{<#}> ww_s8BF b1_s8BG in if wild2_s9ZE (let !sat_s9ZH_s9ZH = FRP.Sodium.Plain.$w$sgo10 ww_s8BF l_s8BL in Data.Map.Base.balanceR kx_s8BC x_s8BK sat_s9ZH_s9ZH r_s8BM) (let !wild3_s9ZD = <{==#}> ww_s8BF b1_s8BG in if wild3_s9ZD (Data.Map.Base.glue l_s8BL r_s8BM) (let !sat_s9ZC_s9ZC = FRP.Sodium.Plain.$w$sgo10 ww_s8BF r_s8BM in Data.Map.Base.balanceL kx_s8BC x_s8BK l_s8BL sat_s9ZC_s9ZC)))) (Data.Map.Base.Tip -> Data.Map.Base.Tip) FRP.Sodium.Plain.$sdelete_$sgo10 w_s8BR w1_s8BV = select w_s8BR (GHC.Int.I64# ww_s8BU -> FRP.Sodium.Plain.$w$sgo10 ww_s8BU w1_s8BV) FRP.Sodium.Plain.$sdelete eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$sdelete_$sgo10 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fOrdSequence_$cmin eta_B2_B2 eta_B1_B1 = GHC.Int.$fOrdInt64_$cmin eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fOrdSequence_$cmax eta_B2_B2 eta_B1_B1 = GHC.Int.$fOrdInt64_$cmax eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdSequence_$c<=}> eta_B2_B2 eta_B1_B1 = <{GHC.Int.$fOrdInt64_$c<=}> eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdSequence_$c>}> eta_B2_B2 eta_B1_B1 = <{GHC.Int.$fOrdInt64_$c>}> eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdSequence_$c>=}> eta_B2_B2 eta_B1_B1 = <{GHC.Int.$fOrdInt64_$c>=}> eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdSequence_$c<}> eta_B2_B2 eta_B1_B1 = <{GHC.Int.$fOrdInt64_$c<}> eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fOrdSequence_$ccompare eta_B2_B2 eta_B1_B1 = GHC.Int.$fOrdInt64_$ccompare eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fEqSequence_$c/=}> eta_B2_B2 eta_B1_B1 = <{GHC.Int.$fEqInt64_$c/=}> eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fEqSequence_$c==}> eta_B2_B2 eta_B1_B1 = <{GHC.Int.$fEqInt64_$c==}> eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEqSequence =: <{GHC.Classes.D:Eq}> <{GHC.Int.$fEqInt64_$c==}> <{GHC.Int.$fEqInt64_$c/=}> FRP.Sodium.Plain.$fOrdSequence =: <{GHC.Classes.D:Ord}> FRP.Sodium.Plain.$fEqSequence GHC.Int.$fOrdInt64_$ccompare <{GHC.Int.$fOrdInt64_$c<}> <{GHC.Int.$fOrdInt64_$c>=}> <{GHC.Int.$fOrdInt64_$c>}> <{GHC.Int.$fOrdInt64_$c<=}> GHC.Int.$fOrdInt64_$cmax GHC.Int.$fOrdInt64_$cmin FRP.Sodium.Plain.$w$sgo1 ww_s8C8 w_s8BY = select w_s8BY (Data.Map.Base.Bin rb_sa0q kx_s8C5 x_s8Cd l_s8Ce r_s8Cf -> select kx_s8C5 (GHC.Int.I64# b1_s8C9 -> let !wild2_sa0p = <{<#}> ww_s8C8 b1_s8C9 in if wild2_sa0p (let !sat_sa0s_sa0s = FRP.Sodium.Plain.$w$sgo1 ww_s8C8 l_s8Ce in Data.Map.Base.balanceR kx_s8C5 x_s8Cd sat_sa0s_sa0s r_s8Cf) (let !wild3_sa0o = <{==#}> ww_s8C8 b1_s8C9 in if wild3_sa0o (Data.Map.Base.glue l_s8Ce r_s8Cf) (let !sat_sa0n_sa0n = FRP.Sodium.Plain.$w$sgo1 ww_s8C8 r_s8Cf in Data.Map.Base.balanceL kx_s8C5 x_s8Cd l_s8Ce sat_sa0n_sa0n)))) (Data.Map.Base.Tip -> Data.Map.Base.Tip) FRP.Sodium.Plain.$sdelete_$sgo1 w_s8Ck w1_s8Co = select w_s8Ck (GHC.Int.I64# ww_s8Cn -> FRP.Sodium.Plain.$w$sgo1 ww_s8Cn w1_s8Co) FRP.Sodium.Plain.$sdelete1 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$sdelete_$sgo1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.coalesce_$s$sgo10 sc_s8CC sg_s7Ea sc1_s8CJ sc2_s8Cs = select sc2_s8Cs (Data.Map.Base.Bin rb_s8CM ky_s8Cz y_s8CH l_s8CI r_s8CK -> select ky_s8Cz (GHC.Int.I64# b1_s8CD -> let !wild2_sa0Z = <{<#}> sc_s8CC b1_s8CD in if wild2_sa0Z (let !sat_sa12_sa12 = FRP.Sodium.Plain.coalesce_$s$sgo10 sc_s8CC GHC.Prim.coercionToken# sc1_s8CJ l_s8CI in Data.Map.Base.balanceL ky_s8Cz y_s8CH sat_sa12_sa12 r_s8CK) (let !wild3_sa0Y = <{==#}> sc_s8CC b1_s8CD in if wild3_sa0Y (Data.Map.Base.Bin rb_s8CM (GHC.Int.I64# sc_s8CC) sc1_s8CJ l_s8CI r_s8CK) (let !sat_sa0X_sa0X = FRP.Sodium.Plain.coalesce_$s$sgo10 sc_s8CC GHC.Prim.coercionToken# sc1_s8CJ r_s8CK in Data.Map.Base.balanceR ky_s8Cz y_s8CH l_s8CI sat_sa0X_sa0X)))) (Data.Map.Base.Tip -> Data.Map.Base.Bin 1 (GHC.Int.I64# sc_s8CC) sc1_s8CJ Data.Map.Base.Tip Data.Map.Base.Tip) FRP.Sodium.Plain.coalesce_$sgo10 arg_s8CT ds_s8Dd ds1_s8CW = select arg_s8CT (GHC.Int.I64# ipv_s8D6 -> select ds1_s8CW (Data.Map.Base.Bin rb_s8Dg ky_s8D3 y_s8Db l_s8Dc r_s8De -> select ky_s8D3 (GHC.Int.I64# b1_s8D7 -> let !wild2_sa1t = <{<#}> ipv_s8D6 b1_s8D7 in if wild2_sa1t (let !sat_sa1v_sa1v = FRP.Sodium.Plain.coalesce_$s$sgo10 ipv_s8D6 GHC.Prim.coercionToken# ds_s8Dd l_s8Dc in Data.Map.Base.balanceL ky_s8D3 y_s8Db sat_sa1v_sa1v r_s8De) (let !wild3_sa1s = <{==#}> ipv_s8D6 b1_s8D7 in if wild3_sa1s (Data.Map.Base.Bin rb_s8Dg arg_s8CT ds_s8Dd l_s8Dc r_s8De) (let !sat_sa1r_sa1r = FRP.Sodium.Plain.coalesce_$s$sgo10 ipv_s8D6 GHC.Prim.coercionToken# ds_s8Dd r_s8De in Data.Map.Base.balanceR ky_s8D3 y_s8Db l_s8Dc sat_sa1r_sa1r)))) (Data.Map.Base.Tip -> Data.Map.Base.Bin 1 arg_s8CT ds_s8Dd Data.Map.Base.Tip Data.Map.Base.Tip)) FRP.Sodium.Plain.$sinsert1 eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.coalesce_$sgo10 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fOrdNodeID_$cmin eta_B2_B2 eta_B1_B1 = GHC.Classes.$fOrdInt_$cmin eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fOrdNodeID_$cmax eta_B2_B2 eta_B1_B1 = GHC.Classes.$fOrdInt_$cmax eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdNodeID_$c<=}> eta_B2_B2 eta_B1_B1 = GHC.Classes.leInt eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdNodeID_$c>}> eta_B2_B2 eta_B1_B1 = GHC.Classes.gtInt eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdNodeID_$c>=}> eta_B2_B2 eta_B1_B1 = GHC.Classes.geInt eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fOrdNodeID_$c<}> eta_B2_B2 eta_B1_B1 = GHC.Classes.ltInt eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fOrdNodeID_$ccompare eta_B2_B2 eta_B1_B1 = GHC.Classes.compareInt eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fEqNodeID_$c/=}> eta_B2_B2 eta_B1_B1 = GHC.Classes.neInt eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$fEqNodeID_$c==}> eta_B2_B2 eta_B1_B1 = GHC.Classes.eqInt eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEqNodeID =: <{GHC.Classes.D:Eq}> GHC.Classes.eqInt GHC.Classes.neInt FRP.Sodium.Plain.$fOrdNodeID =: <{GHC.Classes.D:Ord}> FRP.Sodium.Plain.$fEqNodeID GHC.Classes.compareInt GHC.Classes.ltInt GHC.Classes.geInt GHC.Classes.gtInt GHC.Classes.leInt GHC.Classes.$fOrdInt_$cmax GHC.Classes.$fOrdInt_$cmin FRP.Sodium.Plain.$wgo5 ww_s8Du w_s8Dl = select w_s8Dl (Data.Set.Base.Bin rb_sa2b y_s8Dr l_s8Dz r_s8Dy -> select y_s8Dr (GHC.Types.I# y#_s8Dv -> let !wild2_sa29 = <{<#}> ww_s8Du y#_s8Dv in if wild2_sa29 (FRP.Sodium.Plain.$wgo5 ww_s8Du l_s8Dz) (let !wild3_sa28 = <{==#}> ww_s8Du y#_s8Dv in if wild3_sa28 true (FRP.Sodium.Plain.$wgo5 ww_s8Du r_s8Dy)))) (Data.Set.Base.Tip -> false) FRP.Sodium.Plain.$smember_go5 w_s8DC w1_s8DG = select w_s8DC (GHC.Types.I# ww_s8DF -> FRP.Sodium.Plain.$wgo5 ww_s8DF w1_s8DG) FRP.Sodium.Plain.$smember eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$smember_go5 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$sinsert_$s$sgo5 sc_s8DS sg_s7EI sc1_s8DJ = select sc1_s8DJ (Data.Set.Base.Bin rb_s8E0 y_s8DP l_s8DX r_s8DY -> select y_s8DP (GHC.Types.I# y#_s8DT -> let !wild2_sa2D = <{<#}> sc_s8DS y#_s8DT in if wild2_sa2D (let !sat_sa2G_sa2G = FRP.Sodium.Plain.$sinsert_$s$sgo5 sc_s8DS GHC.Prim.coercionToken# l_s8DX in Data.Set.Base.balanceL y_s8DP sat_sa2G_sa2G r_s8DY) (let !wild3_sa2C = <{==#}> sc_s8DS y#_s8DT in if wild3_sa2C (Data.Set.Base.Bin rb_s8E0 (GHC.Types.I# sc_s8DS) l_s8DX r_s8DY) (let !sat_sa2B_sa2B = FRP.Sodium.Plain.$sinsert_$s$sgo5 sc_s8DS GHC.Prim.coercionToken# r_s8DY in Data.Set.Base.balanceR y_s8DP l_s8DX sat_sa2B_sa2B)))) (Data.Set.Base.Tip -> Data.Set.Base.Bin 1 (GHC.Types.I# sc_s8DS) Data.Set.Base.Tip Data.Set.Base.Tip) FRP.Sodium.Plain.$sinsert_$sgo5 arg_s8E6 ds_s8E9 = select arg_s8E6 (GHC.Types.I# ipv_s8Ei -> select ds_s8E9 (Data.Set.Base.Bin rb_s8Eq y_s8Ef l_s8En r_s8Eo -> select y_s8Ef (GHC.Types.I# y#_s8Ej -> let !wild2_sa37 = <{<#}> ipv_s8Ei y#_s8Ej in if wild2_sa37 (let !sat_sa39_sa39 = FRP.Sodium.Plain.$sinsert_$s$sgo5 ipv_s8Ei GHC.Prim.coercionToken# l_s8En in Data.Set.Base.balanceL y_s8Ef sat_sa39_sa39 r_s8Eo) (let !wild3_sa36 = <{==#}> ipv_s8Ei y#_s8Ej in if wild3_sa36 (Data.Set.Base.Bin rb_s8Eq arg_s8E6 l_s8En r_s8Eo) (let !sat_sa35_sa35 = FRP.Sodium.Plain.$sinsert_$s$sgo5 ipv_s8Ei GHC.Prim.coercionToken# r_s8Eo in Data.Set.Base.balanceR y_s8Ef l_s8En sat_sa35_sa35)))) (Data.Set.Base.Tip -> Data.Set.Base.Bin 1 arg_s8E6 Data.Set.Base.Tip Data.Set.Base.Tip)) FRP.Sodium.Plain.$sinsert2 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$sinsert_$sgo5 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.dep1 x_s8Eu = x_s8Eu FRP.Sodium.Plain.dep eta_B1_B1 = FRP.Sodium.Plain.dep1 eta_B1_B1 FRP.Sodium.Plain.unReactive1 ds_s8Ew = ds_s8Ew FRP.Sodium.Plain.unReactive eta_B1_B1 = FRP.Sodium.Plain.unReactive1 eta_B1_B1 FRP.Sodium.Plain.unsafeNewIORef v_s8EC dummy_s8EL = GHC.IO.unsafeDupablePerformIO (FRP.Sodium.Plain.unsafeNewIORef$69 v_s8EC) FRP.Sodium.Plain.unsafeNewIORef$69 v_s8EC s_s8EA = let !<{s'_s8ED}> = noDuplicate# s_s8EA, !ds_sa3G = newMutVar# v_s8EC <{s'_s8ED}> in select ds_sa3G (<{GHC.Tuple.(,)}> ipv_s8EH ipv1_s8EI -> <{GHC.Tuple.(,)}> ipv_s8EH (GHC.STRef.STRef ipv1_s8EI)) FRP.Sodium.Plain.sampleImpl ds_s8EN = select ds_s8EN (FRP.Sodium.Plain.Behavior ds1_sa3M ds2_s8ER -> ds2_s8ER) FRP.Sodium.Plain.updates_ ds_s8ET = select ds_s8ET (FRP.Sodium.Plain.Behavior ds1_s8EX ds2_sa3T -> ds1_s8EX) FRP.Sodium.Plain.updates eta_B1_B1 = FRP.Sodium.Plain.updates_ eta_B1_B1 FRP.Sodium.Plain.changes eta_B1_B1 = FRP.Sodium.Plain.updates_ eta_B1_B1 FRP.Sodium.Plain.eDep ds_s8EZ = select ds_s8EZ (FRP.Sodium.Plain.Event ds1_sa40 ds2_sa42 ds3_s8F4 -> ds3_s8F4) FRP.Sodium.Plain.evCacheRef ds_s8F6 = select ds_s8F6 (FRP.Sodium.Plain.Event ds1_sa47 ds2_s8Fb ds3_sa49 -> ds2_s8Fb) FRP.Sodium.Plain.getListenRaw ds_s8Fd = select ds_s8Fd (FRP.Sodium.Plain.Event ds1_s8Fi ds2_sa4f ds3_sa4g -> ds1_s8Fi) FRP.Sodium.Plain.bsCurrent ds_s8Fk = select ds_s8Fk (FRP.Sodium.Plain.BehaviorState ds1_s8Fo ds2_sa4m -> ds1_s8Fo) FRP.Sodium.Plain.bsUpdate ds_s8Fq = select ds_s8Fq (FRP.Sodium.Plain.BehaviorState ds1_sa4r ds2_s8Fu -> ds2_s8Fu) FRP.Sodium.Plain.runListen_ ds_s8Fw = select ds_s8Fw (FRP.Sodium.Plain.Listen ds1_s8Fz -> ds1_s8Fz) FRP.Sodium.Plain.noID ds_s8FB = select ds_s8FB (FRP.Sodium.Plain.Node ds1_s8FG ds2_sa4D ds3_sa4E -> ds1_s8FG) FRP.Sodium.Plain.noListeners ds_s8FI = select ds_s8FI (FRP.Sodium.Plain.Node ds1_sa4J ds2_sa4L ds3_s8FN -> ds3_s8FN) FRP.Sodium.Plain.noRank ds_s8FP = select ds_s8FP (FRP.Sodium.Plain.Node ds1_sa4Q ds2_s8FU ds3_sa4S -> ds2_s8FU) FRP.Sodium.Plain.obFirings ds_s8FW = select ds_s8FW (FRP.Sodium.Plain.Observer ds1_sa4X ds2_sa4Z ds3_s8G1 -> ds3_s8G1) FRP.Sodium.Plain.obListeners ds_s8G3 = select ds_s8G3 (FRP.Sodium.Plain.Observer ds1_sa54 ds2_s8G8 ds3_sa56 -> ds2_s8G8) FRP.Sodium.Plain.obNextID ds_s8Ga = select ds_s8Ga (FRP.Sodium.Plain.Observer ds1_s8Gf ds2_sa5c ds3_sa5d -> ds1_s8Gf) FRP.Sodium.Plain.paLock ds_s8Gh = select ds_s8Gh (FRP.Sodium.Plain.Partition ds1_s8Gl ds2_sa5j -> ds1_s8Gl) FRP.Sodium.Plain.paNextNodeID ds_s8Gn = select ds_s8Gn (FRP.Sodium.Plain.Partition ds1_sa5o ds2_s8Gr -> ds2_s8Gr) FRP.Sodium.Plain.pqData ds_s8Gt = select ds_s8Gt (FRP.Sodium.Plain.PriorityQueue ds1_sa5u ds2_sa5w ds3_sa5x ds4_s8Gz -> ds4_s8Gz) FRP.Sodium.Plain.pqDirty ds_s8GB = select ds_s8GB (FRP.Sodium.Plain.PriorityQueue ds1_sa5C ds2_s8GH ds3_sa5E ds4_sa5F -> ds2_s8GH) FRP.Sodium.Plain.dirtyPriorityQueue1 pq_s8GK eta_s8GU = select pq_s8GK (FRP.Sodium.Plain.PriorityQueue ds_sa5L ds1_s8GQ ds2_sa5N ds3_sa5O -> select ds1_s8GQ (GHC.STRef.STRef var#_s8GT -> let !s2#_s8GW = writeMutVar# var#_s8GT true eta_s8GU in <{GHC.Tuple.(,)}> s2#_s8GW <{GHC.Tuple.()}>)) FRP.Sodium.Plain.dirtyPriorityQueue eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.dirtyPriorityQueue1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.pqNextSeq ds_s8GY = select ds_s8GY (FRP.Sodium.Plain.PriorityQueue ds1_s8H4 ds2_sa61 ds3_sa62 ds4_sa63 -> ds1_s8H4) FRP.Sodium.Plain.pqQueue ds_s8H6 = select ds_s8H6 (FRP.Sodium.Plain.PriorityQueue ds1_sa68 ds2_sa6a ds3_s8Hc ds4_sa6b -> ds3_s8Hc) FRP.Sodium.Plain.asFinal ds_s8He = select ds_s8He (FRP.Sodium.Plain.ReactiveState ds1_sa6g ds2_sa6i ds3_s8Hk ds4_sa6j -> ds3_s8Hk) FRP.Sodium.Plain.asPost ds_s8Hm = select ds_s8Hm (FRP.Sodium.Plain.ReactiveState ds1_sa6o ds2_sa6q ds3_sa6r ds4_s8Hs -> ds4_s8Hs) FRP.Sodium.Plain.asQueue1 ds_s8Hu = select ds_s8Hu (FRP.Sodium.Plain.ReactiveState ds1_s8HA ds2_sa6x ds3_sa6y ds4_sa6z -> ds1_s8HA) FRP.Sodium.Plain.asQueue2 ds_s8HC = select ds_s8HC (FRP.Sodium.Plain.ReactiveState ds1_sa6E ds2_s8HI ds3_sa6G ds4_sa6H -> ds2_s8HI) FRP.Sodium.Plain.sDep ds_s8HK = select ds_s8HK (FRP.Sodium.Plain.Sample ds1_sa6M ds2_s8HO -> ds2_s8HO) FRP.Sodium.Plain.unSample ds_s8HQ = select ds_s8HQ (FRP.Sodium.Plain.Sample ds1_s8HU ds2_sa6T -> ds1_s8HU) FRP.Sodium.Plain.a l_s8HY eta_s8HX = <{GHC.Tuple.(,)}> eta_s8HX (FRP.Sodium.Plain.Listen l_s8HY) FRP.Sodium.Plain.wrap eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.a eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.a1 a7_s8I2 eta_s8I3 = let !ds1_sa6Z = seq# a7_s8I2 eta_s8I3 in select ds1_sa6Z (<{GHC.Tuple.(,)}> ipv_s8I7 ipv1_sa70 -> <{GHC.Tuple.(,)}> ipv_s8I7 <{GHC.Tuple.()}>) FRP.Sodium.Plain.touch eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.a1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.putMVar1 mv_s8Ig a7_s8Ib eta_s8Ic = let !ds1_sa71 = seq# a7_s8Ib eta_s8Ic in select ds1_sa71 (<{GHC.Tuple.(,)}> ipv_s8Ih ipv1_sa72 -> GHC.MVar.putMVar1 mv_s8Ig a7_s8Ib ipv_s8Ih) FRP.Sodium.Plain.putMVar eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.putMVar1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.linkNode2 mv_s8Ir f_s8IC eta_s8Il = let !ds_sa79 = getMaskingState# eta_s8Il in select ds_sa79 (<{GHC.Tuple.(,)}> ipv_s8Iv ipv1_s8Ip -> select ipv1_s8Ip (_ -> select mv_s8Ir (GHC.MVar.MVar mvar#_s8Iu -> let !ds2_sa76 = takeMVar# mvar#_s8Iu ipv_s8Iv in select ds2_sa76 (<{GHC.Tuple.(,)}> ipv2_s8IU ipv3_s8IA -> let !ds3_sa7c = catch# (FRP.Sodium.Plain.linkNode2$72 f_s8IC ipv3_s8IA) (FRP.Sodium.Plain.linkNode2$71 (FRP.Sodium.Plain.linkNode2$70 ipv3_s8IA mvar#_s8Iu)) ipv2_s8IU in select ds3_sa7c (<{GHC.Tuple.(,)}> ipv4_s8IZ ipv5_s8IY -> let !s2#_s8J1 = putMVar# mvar#_s8Iu ipv5_s8IY ipv4_s8IZ in <{GHC.Tuple.(,)}> s2#_s8J1 <{GHC.Tuple.()}>)))) (0 -> maskAsyncExceptions# (FRP.Sodium.Plain.linkNode2$73 f_s8IC mv_s8Ir) ipv_s8Iv)) FRP.Sodium.Plain.linkNode2$70 ipv3_s8IA mvar#_s8Iu eta1_s8IO = let !s2#_s8IQ = putMVar# mvar#_s8Iu ipv3_s8IA eta1_s8IO in <{GHC.Tuple.(,)}> s2#_s8IQ <{GHC.Tuple.()}> FRP.Sodium.Plain.linkNode2$71 sat_s8IS_s8IS eta_B2_B2 eta_B1_B1 = Control.Exception.Base.bracket2 sat_s8IS_s8IS eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.linkNode2$72 f_s8IC ipv3_s8IA s_s8IB = let !ds3_sa7b = f_s8IC ipv3_s8IA s_s8IB in select ds3_sa7b (<{GHC.Tuple.(,)}> ipv4_s8IH ipv5_s8IG -> let !ds4_sa7a = seq# ipv5_s8IG ipv4_s8IH in select ds4_sa7a (<{GHC.Tuple.(,)}> ipv6_s8IL ipv7_sa75 -> <{GHC.Tuple.(,)}> ipv6_s8IL ipv5_s8IG)) FRP.Sodium.Plain.linkNode2$73 f_s8IC mv_s8Ir s_s8J6 = select mv_s8Ir (GHC.MVar.MVar mvar#_s8J5 -> let !ds2_sa7h = takeMVar# mvar#_s8J5 s_s8J6 in select ds2_sa7h (<{GHC.Tuple.(,)}> ipv2_s8Jw ipv3_s8Jb -> let !ds3_sa7l = catch# (FRP.Sodium.Plain.linkNode2$77 (FRP.Sodium.Plain.linkNode2$76 f_s8IC ipv3_s8Jb)) (FRP.Sodium.Plain.linkNode2$75 (FRP.Sodium.Plain.linkNode2$74 ipv3_s8Jb mvar#_s8J5)) ipv2_s8Jw in select ds3_sa7l (<{GHC.Tuple.(,)}> ipv4_s8JB ipv5_s8JA -> let !s2#_s8JD = putMVar# mvar#_s8J5 ipv5_s8JA ipv4_s8JB in <{GHC.Tuple.(,)}> s2#_s8JD <{GHC.Tuple.()}>))) FRP.Sodium.Plain.linkNode2$74 ipv3_s8Jb mvar#_s8J5 eta1_s8Jq = let !s2#_s8Js = putMVar# mvar#_s8J5 ipv3_s8Jb eta1_s8Jq in <{GHC.Tuple.(,)}> s2#_s8Js <{GHC.Tuple.()}> FRP.Sodium.Plain.linkNode2$75 sat_s8Ju_s8Ju eta_B2_B2 eta_B1_B1 = Control.Exception.Base.bracket2 sat_s8Ju_s8Ju eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.linkNode2$76 f_s8IC ipv3_s8Jb s1_s8Jc = let !ds3_sa7k = f_s8IC ipv3_s8Jb s1_s8Jc in select ds3_sa7k (<{GHC.Tuple.(,)}> ipv4_s8Jh ipv5_s8Jg -> let !ds4_sa7j = seq# ipv5_s8Jg ipv4_s8Jh in select ds4_sa7j (<{GHC.Tuple.(,)}> ipv6_s8Jl ipv7_sa7f -> <{GHC.Tuple.(,)}> ipv6_s8Jl ipv5_s8Jg)) FRP.Sodium.Plain.linkNode2$77 sat_s8Jn_s8Jn eta_B1_B1 = unmaskAsyncExceptions# sat_s8Jn_s8Jn eta_B1_B1 FRP.Sodium.Plain.modifyMVar_ eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.linkNode2 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.modifyMVar1 mv_s8JO f_s8JZ eta_s8JI = let !ds_sa7t = getMaskingState# eta_s8JI in select ds_sa7t (<{GHC.Tuple.(,)}> ipv_s8JS ipv1_s8JM -> select ipv1_s8JM (_ -> select mv_s8JO (GHC.MVar.MVar mvar#_s8JR -> let !ds2_sa7q = takeMVar# mvar#_s8JR ipv_s8JS in select ds2_sa7q (<{GHC.Tuple.(,)}> ipv2_s8Kn ipv3_s8JX -> let !ds3_sa7y = catch# (FRP.Sodium.Plain.modifyMVar1$80 f_s8JZ ipv3_s8JX) (FRP.Sodium.Plain.modifyMVar1$79 (FRP.Sodium.Plain.modifyMVar1$78 ipv3_s8JX mvar#_s8JR)) ipv2_s8Kn in select ds3_sa7y (<{GHC.Tuple.(,)}> ipv4_s8Kw ipv5_s8Kr -> select ipv5_s8Kr (<{GHC.Tuple.(,)}> <{a'_s8Kv}> b_s8Kz -> let !s2#_s8Ky = putMVar# mvar#_s8JR <{a'_s8Kv}> ipv4_s8Kw in <{GHC.Tuple.(,)}> s2#_s8Ky b_s8Kz))))) (0 -> maskAsyncExceptions# (FRP.Sodium.Plain.modifyMVar1$81 f_s8JZ mv_s8JO) ipv_s8JS)) FRP.Sodium.Plain.modifyMVar1$78 ipv3_s8JX mvar#_s8JR eta1_s8Kh = let !s2#_s8Kj = putMVar# mvar#_s8JR ipv3_s8JX eta1_s8Kh in <{GHC.Tuple.(,)}> s2#_s8Kj <{GHC.Tuple.()}> FRP.Sodium.Plain.modifyMVar1$79 sat_s8Kl_s8Kl eta_B2_B2 eta_B1_B1 = Control.Exception.Base.bracket2 sat_s8Kl_s8Kl eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.modifyMVar1$80 f_s8JZ ipv3_s8JX s_s8JY = let !ds3_sa7w = f_s8JZ ipv3_s8JX s_s8JY in select ds3_sa7w (<{GHC.Tuple.(,)}> ipv4_s8K8 ipv5_s8K3 -> select ipv5_s8K3 (<{GHC.Tuple.(,)}> <{a'_s8K7}> <{b'_s8Kd}> -> let !ds4_sa7u = seq# <{a'_s8K7}> ipv4_s8K8 in select ds4_sa7u (<{GHC.Tuple.(,)}> ipv6_s8Kc ipv7_sa7p -> <{GHC.Tuple.(,)}> ipv6_s8Kc (<{GHC.Tuple.(,)}> <{a'_s8K7}> <{b'_s8Kd}>)))) FRP.Sodium.Plain.modifyMVar1$81 f_s8JZ mv_s8JO s_s8KE = select mv_s8JO (GHC.MVar.MVar mvar#_s8KD -> let !ds2_sa7E = takeMVar# mvar#_s8KD s_s8KE in select ds2_sa7E (<{GHC.Tuple.(,)}> ipv2_s8La ipv3_s8KJ -> let !ds3_sa7K = catch# (FRP.Sodium.Plain.modifyMVar1$85 (FRP.Sodium.Plain.modifyMVar1$84 f_s8JZ ipv3_s8KJ)) (FRP.Sodium.Plain.modifyMVar1$83 (FRP.Sodium.Plain.modifyMVar1$82 ipv3_s8KJ mvar#_s8KD)) ipv2_s8La in select ds3_sa7K (<{GHC.Tuple.(,)}> ipv4_s8Lj ipv5_s8Le -> select ipv5_s8Le (<{GHC.Tuple.(,)}> <{a'_s8Li}> b_s8Lm -> let !s2#_s8Ll = putMVar# mvar#_s8KD <{a'_s8Li}> ipv4_s8Lj in <{GHC.Tuple.(,)}> s2#_s8Ll b_s8Lm)))) FRP.Sodium.Plain.modifyMVar1$82 ipv3_s8KJ mvar#_s8KD eta1_s8L4 = let !s2#_s8L6 = putMVar# mvar#_s8KD ipv3_s8KJ eta1_s8L4 in <{GHC.Tuple.(,)}> s2#_s8L6 <{GHC.Tuple.()}> FRP.Sodium.Plain.modifyMVar1$83 sat_s8L8_s8L8 eta_B2_B2 eta_B1_B1 = Control.Exception.Base.bracket2 sat_s8L8_s8L8 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.modifyMVar1$84 f_s8JZ ipv3_s8KJ s1_s8KK = let !ds3_sa7I = f_s8JZ ipv3_s8KJ s1_s8KK in select ds3_sa7I (<{GHC.Tuple.(,)}> ipv4_s8KT ipv5_s8KO -> select ipv5_s8KO (<{GHC.Tuple.(,)}> <{a'_s8KS}> <{b'_s8KY}> -> let !ds4_sa7G = seq# <{a'_s8KS}> ipv4_s8KT in select ds4_sa7G (<{GHC.Tuple.(,)}> ipv6_s8KX ipv7_sa7C -> <{GHC.Tuple.(,)}> ipv6_s8KX (<{GHC.Tuple.(,)}> <{a'_s8KS}> <{b'_s8KY}>)))) FRP.Sodium.Plain.modifyMVar1$85 sat_s8L1_s8L1 eta_B1_B1 = unmaskAsyncExceptions# sat_s8L1_s8L1 eta_B1_B1 FRP.Sodium.Plain.modifyMVar eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.modifyMVar1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.a2 s_s8Lr unlisten_s8Ls eta_s8Lt = let !ds1_sa7L = mkWeak# s_s8Lr s_s8Lr unlisten_s8Ls eta_s8Lt in select ds1_sa7L (<{GHC.Tuple.(,)}> ipv_s8Lx ipv1_sa7M -> <{GHC.Tuple.(,)}> ipv_s8Lx s_s8Lr) FRP.Sodium.Plain.finalizeSample eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.a2 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.a3 l_s8LB unlisten_s8LC eta_s8LD = let !ds1_sa7N = mkWeak# l_s8LB l_s8LB unlisten_s8LC eta_s8LD in select ds1_sa7N (<{GHC.Tuple.(,)}> ipv_s8LH ipv1_sa7O -> <{GHC.Tuple.(,)}> ipv_s8LH l_s8LB) FRP.Sodium.Plain.finalizeListen eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.a3 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.addCleanup_Sample1 ds_s8LN s_s8LL eta_s8M9 = FRP.Sodium.Plain.finalizeSample s_s8LL (FRP.Sodium.Plain.addCleanup_Sample1$86 ds_s8LN) eta_s8M9 FRP.Sodium.Plain.addCleanup_Sample1$86 ds_s8LN s1_s8LR = select ds_s8LN (GHC.MVar.MVar mvar#_s8LQ -> let !ds1_sa7R = takeMVar# mvar#_s8LQ s1_s8LR in select ds1_sa7R (<{GHC.Tuple.(,)}> ipv_s8LX ipv1_s8LV -> select ipv1_s8LV (Data.Maybe.Nothing -> let !s2#_s8LZ = putMVar# mvar#_s8LQ Data.Maybe.Nothing ipv_s8LX in <{GHC.Tuple.(,)}> s2#_s8LZ <{GHC.Tuple.()}>) (Data.Maybe.Just v_s8M1 -> let !ds2_sa7T = v_s8M1 ipv_s8LX in select ds2_sa7T (<{GHC.Tuple.(,)}> ipv2_s8M5 ipv3_sa7U -> let !s2#_s8M7 = putMVar# mvar#_s8LQ Data.Maybe.Nothing ipv2_s8M5 in <{GHC.Tuple.(,)}> s2#_s8M7 <{GHC.Tuple.()}>)))) FRP.Sodium.Plain.addCleanup_Sample eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.addCleanup_Sample1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.ioReactive1 io_s8Mb = Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO io_s8Mb FRP.Sodium.Plain.ioReactive eta_B1_B1 = FRP.Sodium.Plain.ioReactive1 eta_B1_B1 FRP.Sodium.Plain.a4 x_s8Md = Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO (FRP.Sodium.Plain.a4$9 x_s8Md) FRP.Sodium.Plain.a4$9 x_s8Md = select x_s8Md (FRP.Sodium.Plain.Behavior ds_sa7X ds1_s8Mh -> select ds1_s8Mh (FRP.Sodium.Plain.Sample ds2_s8Ml ds3_sa7Z -> ds2_s8Ml)) FRP.Sodium.Plain.sample eta_B1_B1 = FRP.Sodium.Plain.a4 eta_B1_B1 FRP.Sodium.Plain.split2 ds_s8Mr l_s8Mp = Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO (FRP.Sodium.Plain.split2$88 l_s8Mp (FRP.Sodium.Plain.split2$87 ds_s8Mr)) FRP.Sodium.Plain.split2$87 ds_s8Mr s_s8Mv = select ds_s8Mr (GHC.MVar.MVar mvar#_s8Mu -> let !ds1_sa82 = takeMVar# mvar#_s8Mu s_s8Mv in select ds1_sa82 (<{GHC.Tuple.(,)}> ipv_s8MB ipv1_s8Mz -> select ipv1_s8Mz (Data.Maybe.Nothing -> let !s2#_s8MD = putMVar# mvar#_s8Mu Data.Maybe.Nothing ipv_s8MB in <{GHC.Tuple.(,)}> s2#_s8MD <{GHC.Tuple.()}>) (Data.Maybe.Just v_s8MF -> let !ds2_sa84 = v_s8MF ipv_s8MB in select ds2_sa84 (<{GHC.Tuple.(,)}> ipv2_s8MJ ipv3_sa85 -> let !s2#_s8ML = putMVar# mvar#_s8Mu Data.Maybe.Nothing ipv2_s8MJ in <{GHC.Tuple.(,)}> s2#_s8ML <{GHC.Tuple.()}>)))) FRP.Sodium.Plain.split2$88 l_s8Mp sat_s8MN_s8MN eta_B1_B1 = FRP.Sodium.Plain.finalizeListen l_s8Mp sat_s8MN_s8MN eta_B1_B1 FRP.Sodium.Plain.addCleanup_Listen eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.split2 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fPriorityQueueableMaybe1 ds_s8MR eta_s8MT = select ds_s8MR (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> eta_s8MT GHC.Int.$fBoundedInt64_$cmaxBound) (Data.Maybe.Just nodeRef_s8N0 -> let !ds1_sa8d = getMaskingState# eta_s8MT in select ds1_sa8d (<{GHC.Tuple.(,)}> ipv_s8N4 ipv1_s8MY -> select ipv1_s8MY (_ -> select nodeRef_s8N0 (GHC.MVar.MVar mvar#_s8N3 -> let !ds3_sa8a = takeMVar# mvar#_s8N3 ipv_s8N4 in select ds3_sa8a (<{GHC.Tuple.(,)}> ipv2_s8N9 ipv3_s8N8 -> let !s2#_s8Nb = putMVar# mvar#_s8N3 ipv3_s8N8 ipv2_s8N9 in <{GHC.Tuple.(,)}> s2#_s8Nb (FRP.Sodium.Plain.$fPriorityQueueableMaybe1$10 ipv3_s8N8)))) (0 -> let !ds3_sa8m = maskAsyncExceptions# (FRP.Sodium.Plain.$fPriorityQueueableMaybe1$89 nodeRef_s8N0) ipv_s8N4 in select ds3_sa8m (<{GHC.Tuple.(,)}> ipv2_s8Ny ipv3_s8Nz -> <{GHC.Tuple.(,)}> ipv2_s8Ny (FRP.Sodium.Plain.$fPriorityQueueableMaybe1$11 ipv3_s8Nz))))) FRP.Sodium.Plain.$fPriorityQueueableMaybe1$89 nodeRef_s8N0 s_s8Nm = select nodeRef_s8N0 (GHC.MVar.MVar mvar#_s8Nl -> let !ds3_sa8j = takeMVar# mvar#_s8Nl s_s8Nm in select ds3_sa8j (<{GHC.Tuple.(,)}> ipv2_s8Nr ipv3_s8Nq -> let !s2#_s8Nt = putMVar# mvar#_s8Nl ipv3_s8Nq ipv2_s8Nr in <{GHC.Tuple.(,)}> s2#_s8Nt ipv3_s8Nq)) FRP.Sodium.Plain.$fPriorityQueueableMaybe1$10 ipv3_s8N8 = select ipv3_s8N8 (FRP.Sodium.Plain.Node ds4_sa88 ds5_s8Ng ds6_sa8e -> ds5_s8Ng) FRP.Sodium.Plain.$fPriorityQueueableMaybe1$11 ipv3_s8Nz = select ipv3_s8Nz (FRP.Sodium.Plain.Node ds4_sa8h ds5_s8NE ds6_sa8i -> ds5_s8NE) FRP.Sodium.Plain.$fPriorityQueueableMaybe_$cpriorityOf eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fPriorityQueueableMaybe1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fPriorityQueueableMaybe =: FRP.Sodium.Plain.$fPriorityQueueableMaybe1 FRP.Sodium.Plain.$fFunctorReactive2 f_s8NW rm_s8NM eta_s8NK eta1_s8NL = let !ds_sa8q = rm_s8NM eta_s8NK eta1_s8NL in select ds_sa8q (<{GHC.Tuple.(,)}> ipv_s8NQ ipv1_s8NR -> <{GHC.Tuple.(,)}> ipv_s8NQ (FRP.Sodium.Plain.$fFunctorReactive2$12 f_s8NW ipv1_s8NR)) FRP.Sodium.Plain.$fFunctorReactive2$12 f_s8NW ipv1_s8NR = select ipv1_s8NR (<{GHC.Tuple.(,)}> a7_s8NV <{s'_s8NY}> -> <{GHC.Tuple.(,)}> (f_s8NW a7_s8NV) <{s'_s8NY}>) FRP.Sodium.Plain.$fFunctorReactive_$cfmap eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fFunctorReactive2 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fFunctorReactive1 x_s8Of eta_s8O6 eta1_s8O4 eta2_s8O5 = let !ds_sa8u = eta_s8O6 eta1_s8O4 eta2_s8O5 in select ds_sa8u (<{GHC.Tuple.(,)}> ipv_s8Oa ipv1_s8Ob -> <{GHC.Tuple.(,)}> ipv_s8Oa (FRP.Sodium.Plain.$fFunctorReactive1$13 ipv1_s8Ob x_s8Of)) FRP.Sodium.Plain.$fFunctorReactive1$13 ipv1_s8Ob x_s8Of = select ipv1_s8Ob (<{GHC.Tuple.(,)}> a7_sa8s <{s'_s8Og}> -> <{GHC.Tuple.(,)}> x_s8Of <{s'_s8Og}>) <{FRP.Sodium.Plain.$fFunctorReactive_$c<$}> eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fFunctorReactive1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fFunctorReactive =: <{GHC.Base.D:Functor}> FRP.Sodium.Plain.$fFunctorReactive2 FRP.Sodium.Plain.$fFunctorReactive1 FRP.Sodium.Plain.$fApplicativeReactive3 rf_s8Oo rm_s8Oy eta_s8Om s_s8On = let !ds1_sa8z = rf_s8Oo eta_s8Om s_s8On in select ds1_sa8z (<{GHC.Tuple.(,)}> ipv_s8Ox ipv1_s8Os -> select ipv1_s8Os (<{GHC.Tuple.(,)}> a7_s8OI <{s'_s8Ow}> -> let !ds2_sa8x = rm_s8Oy <{s'_s8Ow}> ipv_s8Ox in select ds2_sa8x (<{GHC.Tuple.(,)}> ipv2_s8OG ipv3_s8OC -> select ipv3_s8OC (<{GHC.Tuple.(,)}> a8_s8OH <{s'1_s8OK}> -> <{GHC.Tuple.(,)}> ipv2_s8OG (<{GHC.Tuple.(,)}> (a7_s8OI a8_s8OH) <{s'1_s8OK}>))))) <{FRP.Sodium.Plain.$fApplicativeReactive_$c<*>}> eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fApplicativeReactive3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fApplicativeReactive4 a7_s8OR eta_s8OS s_s8OQ = <{GHC.Tuple.(,)}> s_s8OQ (<{GHC.Tuple.(,)}> a7_s8OR eta_s8OS) FRP.Sodium.Plain.$fApplicativeReactive_$cpure eta_B1_B1 = FRP.Sodium.Plain.$fApplicativeReactive4 eta_B1_B1 FRP.Sodium.Plain.$fMonadReactive1 a7_s8OY eta_s8OZ s_s8OX = <{GHC.Tuple.(,)}> s_s8OX (<{GHC.Tuple.(,)}> a7_s8OY eta_s8OZ) FRP.Sodium.Plain.$fMonadReactive_$creturn eta_B1_B1 = FRP.Sodium.Plain.$fMonadReactive1 eta_B1_B1 FRP.Sodium.Plain.$fMonadReactive2 rma_s8P7 kmb_s8Pi eta_s8P5 s_s8P6 = let !ds1_sa8D = rma_s8P7 eta_s8P5 s_s8P6 in select ds1_sa8D (<{GHC.Tuple.(,)}> ipv_s8Ph ipv1_s8Pb -> select ipv1_s8Pb (<{GHC.Tuple.(,)}> a7_s8Pf <{s'_s8Pg}> -> kmb_s8Pi a7_s8Pf <{s'_s8Pg}> ipv_s8Ph)) <{FRP.Sodium.Plain.$fMonadReactive_$c>>=}> eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fMonadReactive2 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fMonadReactive_$cfail eta_B1_B1 = GHC.Err.error eta_B1_B1 FRP.Sodium.Plain.a5 eta_s8Pp eta1_s8Pz eta2_s8Pn s_s8Po = let !ds1_sa8G = eta_s8Pp eta2_s8Pn s_s8Po in select ds1_sa8G (<{GHC.Tuple.(,)}> ipv_s8Py ipv1_s8Pt -> select ipv1_s8Pt (<{GHC.Tuple.(,)}> a7_sa8E <{s'_s8Px}> -> eta1_s8Pz <{s'_s8Px}> ipv_s8Py)) <{FRP.Sodium.Plain.$fMonadReactive_$c>>}> eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.a5 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fMonadReactive =: <{GHC.Base.D:Monad}> FRP.Sodium.Plain.$fMonadReactive2 <{FRP.Sodium.Plain.$fMonadReactive_$c>>}> FRP.Sodium.Plain.$fMonadReactive1 GHC.Err.error FRP.Sodium.Plain.$fMonadFixReactive1 f_s8PW eta_s8PY eta1_s8PD = let !ds_sa8K = newMVar# eta1_s8PD in select ds_sa8K (<{GHC.Tuple.(,)}> ipv_s8PN ipv1_s8PK -> let !ds1_sa8M = GHC.IO.unsafeDupableInterleaveIO (FRP.Sodium.Plain.$fMonadFixReactive1$90 ipv1_s8PK) ipv_s8PN in select ds1_sa8M (<{GHC.Tuple.(,)}> ipv2_s8PZ ipv3_s8PR -> let !ds2_sa8N = f_s8PW (FRP.Sodium.Plain.$fMonadFixReactive1$14 ipv3_s8PR) eta_s8PY ipv2_s8PZ in select ds2_sa8N (<{GHC.Tuple.(,)}> ipv4_s8Q4 ipv5_s8Q3 -> let !s2#_s8Q6 = putMVar# ipv1_s8PK ipv5_s8Q3 ipv4_s8Q4 in <{GHC.Tuple.(,)}> s2#_s8Q6 ipv5_s8Q3))) FRP.Sodium.Plain.$fMonadFixReactive1$90 ipv1_s8PK s_s8PI = let !<{s'_s8PL}> = noDuplicate# s_s8PI in takeMVar# ipv1_s8PK <{s'_s8PL}> FRP.Sodium.Plain.$fMonadFixReactive1$14 ipv3_s8PR = select ipv3_s8PR (<{GHC.Tuple.(,)}> a7_s8PV ds2_sa8J -> a7_s8PV) FRP.Sodium.Plain.$fMonadFixReactive_$cmfix eta_B1_B1 = FRP.Sodium.Plain.$fMonadFixReactive1 eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$csucc eta_B1_B1 = GHC.Enum.$fEnumInt_$csucc eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$cpred eta_B1_B1 = GHC.Enum.$fEnumInt_$cpred eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$ctoEnum eta_B1_B1 = GHC.Enum.$fEnumInt_$cfromEnum eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$cfromEnum eta_B1_B1 = GHC.Enum.$fEnumInt_$cfromEnum eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$cenumFrom eta_B1_B1 = GHC.Enum.$fEnumInt_$cenumFrom eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$cenumFromThen eta_B2_B2 eta_B1_B1 = GHC.Enum.$fEnumInt_$cenumFromThen eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$cenumFromTo eta_B2_B2 eta_B1_B1 = GHC.Enum.$fEnumInt_$cenumFromTo eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID_$cenumFromThenTo eta_B3_B3 eta_B2_B2 eta_B1_B1 = GHC.Enum.$fEnumInt_$cenumFromThenTo eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEnumNodeID =: <{GHC.Enum.D:Enum}> GHC.Enum.$fEnumInt_$csucc GHC.Enum.$fEnumInt_$cpred GHC.Enum.$fEnumInt_$cfromEnum GHC.Enum.$fEnumInt_$cfromEnum GHC.Enum.$fEnumInt_$cenumFrom GHC.Enum.$fEnumInt_$cenumFromThen GHC.Enum.$fEnumInt_$cenumFromTo GHC.Enum.$fEnumInt_$cenumFromThenTo FRP.Sodium.Plain.$fMonadFixReactive =: <{Control.Monad.Fix.D:MonadFix}> FRP.Sodium.Plain.$fMonadReactive FRP.Sodium.Plain.$fMonadFixReactive1 FRP.Sodium.Plain.constant5 ds_s8Ql ds1_s8Qm ds2_s8Qn = FRP.Sodium.Plain.constant5$92 FRP.Sodium.Plain.constant5$91 FRP.Sodium.Plain.constant5$91 s_s8Qc = <{GHC.Tuple.(,)}> s_s8Qc <{GHC.Tuple.()}> FRP.Sodium.Plain.constant5$92 a7_s8Qd eta_s8Qh s_s8Qg = <{GHC.Tuple.(,)}> s_s8Qg (<{GHC.Tuple.(,)}> a7_s8Qd eta_s8Qh) FRP.Sodium.Plain.constant_a =: FRP.Sodium.Plain.Listen FRP.Sodium.Plain.constant5 FRP.Sodium.Plain.constant4 eta_s8Qr s_s8Qq = <{GHC.Tuple.(,)}> s_s8Qq (<{GHC.Tuple.(,)}> FRP.Sodium.Plain.constant_a eta_s8Qr) FRP.Sodium.Plain.constant3 =: FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing GHC.Err.undefined FRP.Sodium.Plain.constant2 =: FRP.Sodium.Plain.Event FRP.Sodium.Plain.constant4 FRP.Sodium.Plain.constant3 GHC.Err.undefined FRP.Sodium.Plain.never =: FRP.Sodium.Plain.constant2 FRP.Sodium.Plain.constant1 a7_s8Qw = FRP.Sodium.Plain.Behavior FRP.Sodium.Plain.constant2 (FRP.Sodium.Plain.Sample (FRP.Sodium.Plain.constant1$93 a7_s8Qw) GHC.Err.undefined) FRP.Sodium.Plain.constant1$93 a7_s8Qw s_s8Qv = <{GHC.Tuple.(,)}> s_s8Qv a7_s8Qw FRP.Sodium.Plain.constant eta_B1_B1 = FRP.Sodium.Plain.constant1 eta_B1_B1 FRP.Sodium.Plain.getListen ds_s8QB = select ds_s8QB (FRP.Sodium.Plain.Event getLRaw_s8QU cacheRef_s8QI ds1_sa90 -> FRP.Sodium.Plain.getListen$94 cacheRef_s8QI getLRaw_s8QU) FRP.Sodium.Plain.getListen$94 cacheRef_s8QI getLRaw_s8QU eta_s8QS s_s8QM = select cacheRef_s8QI (GHC.STRef.STRef var#_s8QL -> let !ds2_sa8X = readMutVar# var#_s8QL s_s8QM in select ds2_sa8X (<{GHC.Tuple.(,)}> ipv_s8QT ipv1_s8QQ -> select ipv1_s8QQ (Data.Maybe.Nothing -> let !ds3_sa8V = getLRaw_s8QU eta_s8QS ipv_s8QT in select ds3_sa8V (<{GHC.Tuple.(,)}> ipv2_s8R4 ipv3_s8QY -> select ipv3_s8QY (<{GHC.Tuple.(,)}> a7_s8R2 <{s'_s8R7}> -> let !s2#_s8R6 = writeMutVar# var#_s8QL (Data.Maybe.Just a7_s8R2) ipv2_s8R4 in <{GHC.Tuple.(,)}> s2#_s8R6 (<{GHC.Tuple.(,)}> a7_s8R2 <{s'_s8R7}>)))) (Data.Maybe.Just l_s8Ra -> <{GHC.Tuple.(,)}> ipv_s8QT (<{GHC.Tuple.(,)}> l_s8Ra eta_s8QS)))) FRP.Sodium.Plain.a6 ev_s8Rj mv_s8RE suppressEarlierFirings_s8RF handle_s8RG eta_s8S3 s_s8Rk = let !ds1_sa9b = seq# ev_s8Rj s_s8Rk in select ds1_sa9b (<{GHC.Tuple.(,)}> ipv_s8Rw ipv1_sa9c -> select ev_s8Rj (FRP.Sodium.Plain.Event getLRaw_s8S5 cacheRef_s8Rs ds_sa9d -> select cacheRef_s8Rs (GHC.STRef.STRef var#_s8Rv -> let !ds2_sa98 = readMutVar# var#_s8Rv ipv_s8Rw in select ds2_sa98 (<{GHC.Tuple.(,)}> ipv2_s8S4 ipv3_s8S1 -> select ipv3_s8S1 (Data.Maybe.Nothing -> let !ds3_sa9g = getLRaw_s8S5 eta_s8S3 ipv2_s8S4 in select ds3_sa9g (<{GHC.Tuple.(,)}> ipv4_s8Sf ipv5_s8S9 -> select ipv5_s8S9 (<{GHC.Tuple.(,)}> a7_s8Sd <{s'_s8Sl}> -> let !s2#_s8Sj = writeMutVar# var#_s8Rv (Data.Maybe.Just a7_s8Sd) ipv4_s8Sf in select a7_s8Sd (FRP.Sodium.Plain.Listen ww1_s8Sk -> FRP.Sodium.Plain.a6$1 handle_s8RG mv_s8RE suppressEarlierFirings_s8RF s2#_s8Sj ww1_s8Sk <{s'_s8Sl}>)))) (Data.Maybe.Just l_s8Sn -> select l_s8Sn (FRP.Sodium.Plain.Listen ww1_s8Sq -> FRP.Sodium.Plain.a6$1 handle_s8RG mv_s8RE suppressEarlierFirings_s8RF ipv2_s8S4 ww1_s8Sq eta_s8S3)))))) FRP.Sodium.Plain.a6$1 handle_s8RG mv_s8RE suppressEarlierFirings_s8RF w_s8RI ww_s8RJ ww1_s8RH = let !ds3_sa97 = ww_s8RJ mv_s8RE suppressEarlierFirings_s8RF handle_s8RG ww1_s8RH w_s8RI in select ds3_sa97 (<{GHC.Tuple.(,)}> ipv4_s8RS ipv5_s8RN -> select ipv5_s8RN (<{GHC.Tuple.(,)}> a7_s8RX <{s'_s8RY}> -> let !ds4_sa9e = FRP.Sodium.Plain.touch (FRP.Sodium.Plain.Listen ww_s8RJ) ipv4_s8RS in select ds4_sa9e (<{GHC.Tuple.(,)}> ipv6_s8RW ipv7_sa94 -> <{GHC.Tuple.(,)}> ipv6_s8RW (<{GHC.Tuple.(,)}> a7_s8RX <{s'_s8RY}>)))) FRP.Sodium.Plain.linkedListen eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.a6 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$wa w_s8SB w1_s8Sx = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa$96 (FRP.Sodium.Plain.$wa$95 w1_s8Sx w_s8SB)) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w1_s8Sx) w1_s8Sx FRP.Sodium.Plain.$wa$95 w1_s8Sx w_s8SB mNodeRef_s8Sy suppressEarlierFirings_s8Sz handle_s8SA = FRP.Sodium.Plain.linkedListen w1_s8Sx mNodeRef_s8Sy suppressEarlierFirings_s8Sz (FRP.Sodium.Plain.$wa$97 handle_s8SA w_s8SB) FRP.Sodium.Plain.$wa$97 handle_s8SA w_s8SB eta_B1_B1 = GHC.Base.. handle_s8SA w_s8SB eta_B1_B1 FRP.Sodium.Plain.$wa$96 a7_s8SD eta_s8SJ s_s8SI = <{GHC.Tuple.(,)}> s_s8SI (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.Listen a7_s8SD) eta_s8SJ) FRP.Sodium.Plain.$fFunctorEvent2 w_s8SP w1_s8SQ = let !ww_sa9o = FRP.Sodium.Plain.$wa w_s8SP w1_s8SQ in select ww_sa9o (<{GHC.Tuple.(,,)}> ww1_s8SV ww2_s8SW ww3_s8SX -> FRP.Sodium.Plain.Event ww1_s8SV ww2_s8SW ww3_s8SX) FRP.Sodium.Plain.$fFunctorEvent_$cfmap eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fFunctorEvent2 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fFunctorEvent1 x_s8T1 eta_s8T4 = let !ww_sa9q = FRP.Sodium.Plain.$wa (FRP.Sodium.Plain.$fFunctorEvent1$98 x_s8T1) eta_s8T4 in select ww_sa9q (<{GHC.Tuple.(,,)}> ww1_s8T9 ww2_s8Ta ww3_s8Tb -> FRP.Sodium.Plain.Event ww1_s8T9 ww2_s8Ta ww3_s8Tb) FRP.Sodium.Plain.$fFunctorEvent1$98 x_s8T1 ds_s8T2 = x_s8T1 <{FRP.Sodium.Plain.$fFunctorEvent_$c<$}> eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fFunctorEvent1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fFunctorEvent =: <{GHC.Base.D:Functor}> FRP.Sodium.Plain.$fFunctorEvent2 FRP.Sodium.Plain.$fFunctorEvent1 FRP.Sodium.Plain.$w$cfmap w_s8To w1_s8Te = select w1_s8Te (FRP.Sodium.Plain.Behavior e_s8Tp s_s8Ti -> select s_s8Ti (FRP.Sodium.Plain.Sample ds_s8Tm ds1_sa9x -> let !nt_s8TA = ds_s8Tm, !ww_sa9v = FRP.Sodium.Plain.$wa w_s8To e_s8Tp in select ww_sa9v (<{GHC.Tuple.(,,)}> ww1_s8Tu ww2_s8Tv ww3_s8Tw -> FRP.Sodium.Plain.Behavior (FRP.Sodium.Plain.Event ww1_s8Tu ww2_s8Tv ww3_s8Tw) (FRP.Sodium.Plain.Sample (FRP.Sodium.Plain.$w$cfmap$99 nt_s8TA w_s8To) s_s8Ti)))) FRP.Sodium.Plain.$w$cfmap$99 nt_s8TA w_s8To s1_s8Tz = let !ds2_sa9u = nt_s8TA s1_s8Tz in select ds2_sa9u (<{GHC.Tuple.(,)}> ipv_s8TE ipv1_s8TF -> <{GHC.Tuple.(,)}> ipv_s8TE (w_s8To ipv1_s8TF)) FRP.Sodium.Plain.$fFunctorBehavior_$cfmap eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$w$cfmap eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$w$c<$}> w_s8TY w1_s8TN = select w1_s8TN (FRP.Sodium.Plain.Behavior e_s8U1 s_s8TR -> select s_s8TR (FRP.Sodium.Plain.Sample ds_s8TV ds1_sa9D -> let !nt_s8Uc = ds_s8TV, !ww_sa9F = FRP.Sodium.Plain.$wa (<{FRP.Sodium.Plain.$w$c<$$100}> w_s8TY) e_s8U1 in select ww_sa9F (<{GHC.Tuple.(,,)}> ww1_s8U6 ww2_s8U7 ww3_s8U8 -> FRP.Sodium.Plain.Behavior (FRP.Sodium.Plain.Event ww1_s8U6 ww2_s8U7 ww3_s8U8) (FRP.Sodium.Plain.Sample (<{FRP.Sodium.Plain.$w$c<$$101}> nt_s8Uc w_s8TY) s_s8TR)))) <{FRP.Sodium.Plain.$w$c<$$100}> w_s8TY ds2_s8TZ = w_s8TY <{FRP.Sodium.Plain.$w$c<$$101}> nt_s8Uc w_s8TY s1_s8Ub = let !ds2_sa9E = nt_s8Uc s1_s8Ub in select ds2_sa9E (<{GHC.Tuple.(,)}> ipv_s8Ug ipv1_sa9B -> <{GHC.Tuple.(,)}> ipv_s8Ug w_s8TY) <{FRP.Sodium.Plain.$fFunctorBehavior_$c<$}> eta_B2_B2 eta_B1_B1 = <{FRP.Sodium.Plain.$w$c<$}> eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fFunctorBehavior =: <{GHC.Base.D:Functor}> FRP.Sodium.Plain.$fFunctorBehavior_$cfmap <{FRP.Sodium.Plain.$fFunctorBehavior_$c<$}> FRP.Sodium.Plain.listenTrans ev_s8Un handle_s8Uo = FRP.Sodium.Plain.linkedListen ev_s8Un Data.Maybe.Nothing false handle_s8Uo FRP.Sodium.Plain.listen ev_s8Ur handle_s8Uw = FRP.Sodium.Plain.linkedListen ev_s8Ur Data.Maybe.Nothing false (FRP.Sodium.Plain.listen$102 ev_s8Ur handle_s8Uw) FRP.Sodium.Plain.listen$102 ev_s8Ur handle_s8Uw a7_s8Uu = Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO (FRP.Sodium.Plain.listen$103 a7_s8Uu ev_s8Ur handle_s8Uw) FRP.Sodium.Plain.listen$103 a7_s8Uu ev_s8Ur handle_s8Uw s_s8Uv = let !ds1_sa9I = handle_s8Uw a7_s8Uu s_s8Uv in select ds1_sa9I (<{GHC.Tuple.(,)}> ipv_s8UA ipv1_sa9J -> FRP.Sodium.Plain.touch ev_s8Ur ipv_s8UA) FRP.Sodium.Plain.finalizeEvent ea_s8UF unlisten_s8Va = select ea_s8UF (FRP.Sodium.Plain.Event ds_s8UY ds1_s8UM ds2_s8Vs -> FRP.Sodium.Plain.Event (FRP.Sodium.Plain.finalizeEvent$104 ds1_s8UM ds_s8UY unlisten_s8Va) ds1_s8UM ds2_s8Vs) FRP.Sodium.Plain.finalizeEvent$104 ds1_s8UM ds_s8UY unlisten_s8Va eta_s8UW s_s8UQ = select ds1_s8UM (GHC.STRef.STRef var#_s8UP -> let !ds3_sa9Q = readMutVar# var#_s8UP s_s8UQ in select ds3_sa9Q (<{GHC.Tuple.(,)}> ipv_s8UX ipv1_s8UU -> select ipv1_s8UU (Data.Maybe.Nothing -> let !ds4_sa9O = ds_s8UY eta_s8UW ipv_s8UX in select ds4_sa9O (<{GHC.Tuple.(,)}> ipv2_s8V8 ipv3_s8V2 -> select ipv3_s8V2 (<{GHC.Tuple.(,)}> a7_s8V6 <{s'_s8Vh}> -> let !s2#_s8Vb = writeMutVar# var#_s8UP (Data.Maybe.Just a7_s8V6) ipv2_s8V8, !ds5_sa9T = FRP.Sodium.Plain.finalizeListen a7_s8V6 unlisten_s8Va s2#_s8Vb in select ds5_sa9T (<{GHC.Tuple.(,)}> ipv4_s8Vf ipv5_s8Vg -> <{GHC.Tuple.(,)}> ipv4_s8Vf (<{GHC.Tuple.(,)}> ipv5_s8Vg <{s'_s8Vh}>))))) (Data.Maybe.Just l_s8Vk -> let !ds4_sa9V = FRP.Sodium.Plain.finalizeListen l_s8Vk unlisten_s8Va ipv_s8UX in select ds4_sa9V (<{GHC.Tuple.(,)}> ipv2_s8Vo ipv3_s8Vp -> <{GHC.Tuple.(,)}> ipv2_s8Vo (<{GHC.Tuple.(,)}> ipv3_s8Vp eta_s8UW))))) FRP.Sodium.Plain.$fApplicativeReactive1 eta1_s8Vz eta2_s8VJ eta_s8Vx s_s8Vy = let !ds_saa1 = eta1_s8Vz eta_s8Vx s_s8Vy in select ds_saa1 (<{GHC.Tuple.(,)}> ipv_s8VI ipv1_s8VD -> select ipv1_s8VD (<{GHC.Tuple.(,)}> a7_s8VS <{s'_s8VH}> -> let !ds1_sa9Z = eta2_s8VJ <{s'_s8VH}> ipv_s8VI in select ds1_sa9Z (<{GHC.Tuple.(,)}> ipv2_s8VR ipv3_s8VN -> select ipv3_s8VN (<{GHC.Tuple.(,)}> a8_sa9X <{s'1_s8VT}> -> <{GHC.Tuple.(,)}> ipv2_s8VR (<{GHC.Tuple.(,)}> a7_s8VS <{s'1_s8VT}>))))) <{FRP.Sodium.Plain.$fApplicativeReactive_$c<*}> eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fApplicativeReactive1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fApplicativeReactive2 eta1_s8W1 eta2_s8Wb eta_s8VZ s_s8W0 = let !ds_saa7 = eta1_s8W1 eta_s8VZ s_s8W0 in select ds_saa7 (<{GHC.Tuple.(,)}> ipv_s8Wa ipv1_s8W5 -> select ipv1_s8W5 (<{GHC.Tuple.(,)}> a7_saa5 <{s'_s8W9}> -> let !ds1_saa4 = eta2_s8Wb <{s'_s8W9}> ipv_s8Wa in select ds1_saa4 (<{GHC.Tuple.(,)}> ipv2_s8Wj ipv3_s8Wf -> select ipv3_s8Wf (<{GHC.Tuple.(,)}> a8_s8Wk <{s'1_s8Wl}> -> <{GHC.Tuple.(,)}> ipv2_s8Wj (<{GHC.Tuple.(,)}> a8_s8Wk <{s'1_s8Wl}>))))) <{FRP.Sodium.Plain.$fApplicativeReactive_$c*>}> eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fApplicativeReactive2 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fApplicativeReactive =: <{Control.Applicative.D:Applicative}> FRP.Sodium.Plain.$fFunctorReactive FRP.Sodium.Plain.$fApplicativeReactive4 FRP.Sodium.Plain.$fApplicativeReactive3 FRP.Sodium.Plain.$fApplicativeReactive2 FRP.Sodium.Plain.$fApplicativeReactive1 FRP.Sodium.Plain.$fEnumSequence_$csucc eta_B1_B1 = GHC.Int.$fEnumInt64_$csucc eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence_$cpred eta_B1_B1 = GHC.Int.$fEnumInt64_$cpred eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence_$ctoEnum eta_B1_B1 = GHC.Int.$fEnumInt64_$ctoEnum eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence_$cfromEnum eta_B1_B1 = GHC.Int.$fEnumInt64_$cfromEnum eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence_$cenumFrom eta_B1_B1 = GHC.Int.$fEnumInt64_$cenumFrom eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence_$cenumFromThen eta_B2_B2 eta_B1_B1 = GHC.Int.$fEnumInt64_$cenumFromThen eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence_$cenumFromTo eta_B2_B2 eta_B1_B1 = GHC.Int.$fEnumInt64_$cenumFromTo eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence_$cenumFromThenTo eta_B3_B3 eta_B2_B2 eta_B1_B1 = GHC.Int.$fEnumInt64_$cenumFromThenTo eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fEnumSequence =: <{GHC.Enum.D:Enum}> GHC.Int.$fEnumInt64_$csucc GHC.Int.$fEnumInt64_$cpred GHC.Int.$fEnumInt64_$ctoEnum GHC.Int.$fEnumInt64_$cfromEnum GHC.Int.$fEnumInt64_$cenumFrom GHC.Int.$fEnumInt64_$cenumFromThen GHC.Int.$fEnumInt64_$cenumFromTo GHC.Int.$fEnumInt64_$cenumFromThenTo FRP.Sodium.Plain.unlinkNode1 nodeRef_s8Wq iD_s8Wz eta_s8WK = FRP.Sodium.Plain.linkNode2 nodeRef_s8Wq (FRP.Sodium.Plain.unlinkNode1$105 iD_s8Wz) eta_s8WK FRP.Sodium.Plain.unlinkNode1$105 iD_s8Wz no_s8Wu s_s8Wt = <{GHC.Tuple.(,)}> s_s8Wt (FRP.Sodium.Plain.unlinkNode1$15 iD_s8Wz no_s8Wu) FRP.Sodium.Plain.unlinkNode1$15 iD_s8Wz no_s8Wu = select no_s8Wu (FRP.Sodium.Plain.Node ds_s8WF ds1_s8WG ds2_s8WD -> select iD_s8Wz (GHC.Int.I64# ww_s8WC -> let !<{listeners'_s8WH}> = FRP.Sodium.Plain.$w$sgo10 ww_s8WC ds2_s8WD in FRP.Sodium.Plain.Node ds_s8WF ds1_s8WG <{listeners'_s8WH}>)) FRP.Sodium.Plain.unlinkNode eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.unlinkNode1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.coalesce_$dEq =: <{GHC.Classes.$fEq(,)}> GHC.Int.$fEqInt64 FRP.Sodium.Plain.$fEqSequence FRP.Sodium.Plain.coalesce_$dOrd =: <{GHC.Classes.$fOrd(,)}> FRP.Sodium.Plain.coalesce_$dEq GHC.Int.$fOrdInt64 FRP.Sodium.Plain.$fOrdSequence FRP.Sodium.Plain.coalesce2 pq_s8WS k_s8XD v_s8Xp s_s8XN = select k_s8XD (Data.Maybe.Nothing -> FRP.Sodium.Plain.coalesce2$2 k_s8XD pq_s8WS v_s8Xp s_s8XN GHC.Int.$fBoundedInt64_$cmaxBound) (Data.Maybe.Just nodeRef_s8XU -> let !ds_saaA = getMaskingState# s_s8XN in select ds_saaA (<{GHC.Tuple.(,)}> ipv_s8XY ipv1_s8XS -> select ipv1_s8XS (_ -> select nodeRef_s8XU (GHC.MVar.MVar mvar#_s8XX -> let !ds2_saax = takeMVar# mvar#_s8XX ipv_s8XY in select ds2_saax (<{GHC.Tuple.(,)}> ipv2_s8Y3 ipv3_s8Y2 -> let !s2#_s8Y5 = putMVar# mvar#_s8XX ipv3_s8Y2 ipv2_s8Y3 in FRP.Sodium.Plain.coalesce2$2 k_s8XD pq_s8WS v_s8Xp s2#_s8Y5 (FRP.Sodium.Plain.coalesce2$16 ipv3_s8Y2)))) (0 -> let !ds2_saaE = maskAsyncExceptions# (FRP.Sodium.Plain.coalesce2$106 nodeRef_s8XU) ipv_s8XY in select ds2_saaE (<{GHC.Tuple.(,)}> ipv2_s8Ys ipv3_s8Yt -> FRP.Sodium.Plain.coalesce2$2 k_s8XD pq_s8WS v_s8Xp ipv2_s8Ys (FRP.Sodium.Plain.coalesce2$17 ipv3_s8Yt))))) FRP.Sodium.Plain.coalesce2$106 nodeRef_s8XU s1_s8Yg = select nodeRef_s8XU (GHC.MVar.MVar mvar#_s8Yf -> let !ds2_saaB = takeMVar# mvar#_s8Yf s1_s8Yg in select ds2_saaB (<{GHC.Tuple.(,)}> ipv2_s8Yl ipv3_s8Yk -> let !s2#_s8Yn = putMVar# mvar#_s8Yf ipv3_s8Yk ipv2_s8Yl in <{GHC.Tuple.(,)}> s2#_s8Yn ipv3_s8Yk)) FRP.Sodium.Plain.coalesce2$16 ipv3_s8Y2 = select ipv3_s8Y2 (FRP.Sodium.Plain.Node ds3_saak ds4_s8Ya ds5_saal -> ds4_s8Ya) FRP.Sodium.Plain.coalesce2$17 ipv3_s8Yt = select ipv3_s8Yt (FRP.Sodium.Plain.Node ds3_saai ds4_s8Yy ds5_saaj -> ds4_s8Yy) FRP.Sodium.Plain.coalesce2$2 k_s8XD pq_s8WS v_s8Xp ipv_s8X2 ipv1_s8Xm = select pq_s8WS (FRP.Sodium.Plain.PriorityQueue ds_s8WY ds1_saaq ds2_s8Xe ds3_s8Xv -> select ds_s8WY (GHC.STRef.STRef var#_s8X1 -> let !ds4_saan = readMutVar# var#_s8X1 ipv_s8X2 in select ds4_saan (<{GHC.Tuple.(,)}> ipv2_s8X6 ipv3_s8Xn -> let !ds5_saam = readMutVar# var#_s8X1 ipv2_s8X6 in select ds5_saam (<{GHC.Tuple.(,)}> ipv4_s8Xc ipv5_s8Xa -> let !s2#_s8Xi = writeMutVar# var#_s8X1 (GHC.Int.$fEnumInt64_$csucc ipv5_s8Xa) ipv4_s8Xc in select ds2_s8Xe (GHC.STRef.STRef var#1_s8Xh -> let !ds6_saar = readMutVar# var#1_s8Xh s2#_s8Xi in select ds6_saar (<{GHC.Tuple.(,)}> ipv6_s8Xt ipv7_s8Xq -> let !s2#1_s8Xz = writeMutVar# var#1_s8Xh (Data.Map.Base.insert FRP.Sodium.Plain.coalesce_$dOrd (<{GHC.Tuple.(,)}> ipv1_s8Xm ipv3_s8Xn) v_s8Xp ipv7_s8Xq) ipv6_s8Xt in select ds3_s8Xv (GHC.STRef.STRef var#2_s8Xy -> let !ds7_saat = readMutVar# var#2_s8Xy s2#1_s8Xz in select ds7_saat (<{GHC.Tuple.(,)}> ipv8_s8XI ipv9_s8XF -> let !s2#2_s8XK = writeMutVar# var#2_s8Xy (FRP.Sodium.Plain.coalesce_$sgo10 ipv3_s8Xn (<{GHC.Tuple.(,)}> k_s8XD v_s8Xp) ipv9_s8XF) ipv8_s8XI in <{GHC.Tuple.(,)}> s2#2_s8XK <{GHC.Tuple.()}>)))))))) FRP.Sodium.Plain.pushPriorityQueue_$spushPriorityQueue eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.coalesce2 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.pushPriorityQueue $dPriorityQueueable_s8YL = FRP.Sodium.Plain.pushPriorityQueue$107 $dPriorityQueueable_s8YL FRP.Sodium.Plain.pushPriorityQueue$107 $dPriorityQueueable_s8YL pq_s8YP k_s8YJ v_s8Zm s_s8YK = let !ds1_saaO = $dPriorityQueueable_s8YL k_s8YJ s_s8YK in select ds1_saaO (<{GHC.Tuple.(,)}> ipv_s8YZ ipv1_s8Zj -> select pq_s8YP (FRP.Sodium.Plain.PriorityQueue ds_s8YV ds2_saaJ ds3_s8Zb ds4_s8Zs -> select ds_s8YV (GHC.STRef.STRef var#_s8YY -> let !ds5_saaL = readMutVar# var#_s8YY ipv_s8YZ in select ds5_saaL (<{GHC.Tuple.(,)}> ipv2_s8Z3 ipv3_s8Zk -> let !ds6_saaK = readMutVar# var#_s8YY ipv2_s8Z3 in select ds6_saaK (<{GHC.Tuple.(,)}> ipv4_s8Z9 ipv5_s8Z7 -> let !s2#_s8Zf = writeMutVar# var#_s8YY (GHC.Int.$fEnumInt64_$csucc ipv5_s8Z7) ipv4_s8Z9 in select ds3_s8Zb (GHC.STRef.STRef var#1_s8Ze -> let !ds7_saaP = readMutVar# var#1_s8Ze s2#_s8Zf in select ds7_saaP (<{GHC.Tuple.(,)}> ipv6_s8Zq ipv7_s8Zn -> let !s2#1_s8Zw = writeMutVar# var#1_s8Ze (Data.Map.Base.insert (<{GHC.Classes.$fOrd(,)}> (<{GHC.Classes.$fEq(,)}> GHC.Int.$fEqInt64 FRP.Sodium.Plain.$fEqSequence) GHC.Int.$fOrdInt64 FRP.Sodium.Plain.$fOrdSequence) (<{GHC.Tuple.(,)}> ipv1_s8Zj ipv3_s8Zk) v_s8Zm ipv7_s8Zn) ipv6_s8Zq in select ds4_s8Zs (GHC.STRef.STRef var#2_s8Zv -> let !ds8_saaR = readMutVar# var#2_s8Zv s2#1_s8Zw in select ds8_saaR (<{GHC.Tuple.(,)}> ipv8_s8ZE ipv9_s8ZB -> let !s2#2_s8ZG = writeMutVar# var#2_s8Zv (FRP.Sodium.Plain.coalesce_$sgo10 ipv3_s8Zk (<{GHC.Tuple.(,)}> k_s8YJ v_s8Zm) ipv9_s8ZB) ipv8_s8ZE in <{GHC.Tuple.(,)}> s2#2_s8ZG <{GHC.Tuple.()}>))))))))) FRP.Sodium.Plain.$dEq =: <{GHC.Classes.$fEq(,)}> GHC.Int.$fEqInt64 FRP.Sodium.Plain.$fEqSequence FRP.Sodium.Plain.$dOrd =: <{GHC.Classes.$fOrd(,)}> FRP.Sodium.Plain.$dEq GHC.Int.$fOrdInt64 FRP.Sodium.Plain.$fOrdSequence FRP.Sodium.Plain.$wa10 ww_s8ZM ww1_s8ZT ww2_s90T w_s8ZN = let !ds1_sabo = readMutVar# ww_s8ZM w_s8ZN in select ds1_sabo (<{GHC.Tuple.(,)}> ipv_s91o ipv1_s91m -> if ipv1_s91m (let !s2#_s91t = writeMutVar# ww_s8ZM false ipv_s91o in select ww2_s90T (GHC.STRef.STRef var#_s91s -> let !ds2_sabB = readMutVar# var#_s91s s2#_s91t in select ds2_sabB (<{GHC.Tuple.(,)}> ipv2_s91A ipv3_s93m -> select ww1_s8ZT (GHC.STRef.STRef var#1_s91z -> let !s2#1_s93n = writeMutVar# var#1_s91z Data.Map.Base.Tip ipv2_s91A, go10_s928 = FRP.Sodium.Plain.$wa10$108 go10_s928 var#1_s91z, !ds3_sabO = go10_s928 FRP.Sodium.Plain.$wa10$109 ipv3_s93m s2#1_s93n in select ds3_sabO (<{GHC.Tuple.(,)}> ipv4_s93r ipv5_sab8 -> FRP.Sodium.Plain.$wa10$3 ww1_s8ZT ww2_s90T ipv4_s93r))))) (FRP.Sodium.Plain.$wa10$3 ww1_s8ZT ww2_s90T ipv_s91o)) FRP.Sodium.Plain.$wa10$108 go10_s928 var#1_s91z <{z'_s925}> ds_s91F = select ds_s91F (Data.Map.Base.Bin rb_sab9 kx_s91X x_s91N l_s93i r_s926 -> go10_s928 (FRP.Sodium.Plain.$wa10$110 go10_s928 kx_s91X r_s926 var#1_s91z x_s91N <{z'_s925}>) l_s93i) (Data.Map.Base.Tip -> <{z'_s925}>) FRP.Sodium.Plain.$wa10$110 go10_s928 kx_s91X r_s926 var#1_s91z x_s91N <{z'_s925}> s_s91T = select x_s91N (<{GHC.Tuple.(,)}> k_s91R v_s91Z -> select k_s91R (Data.Maybe.Nothing -> let !ds3_sabw = readMutVar# var#1_s91z s_s91T in select ds3_sabw (<{GHC.Tuple.(,)}> ipv4_s923 ipv5_s920 -> let !s2#2_s927 = writeMutVar# var#1_s91z (Data.Map.Base.insert FRP.Sodium.Plain.$dOrd (<{GHC.Tuple.(,)}> GHC.Int.$fBoundedInt64_$cmaxBound kx_s91X) v_s91Z ipv5_s920) ipv4_s923 in go10_s928 <{z'_s925}> r_s926 s2#2_s927)) (Data.Maybe.Just nodeRef_s92f -> let !ds3_sabI = getMaskingState# s_s91T in select ds3_sabI (<{GHC.Tuple.(,)}> ipv4_s92j ipv5_s92d -> select ipv5_s92d (_ -> select nodeRef_s92f (GHC.MVar.MVar mvar#_s92i -> let !ds5_sabF = takeMVar# mvar#_s92i ipv4_s92j in select ds5_sabF (<{GHC.Tuple.(,)}> ipv6_s92o ipv7_s92n -> let !s2#2_s92q = putMVar# mvar#_s92i ipv7_s92n ipv6_s92o, !ds6_sabE = readMutVar# var#1_s91z s2#2_s92q in select ds6_sabE (<{GHC.Tuple.(,)}> ipv8_s92F ipv9_s92B -> let !s2#3_s92H = writeMutVar# var#1_s91z (Data.Map.Base.insert FRP.Sodium.Plain.$dOrd (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.$wa10$18 ipv7_s92n) kx_s91X) v_s91Z ipv9_s92B) ipv8_s92F in go10_s928 <{z'_s925}> r_s926 s2#3_s92H)))) (0 -> let !ds5_sabN = maskAsyncExceptions# (FRP.Sodium.Plain.$wa10$111 nodeRef_s92f) ipv4_s92j in select ds5_sabN (<{GHC.Tuple.(,)}> ipv6_s92Y ipv7_s932 -> let !ds6_sabM = readMutVar# var#1_s91z ipv6_s92Y in select ds6_sabM (<{GHC.Tuple.(,)}> ipv8_s93e ipv9_s93a -> let !s2#2_s93g = writeMutVar# var#1_s91z (Data.Map.Base.insert FRP.Sodium.Plain.$dOrd (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.$wa10$19 ipv7_s932) kx_s91X) v_s91Z ipv9_s93a) ipv8_s93e in go10_s928 <{z'_s925}> r_s926 s2#2_s93g)))))) FRP.Sodium.Plain.$wa10$111 nodeRef_s92f s1_s92M = select nodeRef_s92f (GHC.MVar.MVar mvar#_s92L -> let !ds5_sabJ = takeMVar# mvar#_s92L s1_s92M in select ds5_sabJ (<{GHC.Tuple.(,)}> ipv6_s92R ipv7_s92Q -> let !s2#2_s92T = putMVar# mvar#_s92L ipv7_s92Q ipv6_s92R in <{GHC.Tuple.(,)}> s2#2_s92T ipv7_s92Q)) FRP.Sodium.Plain.$wa10$109 s_s93k = <{GHC.Tuple.(,)}> s_s93k <{GHC.Tuple.()}> FRP.Sodium.Plain.$wa10$18 ipv7_s92n = select ipv7_s92n (FRP.Sodium.Plain.Node ds7_sabf ds8_s92y ds9_sabg -> ds8_s92y) FRP.Sodium.Plain.$wa10$19 ipv7_s932 = select ipv7_s932 (FRP.Sodium.Plain.Node ds7_sabd ds8_s937 ds9_sabe -> ds8_s937) FRP.Sodium.Plain.$wa10$3 ww1_s8ZT ww2_s90T s_s8ZX = select ww1_s8ZT (GHC.STRef.STRef var#_s8ZW -> let !ds2_sabm = readMutVar# var#_s8ZW s_s8ZX in select ds2_sabm (<{GHC.Tuple.(,)}> ipv2_s908 ipv3_s901 -> select ipv3_s901 (Data.Map.Base.Bin rb_sabk ds3_s90A ds4_s90H ds5_s90d ds6_sabp -> let !ds7_sabj = readMutVar# var#_s8ZW ipv2_s908 in select ds7_sabj (<{GHC.Tuple.(,)}> ipv4_s90R ipv5_s90P -> let ds_s90I = FRP.Sodium.Plain.$wa10$20 ds3_s90A ds4_s90H ds5_s90d, !s2#_s90X = writeMutVar# var#_s8ZW (FRP.Sodium.Plain.$wa10$21 ds_s90I ipv5_s90P) ipv4_s90R in select ww2_s90T (GHC.STRef.STRef var#1_s90W -> let !ds8_sabs = readMutVar# var#1_s90W s2#_s90X in select ds8_sabs (<{GHC.Tuple.(,)}> ipv6_s919 ipv7_s917 -> let !s2#1_s91b = writeMutVar# var#1_s90W (FRP.Sodium.Plain.$wa10$22 ds_s90I ipv7_s917) ipv6_s919 in <{GHC.Tuple.(,)}> s2#1_s91b (Data.Maybe.Just (FRP.Sodium.Plain.$wa10$23 ds_s90I)))))) (Data.Map.Base.Tip -> <{GHC.Tuple.(,)}> ipv2_s908 Data.Maybe.Nothing))) FRP.Sodium.Plain.$wa10$20 ds3_s90A ds4_s90H ds5_s90d = select ds5_s90d (Data.Map.Base.Bin ipv6_s90k ipv7_s90l ipv8_s90m ipv9_s90n ipv10_s90o -> let !ww3_sabh = Data.Map.Base.findMin_$s$wfindMin ipv6_s90k ipv7_s90l ipv8_s90m ipv9_s90n ipv10_s90o in select ww3_sabh (<{GHC.Tuple.(,)}> ww4_s90s ww5_s90z -> select ww4_s90s (<{GHC.Tuple.(,)}> prio_s90x seq_s90y -> <{GHC.Tuple.(,,,)}> ww4_s90s prio_s90x seq_s90y ww5_s90z))) (Data.Map.Base.Tip -> select ds3_s90A (<{GHC.Tuple.(,)}> prio_s90F seq_s90G -> <{GHC.Tuple.(,,,)}> ds3_s90A prio_s90F seq_s90G ds4_s90H)) FRP.Sodium.Plain.$wa10$21 ds_s90I ipv5_s90P = select ds_s90I (<{GHC.Tuple.(,,,)}> pseq_s90O prio_sab2 seq_sab3 v_sab4 -> Data.Map.Base.delete FRP.Sodium.Plain.$dOrd pseq_s90O ipv5_s90P) FRP.Sodium.Plain.$wa10$22 ds_s90I ipv7_s917 = select ds_s90I (<{GHC.Tuple.(,,,)}> pseq_saaZ prio_sab0 seq_s916 v_sab1 -> FRP.Sodium.Plain.$sdelete_$sgo1 seq_s916 ipv7_s917) FRP.Sodium.Plain.$wa10$23 ds_s90I = select ds_s90I (<{GHC.Tuple.(,,,)}> pseq_saaV prio_saaW seq_saaX v_s91h -> v_s91h) FRP.Sodium.Plain.popPriorityQueue1 w_s93u w1_s93G = select w_s93u (FRP.Sodium.Plain.PriorityQueue ww_sabQ ww1_s93A ww2_s93E ww3_s93F -> select ww1_s93A (GHC.STRef.STRef ww5_s93D -> FRP.Sodium.Plain.$wa10 ww5_s93D ww2_s93E ww3_s93F w1_s93G)) FRP.Sodium.Plain.popPriorityQueue_$spopPriorityQueue eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.popPriorityQueue1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.popPriorityQueue $dPriorityQueueable_s964 = FRP.Sodium.Plain.popPriorityQueue$112 (<{GHC.Classes.$fOrd(,)}> (<{GHC.Classes.$fEq(,)}> GHC.Int.$fEqInt64 FRP.Sodium.Plain.$fEqSequence) GHC.Int.$fOrdInt64 FRP.Sodium.Plain.$fOrdSequence) $dPriorityQueueable_s964 FRP.Sodium.Plain.popPriorityQueue$112 $dOrd1_s93L $dPriorityQueueable_s964 pq_s93O s_s93Y = select pq_s93O (FRP.Sodium.Plain.PriorityQueue ds_saca ds1_s93U ds2_s944 ds3_s954 -> select ds1_s93U (GHC.STRef.STRef var#_s93X -> let !ds4_sacj = readMutVar# var#_s93X s_s93Y in select ds4_sacj (<{GHC.Tuple.(,)}> ipv_s95z ipv1_s95x -> if ipv1_s95x (let !s2#_s95E = writeMutVar# var#_s93X false ipv_s95z in select ds3_s954 (GHC.STRef.STRef var#1_s95D -> let !ds5_sacx = readMutVar# var#1_s95D s2#_s95E in select ds5_sacx (<{GHC.Tuple.(,)}> ipv2_s95L ipv3_s96u -> select ds2_s944 (GHC.STRef.STRef var#2_s95K -> let !s2#1_s96v = writeMutVar# var#2_s95K Data.Map.Base.Tip ipv2_s95L, go10_s96o = FRP.Sodium.Plain.popPriorityQueue$113 $dOrd1_s93L $dPriorityQueueable_s964 go10_s96o var#2_s95K, !ds6_sacz = go10_s96o FRP.Sodium.Plain.popPriorityQueue$114 ipv3_s96u s2#1_s96v in select ds6_sacz (<{GHC.Tuple.(,)}> ipv4_s96z ipv5_sac7 -> FRP.Sodium.Plain.popPriorityQueue$4 $dOrd1_s93L ds2_s944 ds3_s954 ipv4_s96z))))) (FRP.Sodium.Plain.popPriorityQueue$4 $dOrd1_s93L ds2_s944 ds3_s954 ipv_s95z)))) FRP.Sodium.Plain.popPriorityQueue$113 $dOrd1_s93L $dPriorityQueueable_s964 go10_s96o var#2_s95K <{z'_s96l}> ds6_s95Q = select ds6_s95Q (Data.Map.Base.Bin rb_sac8 kx_s96d x_s95Y l_s96q r_s96m -> go10_s96o (FRP.Sodium.Plain.popPriorityQueue$115 $dOrd1_s93L $dPriorityQueueable_s964 go10_s96o kx_s96d r_s96m var#2_s95K x_s95Y <{z'_s96l}>) l_s96q) (Data.Map.Base.Tip -> <{z'_s96l}>) FRP.Sodium.Plain.popPriorityQueue$115 $dOrd1_s93L $dPriorityQueueable_s964 go10_s96o kx_s96d r_s96m var#2_s95K x_s95Y <{z'_s96l}> s1_s963 = select x_s95Y (<{GHC.Tuple.(,)}> k_s962 v_s96f -> let !ds7_sact = $dPriorityQueueable_s964 k_s962 s1_s963 in select ds7_sact (<{GHC.Tuple.(,)}> ipv4_s968 ipv5_s96c -> let !ds8_sacs = readMutVar# var#2_s95K ipv4_s968 in select ds8_sacs (<{GHC.Tuple.(,)}> ipv6_s96j ipv7_s96g -> let !s2#2_s96n = writeMutVar# var#2_s95K (Data.Map.Base.insert $dOrd1_s93L (<{GHC.Tuple.(,)}> ipv5_s96c kx_s96d) v_s96f ipv7_s96g) ipv6_s96j in go10_s96o <{z'_s96l}> r_s96m s2#2_s96n))) FRP.Sodium.Plain.popPriorityQueue$114 s1_s96s = <{GHC.Tuple.(,)}> s1_s96s <{GHC.Tuple.()}> FRP.Sodium.Plain.popPriorityQueue$4 $dOrd1_s93L ds2_s944 ds3_s954 s1_s948 = select ds2_s944 (GHC.STRef.STRef var#1_s947 -> let !ds5_sach = readMutVar# var#1_s947 s1_s948 in select ds5_sach (<{GHC.Tuple.(,)}> ipv2_s94j ipv3_s94c -> select ipv3_s94c (Data.Map.Base.Bin rb_sacb ds6_s94L ds7_s94S ds8_s94o ds9_sacc -> let !ds10_sacf = readMutVar# var#1_s947 ipv2_s94j in select ds10_sacf (<{GHC.Tuple.(,)}> ipv4_s952 ipv5_s950 -> let ds11_s94T = FRP.Sodium.Plain.popPriorityQueue$24 ds6_s94L ds7_s94S ds8_s94o, !s2#_s958 = writeMutVar# var#1_s947 (FRP.Sodium.Plain.popPriorityQueue$25 $dOrd1_s93L ds11_s94T ipv5_s950) ipv4_s952 in select ds3_s954 (GHC.STRef.STRef var#2_s957 -> let !ds12_saco = readMutVar# var#2_s957 s2#_s958 in select ds12_saco (<{GHC.Tuple.(,)}> ipv6_s95k ipv7_s95i -> let !s2#1_s95m = writeMutVar# var#2_s957 (FRP.Sodium.Plain.popPriorityQueue$26 ds11_s94T ipv7_s95i) ipv6_s95k in <{GHC.Tuple.(,)}> s2#1_s95m (Data.Maybe.Just (FRP.Sodium.Plain.popPriorityQueue$27 ds11_s94T)))))) (Data.Map.Base.Tip -> <{GHC.Tuple.(,)}> ipv2_s94j Data.Maybe.Nothing))) FRP.Sodium.Plain.popPriorityQueue$24 ds6_s94L ds7_s94S ds8_s94o = select ds8_s94o (Data.Map.Base.Bin ipv6_s94v ipv7_s94w ipv8_s94x ipv9_s94y ipv10_s94z -> let !ww_sacd = Data.Map.Base.findMin_$s$wfindMin ipv6_s94v ipv7_s94w ipv8_s94x ipv9_s94y ipv10_s94z in select ww_sacd (<{GHC.Tuple.(,)}> ww1_s94D ww2_s94K -> select ww1_s94D (<{GHC.Tuple.(,)}> prio_s94I seq_s94J -> <{GHC.Tuple.(,,,)}> ww1_s94D prio_s94I seq_s94J ww2_s94K))) (Data.Map.Base.Tip -> select ds6_s94L (<{GHC.Tuple.(,)}> prio_s94Q seq_s94R -> <{GHC.Tuple.(,,,)}> ds6_s94L prio_s94Q seq_s94R ds7_s94S)) FRP.Sodium.Plain.popPriorityQueue$25 $dOrd1_s93L ds11_s94T ipv5_s950 = select ds11_s94T (<{GHC.Tuple.(,,,)}> pseq_s94Z prio_sac1 seq_sac2 v_sac3 -> Data.Map.Base.delete $dOrd1_s93L pseq_s94Z ipv5_s950) FRP.Sodium.Plain.popPriorityQueue$26 ds11_s94T ipv7_s95i = select ds11_s94T (<{GHC.Tuple.(,,,)}> pseq_sabY prio_sabZ seq_s95h v_sac0 -> FRP.Sodium.Plain.$sdelete_$sgo1 seq_s95h ipv7_s95i) FRP.Sodium.Plain.popPriorityQueue$27 ds11_s94T = select ds11_s94T (<{GHC.Tuple.(,,,)}> pseq_sabU prio_sabV seq_sabW v_s95s -> v_s95s) FRP.Sodium.Plain.$wa8 w_s972 ww_s96F w1_s96S w2_s96G = let !ds1_sacO = takeMVar# ww_s96F w2_s96G in select ds1_sacO (<{GHC.Tuple.(,)}> ipv_s97g ipv1_s96K -> select ipv1_s96K (FRP.Sodium.Plain.Node ds_s96Y ds2_s96P ds3_s97e -> select ds2_s96P (GHC.Int.I64# a7_s96V -> select w1_s96S (GHC.Int.I64# b1_s96W -> let !wild3_sacL = <{>#}> a7_s96V b1_s96W in if wild3_sacL (let !s2#_s97Y = putMVar# ww_s96F ipv1_s96K ipv_s97g in <{GHC.Tuple.(,)}> s2#_s97Y false) (select ds_s96Y (GHC.Types.I# ww1_s971 -> let !wild4_sacK = FRP.Sodium.Plain.$wgo5 ww1_s971 w_s972 in if wild4_sacK (let !s2#_s97W = putMVar# ww_s96F ipv1_s96K ipv_s97g in <{GHC.Tuple.(,)}> s2#_s97W false) (let newSerial_s978 = FRP.Sodium.Plain.$wa8$28 b1_s96W, a8_s97f = FRP.Sodium.Plain.$wa8$29 ds3_s97e ds_s96Y newSerial_s978, !ds4_sacR = seq# a8_s97f ipv_s97g in select ds4_sacR (<{GHC.Tuple.(,)}> ipv2_s97k ipv3_sacI -> let !s2#_s97P = putMVar# ww_s96F a8_s97f ipv2_s97k, go10_s97J = FRP.Sodium.Plain.$wa8$116 go10_s97J newSerial_s978 w_s972 ww1_s971, !ds5_sacT = go10_s97J FRP.Sodium.Plain.$wa8$117 ds3_s97e s2#_s97P in select ds5_sacT (<{GHC.Tuple.(,)}> ipv4_s97T ipv5_sacF -> <{GHC.Tuple.(,)}> ipv4_s97T true))))))))) FRP.Sodium.Plain.$wa8$116 go10_s97J newSerial_s978 w_s972 ww1_s971 <{z'_s97G}> ds5_s97p = select ds5_s97p (Data.Map.Base.Bin rb_sacG kx_sacH x_s97x l_s97L r_s97H -> go10_s97J (FRP.Sodium.Plain.$wa8$118 go10_s97J newSerial_s978 r_s97H w_s972 ww1_s971 x_s97x <{z'_s97G}>) l_s97L) (Data.Map.Base.Tip -> <{z'_s97G}>) FRP.Sodium.Plain.$wa8$118 go10_s97J newSerial_s978 r_s97H w_s972 ww1_s971 x_s97x <{z'_s97G}> s_s97C = select x_s97x (GHC.MVar.MVar ww2_s97B -> let !ds6_sacS = FRP.Sodium.Plain.$wa8 (FRP.Sodium.Plain.$sinsert_$s$sgo5 ww1_s971 GHC.Prim.coercionToken# w_s972) ww2_s97B newSerial_s978 s_s97C in select ds6_sacS (<{GHC.Tuple.(,)}> ipv4_s97I ipv5_sacC -> go10_s97J <{z'_s97G}> r_s97H ipv4_s97I)) FRP.Sodium.Plain.$wa8$117 s_s97N = <{GHC.Tuple.(,)}> s_s97N <{GHC.Tuple.()}> FRP.Sodium.Plain.$wa8$28 b1_s96W = select b1_s96W (_ -> let !sat_sacA_sacA = <{+#}> b1_s96W 1 in GHC.Int.I64# sat_sacA_sacA) (9223372036854775807 -> GHC.Int.$fEnumInt9) FRP.Sodium.Plain.$wa8$29 ds3_s97e ds_s96Y newSerial_s978 = select newSerial_s978 (GHC.Int.I64# ipv2_sacJ -> FRP.Sodium.Plain.Node ds_s96Y newSerial_s978 ds3_s97e) FRP.Sodium.Plain.ensureBiggerThan1 w_s986 w1_s983 w2_s988 w3_s989 = select w1_s983 (GHC.MVar.MVar ww_s987 -> FRP.Sodium.Plain.$wa8 w_s986 ww_s987 w2_s988 w3_s989) FRP.Sodium.Plain.ensureBiggerThan eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.ensureBiggerThan1 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.linkNode1 nodeRef_s98A iD_s98J mvTarget_s98l eta_s98e = let !ds_sad2 = getMaskingState# eta_s98e in select ds_sad2 (<{GHC.Tuple.(,)}> ipv_s994 ipv1_s98Z -> select ipv1_s98Z (_ -> select nodeRef_s98A (GHC.MVar.MVar mvar#_s993 -> let !ds2_sad7 = takeMVar# mvar#_s993 ipv_s994 in select ds2_sad7 (<{GHC.Tuple.(,)}> ipv2_s999 ipv3_s998 -> let !s2#_s99b = putMVar# mvar#_s993 ipv3_s998 ipv2_s999 in FRP.Sodium.Plain.linkNode1$5 iD_s98J mvTarget_s98l nodeRef_s98A s2#_s99b ipv3_s998))) (0 -> let !ds2_sadc = maskAsyncExceptions# (FRP.Sodium.Plain.linkNode1$119 nodeRef_s98A) ipv_s994 in select ds2_sadc (<{GHC.Tuple.(,)}> ipv2_s99s ipv3_s99t -> FRP.Sodium.Plain.linkNode1$5 iD_s98J mvTarget_s98l nodeRef_s98A ipv2_s99s ipv3_s99t))) FRP.Sodium.Plain.linkNode1$119 nodeRef_s98A s_s99g = select nodeRef_s98A (GHC.MVar.MVar mvar#_s99f -> let !ds2_sada = takeMVar# mvar#_s99f s_s99g in select ds2_sada (<{GHC.Tuple.(,)}> ipv2_s99l ipv3_s99k -> let !s2#_s99n = putMVar# mvar#_s99f ipv3_s99k ipv2_s99l in <{GHC.Tuple.(,)}> s2#_s99n ipv3_s99k)) FRP.Sodium.Plain.linkNode1$5 iD_s98J mvTarget_s98l nodeRef_s98A ipv2_s98w ipv3_s98p = select mvTarget_s98l (GHC.MVar.MVar ww_s98o -> let !ds1_sad5 = FRP.Sodium.Plain.$wa8 Data.Set.Base.Tip ww_s98o (FRP.Sodium.Plain.linkNode1$30 ipv3_s98p) ipv2_s98w in select ds1_sad5 (<{GHC.Tuple.(,)}> ipv4_s98S ipv5_s98X -> let !ds2_sad6 = FRP.Sodium.Plain.linkNode2 nodeRef_s98A (FRP.Sodium.Plain.linkNode1$120 iD_s98J mvTarget_s98l) ipv4_s98S in select ds2_sad6 (<{GHC.Tuple.(,)}> ipv6_s98W ipv7_sacX -> <{GHC.Tuple.(,)}> ipv6_s98W ipv5_s98X))) FRP.Sodium.Plain.linkNode1$120 iD_s98J mvTarget_s98l no_s98E s_s98D = <{GHC.Tuple.(,)}> s_s98D (FRP.Sodium.Plain.linkNode1$31 iD_s98J mvTarget_s98l no_s98E) FRP.Sodium.Plain.linkNode1$30 ipv3_s98p = select ipv3_s98p (FRP.Sodium.Plain.Node ds1_sad0 ds2_s98u ds3_sad3 -> ds2_s98u) FRP.Sodium.Plain.linkNode1$31 iD_s98J mvTarget_s98l no_s98E = select no_s98E (FRP.Sodium.Plain.Node ds2_s98N ds3_s98O ds4_s98L -> let !<{listeners'_s98P}> = FRP.Sodium.Plain.$sinsert_$sgo10 iD_s98J mvTarget_s98l ds4_s98L in FRP.Sodium.Plain.Node ds2_s98N ds3_s98O <{listeners'_s98P}>) FRP.Sodium.Plain.linkNode eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.linkNode1 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.newPriorityQueue1 eta_s99w = let !ds_sadi = newMutVar# (GHC.Int.I64# 0) eta_s99w in select ds_sadi (<{GHC.Tuple.(,)}> ipv_s99A ipv1_s99N -> let !ds1_sadh = newMutVar# false ipv_s99A in select ds1_sadh (<{GHC.Tuple.(,)}> ipv2_s99E ipv3_s99P -> let !ds2_sadg = newMutVar# Data.Map.Base.Tip ipv2_s99E in select ds2_sadg (<{GHC.Tuple.(,)}> ipv4_s99I ipv5_s99R -> let !ds3_sadf = newMutVar# Data.Map.Base.Tip ipv4_s99I in select ds3_sadf (<{GHC.Tuple.(,)}> ipv6_s99M ipv7_s99T -> <{GHC.Tuple.(,)}> ipv6_s99M (FRP.Sodium.Plain.PriorityQueue (GHC.STRef.STRef ipv1_s99N) (GHC.STRef.STRef ipv3_s99P) (GHC.STRef.STRef ipv5_s99R) (GHC.STRef.STRef ipv7_s99T)))))) FRP.Sodium.Plain.newPriorityQueue eta_B1_B1 = FRP.Sodium.Plain.newPriorityQueue1 eta_B1_B1 FRP.Sodium.Plain.sat_s9ar_s9ar s_s9a1 = let !<{s'_s9a3}> = noDuplicate# s_s9a1, !ds_sadl = newMVar# <{s'_s9a3}> in select ds_sadl (<{GHC.Tuple.(,)}> ipv_s9a8 ipv1_s9ad -> let !ds1_sadm = newMutVar# (GHC.Types.I# 0) ipv_s9a8 in select ds1_sadm (<{GHC.Tuple.(,)}> ipv2_s9ac ipv3_s9af -> <{GHC.Tuple.(,)}> ipv2_s9ac (FRP.Sodium.Plain.Partition (GHC.MVar.MVar ipv1_s9ad) (GHC.STRef.STRef ipv3_s9af)))) FRP.Sodium.Plain.partition =: GHC.IO.unsafeDupablePerformIO FRP.Sodium.Plain.sat_s9ar_s9ar FRP.Sodium.Plain.sync1 task_s9gP eta_s9an = let !ds_sae5 = newMutVar# GHC.Err.undefined eta_s9an in select ds_sae5 (<{GHC.Tuple.(,)}> ipv_s9az ipv1_s9gX -> select FRP.Sodium.Plain.partition (FRP.Sodium.Plain.Partition ds1_s9av ds2_sae6 -> select ds1_s9av (GHC.MVar.MVar mvar#_s9ay -> let !s2#_s9aC = putMVar# mvar#_s9ay <{GHC.Tuple.()}> ipv_s9az, !ds3_saea = newMutVar# (GHC.Int.I64# 0) s2#_s9aC in select ds3_saea (<{GHC.Tuple.(,)}> ipv2_s9aG ipv3_s9h8 -> let !ds4_sae9 = newMutVar# false ipv2_s9aG in select ds4_sae9 (<{GHC.Tuple.(,)}> ipv4_s9aK ipv5_s9ha -> let !ds5_sae8 = newMutVar# Data.Map.Base.Tip ipv4_s9aK in select ds5_sae8 (<{GHC.Tuple.(,)}> ipv6_s9aO ipv7_s9hb -> let !ds6_sae7 = newMutVar# Data.Map.Base.Tip ipv6_s9aO in select ds6_sae7 (<{GHC.Tuple.(,)}> ipv8_s9h7 ipv9_s9hd -> let $s$wa_s9du = FRP.Sodium.Plain.sync1$121 $wa11_s9bE, $wa11_s9bE = FRP.Sodium.Plain.sync1$122 $wa11_s9bE, !ds7_saeZ = $s$wa_s9du (Data.Sequence.Single (FRP.Sodium.Plain.sync1$123 ipv1_s9gX task_s9gP)) Data.Sequence.Empty ipv8_s9h7 (GHC.STRef.STRef ipv3_s9h8) ipv5_s9ha GHC.Prim.coercionToken# (GHC.STRef.STRef ipv7_s9hb) (GHC.STRef.STRef ipv9_s9hd) GHC.Prim.coercionToken# in select ds7_saeZ (<{GHC.Tuple.(,)}> ipv10_s9hm ipv11_s9hi -> select ipv11_s9hi (<{GHC.Tuple.(,)}> a7_sadF ds8_sadH -> let !ds9_saeX = takeMVar# mvar#_s9ay ipv10_s9hm in select ds9_saeX (<{GHC.Tuple.(,)}> ipv12_s9hq ipv13_sadG -> readMutVar# ipv1_s9gX ipv12_s9hq)))))))))) FRP.Sodium.Plain.sync1$121 $wa11_s9bE sc_s9bJ sc1_s9bZ sc2_s9c3 sc3_s9bS sc4_s9bT sg_s7Gx sc5_s9bV sc6_s9bW sg1_s7GA = select sc_s9bJ (_ -> let !ds7_sael = Data.Sequence.$windex sc_s9bJ 0 (FRP.Sodium.Plain.ReactiveState (FRP.Sodium.Plain.sync1$212 sc_s9bJ) (FRP.Sodium.Plain.PriorityQueue sc3_s9bS (GHC.STRef.STRef sc4_s9bT) sc5_s9bV sc6_s9bW) Data.Sequence.Empty sc1_s9bZ) sc2_s9c3 in select ds7_sael (<{GHC.Tuple.(,)}> ipv10_s9cl ipv11_s9c7 -> select ipv11_s9c7 (<{GHC.Tuple.(,)}> a7_sadu <{s'_s9cb}> -> select <{s'_s9cb}> (FRP.Sodium.Plain.ReactiveState ww_s9ch ww1_s9ci ww2_s9cj ww3_s9ck -> let !ds8_saei = $wa11_s9bE ww_s9ch ww1_s9ci ww2_s9cj ww3_s9ck ipv10_s9cl in select ds8_saei (<{GHC.Tuple.(,)}> ipv12_s9cz ipv13_s9cp -> select ipv13_s9cp (<{GHC.Tuple.(,)}> ww4_sadv ww5_s9ct -> select ww5_s9ct (FRP.Sodium.Plain.ReactiveState ww7_s9cA ww8_s9cB ww9_s9cC ww10_s9cD -> FRP.Sodium.Plain.sync1$6 $wa11_s9bE ipv12_s9cz ww7_s9cA ww8_s9cB ww9_s9cC ww10_s9cD))))))) (Data.Sequence.Empty -> let !ds7_saen = FRP.Sodium.Plain.$wa10 sc4_s9bT sc5_s9bV sc6_s9bW sc2_s9c3 in select ds7_saen (<{GHC.Tuple.(,)}> ipv10_s9cJ ipv11_s9cH -> select ipv11_s9cH (Data.Maybe.Nothing -> FRP.Sodium.Plain.sync1$6 $wa11_s9bE ipv10_s9cJ Data.Sequence.Empty (FRP.Sodium.Plain.PriorityQueue sc3_s9bS (GHC.STRef.STRef sc4_s9bT) sc5_s9bV sc6_s9bW) Data.Sequence.Empty sc1_s9bZ) (Data.Maybe.Just ds8_s9cT -> let !ds9_saet = ds8_s9cT (FRP.Sodium.Plain.ReactiveState Data.Sequence.Empty (FRP.Sodium.Plain.PriorityQueue sc3_s9bS (GHC.STRef.STRef sc4_s9bT) sc5_s9bV sc6_s9bW) Data.Sequence.Empty sc1_s9bZ) ipv10_s9cJ in select ds9_saet (<{GHC.Tuple.(,)}> ipv12_s9db ipv13_s9cX -> select ipv13_s9cX (<{GHC.Tuple.(,)}> a7_sady <{s'_s9d1}> -> select <{s'_s9d1}> (FRP.Sodium.Plain.ReactiveState ww_s9d7 ww1_s9d8 ww2_s9d9 ww3_s9da -> let !ds10_saeq = $wa11_s9bE ww_s9d7 ww1_s9d8 ww2_s9d9 ww3_s9da ipv12_s9db in select ds10_saeq (<{GHC.Tuple.(,)}> ipv14_s9dp ipv15_s9df -> select ipv15_s9df (<{GHC.Tuple.(,)}> ww4_sadz ww5_s9dj -> select ww5_s9dj (FRP.Sodium.Plain.ReactiveState ww7_s9dq ww8_s9dr ww9_s9ds ww10_s9dt -> FRP.Sodium.Plain.sync1$6 $wa11_s9bE ipv14_s9dp ww7_s9dq ww8_s9dr ww9_s9ds ww10_s9dt))))))))) FRP.Sodium.Plain.sync1$212 sc_s9bJ = let !ww_saef = Data.Sequence.$wsplitAt (GHC.Types.I# 1) sc_s9bJ in select ww_saef (<{GHC.Tuple.(,)}> ww1_sads ww2_s9bQ -> ww2_s9bQ) FRP.Sodium.Plain.sync1$122 $wa11_s9bE ww_s9eh ww1_s9eq ww2_s9er ww3_s9es w_s9ev = select ww_s9eh (_ -> let !ds7_saeE = Data.Sequence.$windex ww_s9eh 0 (FRP.Sodium.Plain.ReactiveState (FRP.Sodium.Plain.sync1$213 ww_s9eh) ww1_s9eq ww2_s9er ww3_s9es) w_s9ev in select ds7_saeE (<{GHC.Tuple.(,)}> ipv10_s9eN ipv11_s9ez -> select ipv11_s9ez (<{GHC.Tuple.(,)}> a7_sadP <{s'_s9eD}> -> select <{s'_s9eD}> (FRP.Sodium.Plain.ReactiveState ww4_s9eJ ww5_s9eK ww6_s9eL ww7_s9eM -> let !ds8_saeB = $wa11_s9bE ww4_s9eJ ww5_s9eK ww6_s9eL ww7_s9eM ipv10_s9eN in select ds8_saeB (<{GHC.Tuple.(,)}> ipv12_s9f1 ipv13_s9eR -> select ipv13_s9eR (<{GHC.Tuple.(,)}> ww8_sadQ ww9_s9eV -> select ww9_s9eV (FRP.Sodium.Plain.ReactiveState ww11_s9f2 ww12_s9f3 ww13_s9f4 ww14_s9f5 -> FRP.Sodium.Plain.sync1$7 $wa11_s9bE ipv12_s9f1 ww11_s9f2 ww12_s9f3 ww13_s9f4 ww14_s9f5))))))) (Data.Sequence.Empty -> select ww1_s9eq (FRP.Sodium.Plain.PriorityQueue ww4_sadW ww5_s9fb ww6_s9ff ww7_s9fg -> select ww5_s9fb (GHC.STRef.STRef ww9_s9fe -> let !ds7_saeG = FRP.Sodium.Plain.$wa10 ww9_s9fe ww6_s9ff ww7_s9fg w_s9ev in select ds7_saeG (<{GHC.Tuple.(,)}> ipv10_s9fx ipv11_s9fk -> select ipv11_s9fk (Data.Maybe.Nothing -> select ww2_s9er (_ -> let !ds8_saeO = Data.Sequence.$windex ww2_s9er 0 (FRP.Sodium.Plain.ReactiveState Data.Sequence.Empty ww1_s9eq (FRP.Sodium.Plain.sync1$214 ww2_s9er) ww3_s9es) ipv10_s9fx in select ds8_saeO (<{GHC.Tuple.(,)}> ipv12_s9fP ipv13_s9fB -> select ipv13_s9fB (<{GHC.Tuple.(,)}> a7_sadU <{s'_s9fF}> -> select <{s'_s9fF}> (FRP.Sodium.Plain.ReactiveState ww10_s9fL ww11_s9fM ww12_s9fN ww13_s9fO -> let !ds9_saeL = $wa11_s9bE ww10_s9fL ww11_s9fM ww12_s9fN ww13_s9fO ipv12_s9fP in select ds9_saeL (<{GHC.Tuple.(,)}> ipv14_s9g3 ipv15_s9fT -> select ipv15_s9fT (<{GHC.Tuple.(,)}> ww14_sadV ww15_s9fX -> select ww15_s9fX (FRP.Sodium.Plain.ReactiveState ww17_s9g4 ww18_s9g5 ww19_s9g6 ww20_s9g7 -> FRP.Sodium.Plain.sync1$7 $wa11_s9bE ipv14_s9g3 ww17_s9g4 ww18_s9g5 ww19_s9g6 ww20_s9g7))))))) (Data.Sequence.Empty -> FRP.Sodium.Plain.sync1$7 $wa11_s9bE ipv10_s9fx Data.Sequence.Empty ww1_s9eq Data.Sequence.Empty ww3_s9es)) (Data.Maybe.Just ds8_s9ga -> let !ds9_saeU = ds8_s9ga (FRP.Sodium.Plain.ReactiveState Data.Sequence.Empty ww1_s9eq ww2_s9er ww3_s9es) ipv10_s9fx in select ds9_saeU (<{GHC.Tuple.(,)}> ipv12_s9gs ipv13_s9ge -> select ipv13_s9ge (<{GHC.Tuple.(,)}> a7_sadY <{s'_s9gi}> -> select <{s'_s9gi}> (FRP.Sodium.Plain.ReactiveState ww10_s9go ww11_s9gp ww12_s9gq ww13_s9gr -> let !ds10_saeR = $wa11_s9bE ww10_s9go ww11_s9gp ww12_s9gq ww13_s9gr ipv12_s9gs in select ds10_saeR (<{GHC.Tuple.(,)}> ipv14_s9gG ipv15_s9gw -> select ipv15_s9gw (<{GHC.Tuple.(,)}> ww14_sadZ ww15_s9gA -> select ww15_s9gA (FRP.Sodium.Plain.ReactiveState ww17_s9gH ww18_s9gI ww19_s9gJ ww20_s9gK -> FRP.Sodium.Plain.sync1$7 $wa11_s9bE ipv14_s9gG ww17_s9gH ww18_s9gI ww19_s9gJ ww20_s9gK))))))))))) FRP.Sodium.Plain.sync1$213 ww_s9eh = let !ww4_saey = Data.Sequence.$wsplitAt (GHC.Types.I# 1) ww_s9eh in select ww4_saey (<{GHC.Tuple.(,)}> ww5_sadN ww6_s9eo -> ww6_s9eo) FRP.Sodium.Plain.sync1$214 ww2_s9er = let !ww10_saeI = Data.Sequence.$wsplitAt (GHC.Types.I# 1) ww2_s9er in select ww10_saeI (<{GHC.Tuple.(,)}> ww11_sadS ww12_s9ft -> ww12_s9ft) FRP.Sodium.Plain.sync1$123 ipv1_s9gX task_s9gP eta1_s9gN s_s9gO = let !ds7_saeW = task_s9gP eta1_s9gN s_s9gO in select ds7_saeW (<{GHC.Tuple.(,)}> ipv10_s9gZ ipv11_s9gT -> select ipv11_s9gT (<{GHC.Tuple.(,)}> a7_s9gY <{s'_s9h2}> -> let !s2#1_s9h1 = writeMutVar# ipv1_s9gX a7_s9gY ipv10_s9gZ in <{GHC.Tuple.(,)}> s2#1_s9h1 (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> <{s'_s9h2}>))) FRP.Sodium.Plain.sync1$6 $wa11_s9bE w_s9bl ww_s9ba ww1_s9bb ww2_s9bc ww3_s9b7 = select ww3_s9b7 (_ -> let !ds7_saee = Data.Sequence.$windex ww3_s9b7 0 (FRP.Sodium.Plain.ReactiveState ww_s9ba ww1_s9bb ww2_s9bc (FRP.Sodium.Plain.sync1$215 ww3_s9b7)) w_s9bl in select ds7_saee (<{GHC.Tuple.(,)}> ipv10_s9bD ipv11_s9bp -> select ipv11_s9bp (<{GHC.Tuple.(,)}> a7_sadq <{s'_s9bt}> -> select <{s'_s9bt}> (FRP.Sodium.Plain.ReactiveState ww4_s9bz ww5_s9bA ww6_s9bB ww7_s9bC -> $wa11_s9bE ww4_s9bz ww5_s9bA ww6_s9bB ww7_s9bC ipv10_s9bD)))) (Data.Sequence.Empty -> <{GHC.Tuple.(,)}> w_s9bl (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.ReactiveState ww_s9ba ww1_s9bb ww2_s9bc Data.Sequence.Empty))) FRP.Sodium.Plain.sync1$215 ww3_s9b7 = let !ww4_saeb = Data.Sequence.$wsplitAt (GHC.Types.I# 1) ww3_s9b7 in select ww4_saeb (<{GHC.Tuple.(,)}> ww5_sado ww6_s9bh -> ww6_s9bh) FRP.Sodium.Plain.sync1$7 $wa11_s9bE w1_s9dU ww4_s9dJ ww5_s9dK ww6_s9dL ww7_s9dG = select ww7_s9dG (_ -> let !ds7_saex = Data.Sequence.$windex ww7_s9dG 0 (FRP.Sodium.Plain.ReactiveState ww4_s9dJ ww5_s9dK ww6_s9dL (FRP.Sodium.Plain.sync1$216 ww7_s9dG)) w1_s9dU in select ds7_saex (<{GHC.Tuple.(,)}> ipv10_s9ec ipv11_s9dY -> select ipv11_s9dY (<{GHC.Tuple.(,)}> a7_sadL <{s'_s9e2}> -> select <{s'_s9e2}> (FRP.Sodium.Plain.ReactiveState ww8_s9e8 ww9_s9e9 ww10_s9ea ww11_s9eb -> $wa11_s9bE ww8_s9e8 ww9_s9e9 ww10_s9ea ww11_s9eb ipv10_s9ec)))) (Data.Sequence.Empty -> <{GHC.Tuple.(,)}> w1_s9dU (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.ReactiveState ww4_s9dJ ww5_s9dK ww6_s9dL Data.Sequence.Empty))) FRP.Sodium.Plain.sync1$216 ww7_s9dG = let !ww8_saeu = Data.Sequence.$wsplitAt (GHC.Types.I# 1) ww7_s9dG in select ww8_saeu (<{GHC.Tuple.(,)}> ww9_sadJ ww10_s9dQ -> ww10_s9dQ) FRP.Sodium.Plain.sync eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.sync1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.newNode1 eta_s9hz = select FRP.Sodium.Plain.partition (FRP.Sodium.Plain.Partition ds_saf6 ds1_s9hv -> select ds1_s9hv (GHC.STRef.STRef var#_s9hy -> let !ds2_saf4 = readMutVar# var#_s9hy eta_s9hz in select ds2_saf4 (<{GHC.Tuple.(,)}> ipv_s9hD ipv1_s9hQ -> let !ds3_saf3 = readMutVar# var#_s9hy ipv_s9hD in select ds3_saf3 (<{GHC.Tuple.(,)}> ipv2_s9hJ ipv3_s9hH -> let !s2#_s9hL = writeMutVar# var#_s9hy (GHC.Enum.$fEnumInt_$csucc ipv3_s9hH) ipv2_s9hJ, !ds4_saf8 = newMVar# s2#_s9hL in select ds4_saf8 (<{GHC.Tuple.(,)}> ipv4_s9hU ipv5_s9hP -> let !s2#1_s9hW = putMVar# ipv5_s9hP (FRP.Sodium.Plain.Node ipv1_s9hQ (GHC.Int.I64# 0) Data.Map.Base.Tip) ipv4_s9hU in <{GHC.Tuple.(,)}> s2#1_s9hW (GHC.MVar.MVar ipv5_s9hP)))))) FRP.Sodium.Plain.newNode eta_B1_B1 = FRP.Sodium.Plain.newNode1 eta_B1_B1 FRP.Sodium.Plain.scheduleLast1 task_s9ib eta1_s9i2 s_s9i1 = <{GHC.Tuple.(,)}> s_s9i1 (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.scheduleLast1$32 eta1_s9i2 task_s9ib)) FRP.Sodium.Plain.scheduleLast1$32 eta1_s9i2 task_s9ib = select eta1_s9i2 (FRP.Sodium.Plain.ReactiveState ds_s9i8 ds1_s9i9 ds2_s9ia ds3_s9id -> FRP.Sodium.Plain.ReactiveState ds_s9i8 ds1_s9i9 (Data.Sequence.filter_snocTree ds2_s9ia task_s9ib) ds3_s9id) FRP.Sodium.Plain.scheduleLast eta_B1_B1 = FRP.Sodium.Plain.scheduleLast1 eta_B1_B1 FRP.Sodium.Plain.scheduleEarly1 task_s9is eta1_s9il s_s9ik = <{GHC.Tuple.(,)}> s_s9ik (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.scheduleEarly1$33 eta1_s9il task_s9is)) FRP.Sodium.Plain.scheduleEarly1$33 eta1_s9il task_s9is = select eta1_s9il (FRP.Sodium.Plain.ReactiveState ds_s9ir ds1_s9iu ds2_s9iv ds3_s9iw -> FRP.Sodium.Plain.ReactiveState (Data.Sequence.filter_snocTree ds_s9ir task_s9is) ds1_s9iu ds2_s9iv ds3_s9iw) FRP.Sodium.Plain.scheduleEarly eta_B1_B1 = FRP.Sodium.Plain.scheduleEarly1 eta_B1_B1 FRP.Sodium.Plain.split3 doListen_s9jc eta_s9iR s_s9iD = let !ds_safm = newMVar# s_s9iD in select ds_safm (<{GHC.Tuple.(,)}> ipv_s9iN ipv1_s9iH -> let !s2#_s9iP = putMVar# ipv1_s9iH (Data.Maybe.Just FRP.Sodium.Plain.split3$124) ipv_s9iN in <{GHC.Tuple.(,)}> s2#_s9iP (<{GHC.Tuple.(,)}> (GHC.MVar.MVar ipv1_s9iH) (FRP.Sodium.Plain.split3$34 doListen_s9jc eta_s9iR ipv1_s9iH))) FRP.Sodium.Plain.split3$124 s1_s9iJ = <{GHC.Tuple.(,)}> s1_s9iJ <{GHC.Tuple.()}> FRP.Sodium.Plain.split3$34 doListen_s9jc eta_s9iR ipv1_s9iH = select eta_s9iR (FRP.Sodium.Plain.ReactiveState ds1_s9iX ds2_s9ju ds3_s9jv ds4_s9jw -> FRP.Sodium.Plain.ReactiveState (Data.Sequence.filter_snocTree ds1_s9iX (FRP.Sodium.Plain.split3$125 doListen_s9jc ipv1_s9iH)) ds2_s9ju ds3_s9jv ds4_s9jw) FRP.Sodium.Plain.split3$125 doListen_s9jc ipv1_s9iH eta1_s9j9 s1_s9j0 = let !ds5_safo = takeMVar# ipv1_s9iH s1_s9j0 in select ds5_safo (<{GHC.Tuple.(,)}> ipv2_s9j6 ipv3_s9j4 -> select ipv3_s9j4 (Data.Maybe.Nothing -> let !s2#1_s9j8 = putMVar# ipv1_s9iH Data.Maybe.Nothing ipv2_s9j6 in <{GHC.Tuple.(,)}> s2#1_s9j8 (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta1_s9j9)) (Data.Maybe.Just ds6_safl -> let !ds7_safr = doListen_s9jc eta1_s9j9 ipv2_s9j6 in select ds7_safr (<{GHC.Tuple.(,)}> ipv4_s9jm ipv5_s9jg -> select ipv5_s9jg (<{GHC.Tuple.(,)}> a7_s9jk <{s'_s9jp}> -> let !s2#1_s9jo = putMVar# ipv1_s9iH (Data.Maybe.Just a7_s9jk) ipv4_s9jm in <{GHC.Tuple.(,)}> s2#1_s9jo (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> <{s'_s9jp}>))))) FRP.Sodium.Plain.later eta_B1_B1 = FRP.Sodium.Plain.split3 eta_B1_B1 FRP.Sodium.Plain.hold1 initA_s9jF ea_s9jN eta_s9kV s_s9jJ = let !ds_safO = newMutVar# (FRP.Sodium.Plain.hold1$217 initA_s9jF) s_s9jJ in select ds_safO (<{GHC.Tuple.(,)}> ipv_s9kW ipv1_s9jR -> let !ds1_safZ = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen ea_s9jN Data.Maybe.Nothing false (FRP.Sodium.Plain.hold1$128 ipv1_s9jR)) eta_s9kV ipv_s9kW in select ds1_safZ (<{GHC.Tuple.(,)}> ipv2_s9lG ipv3_s9l0 -> select ipv3_s9l0 (<{GHC.Tuple.(,)}> a7_s9lk <{s'_s9lR}> -> let !ds2_sag3 = FRP.Sodium.Plain.finalizeSample (FRP.Sodium.Plain.Sample (FRP.Sodium.Plain.hold1$127 ipv1_s9jR) ea_s9jN) (FRP.Sodium.Plain.hold1$126 a7_s9lk) ipv2_s9lG in select ds2_sag3 (<{GHC.Tuple.(,)}> ipv4_s9lK ipv5_s9lL -> <{GHC.Tuple.(,)}> ipv4_s9lK (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.hold1$35 ea_s9jN ipv5_s9lL) <{s'_s9lR}>))))) FRP.Sodium.Plain.hold1$217 initA_s9jF = let !initA1_s9jH = initA_s9jF in FRP.Sodium.Plain.BehaviorState initA1_s9jH Data.Maybe.Nothing FRP.Sodium.Plain.hold1$126 a7_s9lk s1_s9lo = select a7_s9lk (GHC.MVar.MVar mvar#_s9ln -> let !ds2_safW = takeMVar# mvar#_s9ln s1_s9lo in select ds2_safW (<{GHC.Tuple.(,)}> ipv4_s9lu ipv5_s9ls -> select ipv5_s9ls (Data.Maybe.Nothing -> let !s2#_s9lw = putMVar# mvar#_s9ln Data.Maybe.Nothing ipv4_s9lu in <{GHC.Tuple.(,)}> s2#_s9lw <{GHC.Tuple.()}>) (Data.Maybe.Just v_s9ly -> let !ds3_sag0 = v_s9ly ipv4_s9lu in select ds3_sag0 (<{GHC.Tuple.(,)}> ipv6_s9lC ipv7_safJ -> let !s2#_s9lE = putMVar# mvar#_s9ln Data.Maybe.Nothing ipv6_s9lC in <{GHC.Tuple.(,)}> s2#_s9lE <{GHC.Tuple.()}>)))) FRP.Sodium.Plain.hold1$127 ipv1_s9jR s1_s9l5 = let !ds2_sag2 = readMutVar# ipv1_s9jR s1_s9l5 in select ds2_sag2 (<{GHC.Tuple.(,)}> ipv4_s9l9 ipv5_s9la -> <{GHC.Tuple.(,)}> ipv4_s9l9 (FRP.Sodium.Plain.hold1$36 ipv5_s9la)) FRP.Sodium.Plain.hold1$128 ipv1_s9jR a7_s9jW eta1_s9ke s1_s9jS = let !ds1_safN = readMutVar# ipv1_s9jR s1_s9jS in select ds1_safN (<{GHC.Tuple.(,)}> ipv2_s9k6 ipv3_s9jY -> let !s2#_s9kd = writeMutVar# ipv1_s9jR (FRP.Sodium.Plain.hold1$218 a7_s9jW ipv3_s9jY) ipv2_s9k6 in select ipv3_s9jY (FRP.Sodium.Plain.BehaviorState ds2_safx ds3_s9kb -> select ds3_s9kb (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> s2#_s9kd (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.hold1$37 eta1_s9ke ipv1_s9jR))) (Data.Maybe.Just ipv4_safz -> <{GHC.Tuple.(,)}> s2#_s9kd (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta1_s9ke)))) FRP.Sodium.Plain.hold1$218 a7_s9jW ipv3_s9jY = let !a8_s9k3 = a7_s9jW in select ipv3_s9jY (FRP.Sodium.Plain.BehaviorState ds2_s9k2 ds3_safL -> FRP.Sodium.Plain.BehaviorState ds2_s9k2 (Data.Maybe.Just a8_s9k3)) FRP.Sodium.Plain.hold1$35 ea_s9jN ipv5_s9lL = select ipv5_s9lL (FRP.Sodium.Plain.Sample ipv6_safF ipv7_safG -> FRP.Sodium.Plain.Behavior ea_s9jN ipv5_s9lL) FRP.Sodium.Plain.hold1$36 ipv5_s9la = select ipv5_s9la (FRP.Sodium.Plain.BehaviorState ds3_s9le ds4_safH -> ds3_s9le) FRP.Sodium.Plain.hold1$37 eta1_s9ke ipv1_s9jR = select eta1_s9ke (FRP.Sodium.Plain.ReactiveState ds4_s9kk ds5_s9kl ds6_s9km ds7_s9kM -> FRP.Sodium.Plain.ReactiveState ds4_s9kk ds5_s9kl (Data.Sequence.filter_snocTree ds6_s9km (Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO (FRP.Sodium.Plain.hold1$129 ipv1_s9jR))) ds7_s9kM) FRP.Sodium.Plain.hold1$129 ipv1_s9jR s2_s9ko = let !ds8_safR = readMutVar# ipv1_s9jR s2_s9ko in select ds8_safR (<{GHC.Tuple.(,)}> ipv4_s9kE ipv5_s9ks -> let !s2#1_s9kG = writeMutVar# ipv1_s9jR (FRP.Sodium.Plain.hold1$38 ipv5_s9ks) ipv4_s9kE in <{GHC.Tuple.(,)}> s2#1_s9kG <{GHC.Tuple.()}>) FRP.Sodium.Plain.hold1$38 ipv5_s9ks = select ipv5_s9ks (FRP.Sodium.Plain.BehaviorState ds9_safA ds10_s9kw -> select ds10_s9kw (Data.Maybe.Nothing -> Data.Maybe.fromJust1) (Data.Maybe.Just x_s9kA -> let !newCurrent_s9kC = x_s9kA in FRP.Sodium.Plain.BehaviorState newCurrent_s9kC Data.Maybe.Nothing)) FRP.Sodium.Plain.hold eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.hold1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.dirtyPrioritized1 eta_s9lW s_s9mc = select eta_s9lW (FRP.Sodium.Plain.ReactiveState ds_sag8 ds1_s9m2 ds2_sag9 ds3_saga -> select ds1_s9m2 (FRP.Sodium.Plain.PriorityQueue ds4_sag6 ds5_s9m8 ds6_sagb ds7_sagc -> select ds5_s9m8 (GHC.STRef.STRef var#_s9mb -> let !s2#_s9me = writeMutVar# var#_s9mb true s_s9mc in <{GHC.Tuple.(,)}> s2#_s9me (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta_s9lW)))) FRP.Sodium.Plain.dirtyPrioritized =: FRP.Sodium.Plain.dirtyPrioritized1 FRP.Sodium.Plain.split4 eta_s9mp = select FRP.Sodium.Plain.partition (FRP.Sodium.Plain.Partition ds_sahd ds1_s9ml -> select ds1_s9ml (GHC.STRef.STRef var#_s9mo -> let !ds2_sahb = readMutVar# var#_s9mo eta_s9mp in select ds2_sahb (<{GHC.Tuple.(,)}> ipv_s9mt ipv1_s9mG -> let !ds3_saha = readMutVar# var#_s9mo ipv_s9mt in select ds3_saha (<{GHC.Tuple.(,)}> ipv2_s9mz ipv3_s9mx -> let !s2#_s9mB = writeMutVar# var#_s9mo (GHC.Enum.$fEnumInt_$csucc ipv3_s9mx) ipv2_s9mz, !ds4_sahf = newMVar# s2#_s9mB in select ds4_sahf (<{GHC.Tuple.(,)}> ipv4_s9mK ipv5_s9mF -> let !s2#1_s9mM = putMVar# ipv5_s9mF (FRP.Sodium.Plain.Node ipv1_s9mG (GHC.Int.I64# 0) Data.Map.Base.Tip) ipv4_s9mK, !ds5_sahg = newMVar# s2#1_s9mM in select ds5_sahg (<{GHC.Tuple.(,)}> ipv6_s9mU ipv7_s9mQ -> let !s2#2_s9mW = putMVar# ipv7_s9mQ (FRP.Sodium.Plain.Observer (GHC.Int.I64# 0) Data.Map.Base.Tip <{GHC.Types.[]}>) ipv6_s9mU, !ds6_sahi = newMutVar# Data.Maybe.Nothing s2#2_s9mW in select ds6_sahi (<{GHC.Tuple.(,)}> ipv8_s9n0 ipv9_sah7 -> let !ds7_sahh = newMVar# ipv8_s9n0 in select ds7_sahh (<{GHC.Tuple.(,)}> ipv10_s9na ipv11_s9n7 -> let !ds8_sahj = GHC.IO.unsafeDupableInterleaveIO (FRP.Sodium.Plain.split4$130 ipv11_s9n7) ipv10_s9na in select ds8_sahj (<{GHC.Tuple.(,)}> ipv12_s9rl ipv13_sah5 -> let mvObs_s9nf = GHC.MVar.MVar ipv7_s9mQ, ipv14_s9nh = GHC.MVar.MVar ipv5_s9mF, !ds9_sahQ = FRP.Sodium.Plain.wrap (FRP.Sodium.Plain.split4$131 ipv14_s9nh mvObs_s9nf) ipv12_s9rl in select ds9_sahQ (<{GHC.Tuple.(,)}> ipv15_s9rq ipv16_s9rp -> let !s2#3_s9rs = putMVar# ipv11_s9n7 ipv16_s9rp ipv15_s9rq in <{GHC.Tuple.(,)}> s2#3_s9rs (<{GHC.Tuple.(,,)}> ipv16_s9rp (FRP.Sodium.Plain.split4$132 mvObs_s9nf) ipv14_s9nh))))))))))) FRP.Sodium.Plain.split4$130 ipv11_s9n7 s_s9n5 = let !<{s'_s9n8}> = noDuplicate# s_s9n5 in takeMVar# ipv11_s9n7 <{s'_s9n8}> FRP.Sodium.Plain.split4$131 ipv14_s9nh mvObs_s9nf mMvTarget_s9oZ suppressEarlierFirings_s9p1 handle_s9nG = FRP.Sodium.Plain.split4$134 (FRP.Sodium.Plain.split4$133 handle_s9nG ipv14_s9nh mvObs_s9nf) handle_s9nG ipv14_s9nh mMvTarget_s9oZ mvObs_s9nf suppressEarlierFirings_s9p1 FRP.Sodium.Plain.split4$133 handle_s9nG ipv14_s9nh mvObs_s9nf ob_s9nq s_s9no = let iD_s9nw = FRP.Sodium.Plain.split4$42 ob_s9nq in <{GHC.Tuple.(,)}> s_s9no (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.split4$44 handle_s9nG iD_s9nw ob_s9nq) (<{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.split4$43 ob_s9nq) (FRP.Sodium.Plain.split4$135 iD_s9nw ipv14_s9nh mvObs_s9nf) iD_s9nw)) FRP.Sodium.Plain.split4$135 iD_s9nw ipv14_s9nh mvObs_s9nf s1_s9of = let !ds9_sahp = FRP.Sodium.Plain.linkNode2 mvObs_s9nf (FRP.Sodium.Plain.split4$136 iD_s9nw) s1_s9of in select ds9_sahp (<{GHC.Tuple.(,)}> ipv15_s9oB ipv16_sagi -> let !ds10_sahq = FRP.Sodium.Plain.linkNode2 ipv14_s9nh (FRP.Sodium.Plain.split4$137 iD_s9nw) ipv15_s9oB in select ds10_sahq (<{GHC.Tuple.(,)}> ipv17_s9oF ipv18_sagg -> <{GHC.Tuple.(,)}> ipv17_s9oF <{GHC.Tuple.()}>)) FRP.Sodium.Plain.split4$136 iD_s9nw ob1_s9o0 s2_s9nZ = <{GHC.Tuple.(,)}> s2_s9nZ (FRP.Sodium.Plain.split4$46 iD_s9nw ob1_s9o0) FRP.Sodium.Plain.split4$137 iD_s9nw no_s9om s2_s9ol = <{GHC.Tuple.(,)}> s2_s9ol (FRP.Sodium.Plain.split4$45 iD_s9nw no_s9om) FRP.Sodium.Plain.split4$134 a7_s9oN handle_s9nG ipv14_s9nh mMvTarget_s9oZ mvObs_s9nf suppressEarlierFirings_s9p1 eta1_s9pC s_s9oQ = let !ds9_sahx = FRP.Sodium.Plain.modifyMVar1 mvObs_s9nf a7_s9oN s_s9oQ in select ds9_sahx (<{GHC.Tuple.(,)}> ipv15_s9pD ipv16_s9oU -> select ipv16_s9oU (<{GHC.Tuple.(,,)}> firings_s9pB unlisten_s9pM iD_s9pR -> select mMvTarget_s9oZ (Data.Maybe.Nothing -> if suppressEarlierFirings_s9p1 (<{GHC.Tuple.(,)}> ipv15_s9pD (<{GHC.Tuple.(,)}> unlisten_s9pM eta1_s9pC)) (let go_s9pl = FRP.Sodium.Plain.split4$139 FRP.Sodium.Plain.split4$138 go_s9pl handle_s9nG, !ds10_sahC = go_s9pl firings_s9pB eta1_s9pC ipv15_s9pD in select ds10_sahC (<{GHC.Tuple.(,)}> ipv17_s9pL ipv18_s9pH -> select ipv18_s9pH (<{GHC.Tuple.(,)}> a9_sags <{s'_s9pN}> -> <{GHC.Tuple.(,)}> ipv17_s9pL (<{GHC.Tuple.(,)}> unlisten_s9pM <{s'_s9pN}>))))) (Data.Maybe.Just mvTarget_s9pS -> let !ds10_sahG = FRP.Sodium.Plain.linkNode1 ipv14_s9nh iD_s9pR mvTarget_s9pS ipv15_s9pD in select ds10_sahG (<{GHC.Tuple.(,)}> ipv17_s9qG ipv18_s9qE -> let !rma_s9qD = FRP.Sodium.Plain.split4$41 firings_s9pB handle_s9nG suppressEarlierFirings_s9p1 in if ipv18_s9qE (select eta1_s9pC (FRP.Sodium.Plain.ReactiveState ds11_sagz ds12_s9qW ds13_sagE ds14_sagF -> select ds12_s9qW (FRP.Sodium.Plain.PriorityQueue ds15_sagA ds16_s9r2 ds17_sagC ds18_sagD -> select ds16_s9r2 (GHC.STRef.STRef var#1_s9r5 -> let !s2#3_s9r8 = writeMutVar# var#1_s9r5 true ipv17_s9qG, !ds19_sahI = rma_s9qD eta1_s9pC s2#3_s9r8 in select ds19_sahI (<{GHC.Tuple.(,)}> ipv19_s9rg ipv20_s9rc -> select ipv20_s9rc (<{GHC.Tuple.(,)}> a8_sagB <{s'_s9rh}> -> <{GHC.Tuple.(,)}> ipv19_s9rg (<{GHC.Tuple.(,)}> unlisten_s9pM <{s'_s9rh}>))))))) (let !ds11_sahE = rma_s9qD eta1_s9pC ipv17_s9qG in select ds11_sahE (<{GHC.Tuple.(,)}> ipv19_s9qO ipv20_s9qK -> select ipv20_s9qK (<{GHC.Tuple.(,)}> a8_sagG <{s'_s9qP}> -> <{GHC.Tuple.(,)}> ipv19_s9qO (<{GHC.Tuple.(,)}> unlisten_s9pM <{s'_s9qP}>)))))))) FRP.Sodium.Plain.split4$138 eta2_s9p7 s1_s9p6 = <{GHC.Tuple.(,)}> s1_s9p6 (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta2_s9p7) FRP.Sodium.Plain.split4$139 a8_s9p9 go_s9pl handle_s9nG ds10_s9pc = select ds10_s9pc (<{GHC.Types.[]}> -> a8_s9p9) (<{GHC.Types.:}> y_s9ph ys_s9pk -> FRP.Sodium.Plain.split4$140 (handle_s9nG y_s9ph) (go_s9pl ys_s9pk)) FRP.Sodium.Plain.split4$140 rma_s9pi ys1_s9pm eta2_s9pp s1_s9pq = let !ds11_sahA = rma_s9pi eta2_s9pp s1_s9pq in select ds11_sahA (<{GHC.Tuple.(,)}> ipv17_s9pz ipv18_s9pu -> select ipv18_s9pu (<{GHC.Tuple.(,)}> a9_sagr <{s'_s9py}> -> ys1_s9pm <{s'_s9py}> ipv17_s9pz)) FRP.Sodium.Plain.split4$132 mvObs_s9nf a7_s9rF = FRP.Sodium.Plain.split4$142 a7_s9rF (FRP.Sodium.Plain.split4$141 a7_s9rF) mvObs_s9nf FRP.Sodium.Plain.split4$141 a7_s9rF ob_s9ry s_s9rx = <{GHC.Tuple.(,)}> s_s9rx (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.split4$40 a7_s9rF ob_s9ry) ob_s9ry) FRP.Sodium.Plain.split4$142 a7_s9rF a8_s9rL mvObs_s9nf eta1_s9sO s_s9rO = let !ds10_sahU = seq# a7_s9rF s_s9rO in select ds10_sahU (<{GHC.Tuple.(,)}> ipv17_s9rS ipv18_sagZ -> let !ds11_sahT = FRP.Sodium.Plain.modifyMVar1 mvObs_s9nf a8_s9rL ipv17_s9rS in select ds11_sahT (<{GHC.Tuple.(,)}> ipv19_s9sN ipv20_s9rW -> select ipv20_s9rW (FRP.Sodium.Plain.Observer ds12_sagY ds13_s9sH ds14_s9sL -> select ds14_s9sL (<{GHC.Types.[]}> -> FRP.Sodium.Plain.split4$8 a7_s9rF ds13_s9sH ipv19_s9sN (FRP.Sodium.Plain.split4$39 eta1_s9sO mvObs_s9nf)) (<{GHC.Types.:}> ds15_sagU ds16_sagV -> FRP.Sodium.Plain.split4$8 a7_s9rF ds13_s9sH ipv19_s9sN eta1_s9sO)))) FRP.Sodium.Plain.split4$39 eta1_s9sO mvObs_s9nf = select eta1_s9sO (FRP.Sodium.Plain.ReactiveState ds15_s9sU ds16_s9sV ds17_s9sW ds18_s9tf -> FRP.Sodium.Plain.ReactiveState ds15_s9sU ds16_s9sV (Data.Sequence.filter_snocTree ds17_s9sW (Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO (FRP.Sodium.Plain.split4$144 mvObs_s9nf FRP.Sodium.Plain.split4$143))) ds18_s9tf) FRP.Sodium.Plain.split4$143 ob_s9t0 s1_s9sZ = <{GHC.Tuple.(,)}> s1_s9sZ (FRP.Sodium.Plain.split4$47 ob_s9t0) FRP.Sodium.Plain.split4$144 mvObs_s9nf sat_s9t9_s9t9 eta_B1_B1 = FRP.Sodium.Plain.linkNode2 mvObs_s9nf sat_s9t9_s9t9 eta_B1_B1 FRP.Sodium.Plain.split4$47 ob_s9t0 = select ob_s9t0 (FRP.Sodium.Plain.Observer ds19_s9t5 ds20_s9t6 ds21_sagW -> FRP.Sodium.Plain.Observer ds19_s9t5 ds20_s9t6 <{GHC.Types.[]}>) FRP.Sodium.Plain.split4$40 a7_s9rF ob_s9ry = select ob_s9ry (FRP.Sodium.Plain.Observer ds10_s9rD ds11_s9rE ds12_s9rG -> FRP.Sodium.Plain.Observer ds10_s9rD ds11_s9rE (<{GHC.Types.:}> a7_s9rF ds12_s9rG)) FRP.Sodium.Plain.split4$41 firings_s9pB handle_s9nG suppressEarlierFirings_s9p1 = if suppressEarlierFirings_s9p1 FRP.Sodium.Plain.split4$147 (let go_s9qg = FRP.Sodium.Plain.split4$146 FRP.Sodium.Plain.split4$145 go_s9qg handle_s9nG in go_s9qg firings_s9pB) FRP.Sodium.Plain.split4$145 eta2_s9q2 s1_s9q1 = <{GHC.Tuple.(,)}> s1_s9q1 (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta2_s9q2) FRP.Sodium.Plain.split4$146 a8_s9q4 go_s9qg handle_s9nG ds11_s9q7 = select ds11_s9q7 (<{GHC.Types.[]}> -> a8_s9q4) (<{GHC.Types.:}> y_s9qc ys_s9qf -> FRP.Sodium.Plain.split4$148 (handle_s9nG y_s9qc) (go_s9qg ys_s9qf)) FRP.Sodium.Plain.split4$148 rma1_s9qd ys1_s9qh eta2_s9qk s1_s9ql = let !ds12_sahO = rma1_s9qd eta2_s9qk s1_s9ql in select ds12_sahO (<{GHC.Tuple.(,)}> ipv19_s9qu ipv20_s9qp -> select ipv20_s9qp (<{GHC.Tuple.(,)}> a9_sagx <{s'_s9qt}> -> ys1_s9qh <{s'_s9qt}> ipv19_s9qu)) FRP.Sodium.Plain.split4$147 eta2_s9qz s1_s9qy = <{GHC.Tuple.(,)}> s1_s9qy (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta2_s9qz) FRP.Sodium.Plain.split4$42 ob_s9nq = select ob_s9nq (FRP.Sodium.Plain.Observer ds9_s9nv ds10_sah2 ds11_sah3 -> ds9_s9nv) FRP.Sodium.Plain.split4$43 ob_s9nq = select ob_s9nq (FRP.Sodium.Plain.Observer ds9_sagm ds10_sagn ds11_s9nU -> GHC.List.reverse1 ds11_s9nU <{GHC.Types.[]}>) FRP.Sodium.Plain.split4$44 handle_s9nG iD_s9nw ob_s9nq = select iD_s9nw (GHC.Int.I64# a8_s9nz -> select a8_s9nz (_ -> select ob_s9nq (FRP.Sodium.Plain.Observer ds9_sagl ds10_s9nH ds11_s9nN -> let !<{listeners'_s9nM}> = FRP.Sodium.Plain.$sinsert_$s$sgo10 a8_s9nz handle_s9nG ds10_s9nH, !sat_s9nK_s9nK = <{+#}> a8_s9nz 1 in FRP.Sodium.Plain.Observer (GHC.Int.I64# sat_s9nK_s9nK) <{listeners'_s9nM}> ds11_s9nN)) (9223372036854775807 -> GHC.Int.$fEnumInt9)) FRP.Sodium.Plain.split4$45 iD_s9nw no_s9om = select no_s9om (FRP.Sodium.Plain.Node ds10_s9ow ds11_s9ox ds12_s9ou -> select iD_s9nw (GHC.Int.I64# ww_s9ot -> let !<{listeners'_s9oy}> = FRP.Sodium.Plain.$w$sgo10 ww_s9ot ds12_s9ou in FRP.Sodium.Plain.Node ds10_s9ow ds11_s9ox <{listeners'_s9oy}>)) FRP.Sodium.Plain.split4$46 iD_s9nw ob1_s9o0 = select ob1_s9o0 (FRP.Sodium.Plain.Observer ds9_s9oa ds10_s9o8 ds11_s9oc -> select iD_s9nw (GHC.Int.I64# ww_s9o7 -> let !<{listeners'_s9ob}> = FRP.Sodium.Plain.$w$sgo10 ww_s9o7 ds10_s9o8 in FRP.Sodium.Plain.Observer ds9_s9oa <{listeners'_s9ob}> ds11_s9oc)) FRP.Sodium.Plain.split4$8 a7_s9rF ds13_s9sH w_s9sJ ww_s9sI = let go10_s9sk = FRP.Sodium.Plain.split4$149 a7_s9rF go10_s9sk in go10_s9sk FRP.Sodium.Plain.split4$150 ds13_s9sH ww_s9sI w_s9sJ FRP.Sodium.Plain.split4$149 a7_s9rF go10_s9sk <{z'_s9si}> ds15_s9s7 = select ds15_s9s7 (Data.Map.Base.Bin rb_sagP kx_sagQ x_s9sf l_s9sA r_s9sj -> go10_s9sk (FRP.Sodium.Plain.split4$151 (go10_s9sk <{z'_s9si}> r_s9sj) (x_s9sf a7_s9rF)) l_s9sA) (Data.Map.Base.Tip -> <{z'_s9si}>) FRP.Sodium.Plain.split4$151 k_s9sl rma_s9sg eta2_s9so s1_s9sp = let !ds16_sahW = rma_s9sg eta2_s9so s1_s9sp in select ds16_sahW (<{GHC.Tuple.(,)}> ipv21_s9sy ipv22_s9st -> select ipv22_s9st (<{GHC.Tuple.(,)}> a9_sagM <{s'_s9sx}> -> k_s9sl <{s'_s9sx}> ipv21_s9sy)) FRP.Sodium.Plain.split4$150 eta2_s9sE s1_s9sD = <{GHC.Tuple.(,)}> s1_s9sD (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta2_s9sE) FRP.Sodium.Plain.newEventImpl eta_B1_B1 = FRP.Sodium.Plain.split4 eta_B1_B1 <{FRP.Sodium.Plain.$w$c<*>}> w_s9tp w1_s9tt = select w_s9tp (FRP.Sodium.Plain.Behavior e1_s9ub s1_s9tz -> select w1_s9tt (FRP.Sodium.Plain.Behavior e2_s9uK s2_s9tN -> FRP.Sodium.Plain.Behavior (FRP.Sodium.Plain.Event (<{FRP.Sodium.Plain.$w$c<*>$152}> e1_s9ub e2_s9uK s1_s9tz s2_s9tN) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing s2_s9tN) (<{GHC.Tuple.(,)}> e1_s9ub e2_s9uK)) (<{FRP.Sodium.Plain.$w$c<*>$48}> s1_s9tz s2_s9tN))) <{FRP.Sodium.Plain.$w$c<*>$152}> e1_s9ub e2_s9uK s1_s9tz s2_s9tN eta_s9vo s_s9tD = select s1_s9tz (FRP.Sodium.Plain.Sample ds_s9tE ds1_said -> let !ds2_sair = ds_s9tE s_s9tD in select ds2_sair (<{GHC.Tuple.(,)}> ipv_s9tJ ipv1_s9tI -> let !ds3_saiq = newMutVar# ipv1_s9tI ipv_s9tJ in select ds3_saiq (<{GHC.Tuple.(,)}> ipv2_s9tR ipv3_s9uh -> select s2_s9tN (FRP.Sodium.Plain.Sample ds4_s9tS ds5_saic -> let !ds6_saio = ds4_s9tS ipv2_s9tR in select ds6_saio (<{GHC.Tuple.(,)}> ipv4_s9tX ipv5_s9tW -> let !ds7_sain = newMutVar# ipv5_s9tW ipv4_s9tX in select ds7_sain (<{GHC.Tuple.(,)}> ipv6_s9u1 ipv7_s9ul -> let !ds8_saim = FRP.Sodium.Plain.split4 ipv6_s9u1 in select ds8_saim (<{GHC.Tuple.(,)}> ipv8_s9vp ipv9_s9u5 -> select ipv9_s9u5 (<{GHC.Tuple.(,,)}> l_s9vy push_s9ur nodeRef_s9uc -> let !ds9_saiA = FRP.Sodium.Plain.split3 (<{FRP.Sodium.Plain.$w$c<*>$153}> e2_s9uK ipv3_s9uh ipv7_s9ul nodeRef_s9uc push_s9ur (FRP.Sodium.Plain.linkedListen e1_s9ub (Data.Maybe.Just nodeRef_s9uc) false (<{FRP.Sodium.Plain.$w$c<*>$154}> ipv3_s9uh ipv7_s9ul push_s9ur))) eta_s9vo ipv8_s9vp in select ds9_saiA (<{GHC.Tuple.(,)}> ipv10_s9vA ipv11_s9vt -> select ipv11_s9vt (<{GHC.Tuple.(,)}> a7_s9vx <{s'_s9vz}> -> FRP.Sodium.Plain.split2 a7_s9vx l_s9vy <{s'_s9vz}> ipv10_s9vA)))))))))) <{FRP.Sodium.Plain.$w$c<*>$153}> e2_s9uK ipv3_s9uh ipv7_s9ul nodeRef_s9uc push_s9ur rma_s9uy eta1_s9uB s3_s9uC = let !ds9_saiv = rma_s9uy eta1_s9uB s3_s9uC in select ds9_saiv (<{GHC.Tuple.(,)}> ipv10_s9v2 ipv11_s9uG -> select ipv11_s9uG (<{GHC.Tuple.(,)}> a7_s9vd <{s'_s9v1}> -> let !ds10_saiy = FRP.Sodium.Plain.linkedListen e2_s9uK (Data.Maybe.Just nodeRef_s9uc) false (<{FRP.Sodium.Plain.$w$c<*>$155}> ipv3_s9uh ipv7_s9ul push_s9ur) <{s'_s9v1}> ipv10_s9v2 in select ds10_saiy (<{GHC.Tuple.(,)}> ipv12_s9va ipv13_s9v6 -> select ipv13_s9v6 (<{GHC.Tuple.(,)}> a8_s9vi <{s'1_s9vk}> -> <{GHC.Tuple.(,)}> ipv12_s9va (<{GHC.Tuple.(,)}> (<{FRP.Sodium.Plain.$w$c<*>$156}> a7_s9vd a8_s9vi) <{s'1_s9vk}>))))) <{FRP.Sodium.Plain.$w$c<*>$155}> ipv3_s9uh ipv7_s9ul push_s9ur a8_s9uT eta2_s9uY s4_s9uP = let !ds10_sait = readMutVar# ipv3_s9uh s4_s9uP in select ds10_sait (<{GHC.Tuple.(,)}> ipv12_s9uU ipv13_s9uW -> let !s2#_s9uZ = writeMutVar# ipv7_s9ul a8_s9uT ipv12_s9uU in push_s9ur (ipv13_s9uW a8_s9uT) eta2_s9uY s2#_s9uZ) <{FRP.Sodium.Plain.$w$c<*>$156}> a7_s9vd a8_s9vi s4_s9vc = let !ds11_saiw = a7_s9vd s4_s9vc in select ds11_saiw (<{GHC.Tuple.(,)}> ipv14_s9vh ipv15_sai8 -> a8_s9vi ipv14_s9vh) <{FRP.Sodium.Plain.$w$c<*>$154}> ipv3_s9uh ipv7_s9ul push_s9ur f_s9ui eta1_s9ut s3_s9uj = let !s2#_s9um = writeMutVar# ipv3_s9uh f_s9ui s3_s9uj, !ds9_saik = readMutVar# ipv7_s9ul s2#_s9um in select ds9_saik (<{GHC.Tuple.(,)}> ipv10_s9uu ipv11_s9uq -> push_s9ur (f_s9ui ipv11_s9uq) eta1_s9ut ipv10_s9uu) <{FRP.Sodium.Plain.$w$c<*>$48}> s1_s9tz s2_s9tN = select s1_s9tz (FRP.Sodium.Plain.Sample ds_s9vL ds1_saig -> let !nt_s9vU = ds_s9vL in select s2_s9tN (FRP.Sodium.Plain.Sample ds2_s9vQ ds3_saih -> let !nt1_s9vZ = ds2_s9vQ in FRP.Sodium.Plain.Sample (<{FRP.Sodium.Plain.$w$c<*>$157}> nt1_s9vZ nt_s9vU) (<{GHC.Tuple.(,)}> s1_s9tz s2_s9tN))) <{FRP.Sodium.Plain.$w$c<*>$157}> nt1_s9vZ nt_s9vU s_s9vT = let !ds4_saij = nt_s9vU s_s9vT in select ds4_saij (<{GHC.Tuple.(,)}> ipv_s9vY ipv1_s9w5 -> let !ds5_saii = nt1_s9vZ ipv_s9vY in select ds5_saii (<{GHC.Tuple.(,)}> ipv2_s9w3 ipv3_s9w4 -> <{GHC.Tuple.(,)}> ipv2_s9w3 (ipv1_s9w5 ipv3_s9w4))) <{FRP.Sodium.Plain.$fApplicativeBehavior_$c<*>}> eta_B2_B2 eta_B1_B1 = <{FRP.Sodium.Plain.$w$c<*>}> eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fApplicativeBehavior1 ds_s9wf eta_s9we = eta_s9we <{FRP.Sodium.Plain.$w$c<*}> w_s9wi w1_s9wS = select w_s9wi (FRP.Sodium.Plain.Behavior e_s9ws s_s9wm -> select s_s9wm (FRP.Sodium.Plain.Sample ds_s9wq ds1_saiH -> let !nt_s9wD = ds_s9wq, !ww_saiF = FRP.Sodium.Plain.$wa GHC.Base.const e_s9ws in select ww_saiF (<{GHC.Tuple.(,,)}> ww1_s9wx ww2_s9wy ww3_s9wz -> <{FRP.Sodium.Plain.$w$c<*>}> (FRP.Sodium.Plain.Behavior (FRP.Sodium.Plain.Event ww1_s9wx ww2_s9wy ww3_s9wz) (FRP.Sodium.Plain.Sample (<{FRP.Sodium.Plain.$w$c<*$158}> nt_s9wD) s_s9wm)) w1_s9wS))) <{FRP.Sodium.Plain.$w$c<*$158}> nt_s9wD s1_s9wC = let !ds2_saiE = nt_s9wD s1_s9wC in select ds2_saiE (<{GHC.Tuple.(,)}> ipv_s9wH ipv1_s9wJ -> <{GHC.Tuple.(,)}> ipv_s9wH (<{FRP.Sodium.Plain.$w$c<*$159}> ipv1_s9wJ)) <{FRP.Sodium.Plain.$w$c<*$159}> ipv1_s9wJ ds3_s9wK = ipv1_s9wJ <{FRP.Sodium.Plain.$fApplicativeBehavior_$c<*}> eta_B2_B2 eta_B1_B1 = <{FRP.Sodium.Plain.$w$c<*}> eta_B2_B2 eta_B1_B1 <{FRP.Sodium.Plain.$w$c*>}> w_s9wV w1_s9xu = select w_s9wV (FRP.Sodium.Plain.Behavior e_s9x5 s_s9wZ -> select s_s9wZ (FRP.Sodium.Plain.Sample ds_s9x3 ds1_saiO -> let !nt_s9xg = ds_s9x3, !ww_saiM = FRP.Sodium.Plain.$wa FRP.Sodium.Plain.$fApplicativeBehavior1 e_s9x5 in select ww_saiM (<{GHC.Tuple.(,,)}> ww1_s9xa ww2_s9xb ww3_s9xc -> <{FRP.Sodium.Plain.$w$c<*>}> (FRP.Sodium.Plain.Behavior (FRP.Sodium.Plain.Event ww1_s9xa ww2_s9xb ww3_s9xc) (FRP.Sodium.Plain.Sample (<{FRP.Sodium.Plain.$w$c*>$160}> nt_s9xg) s_s9wZ)) w1_s9xu))) <{FRP.Sodium.Plain.$w$c*>$160}> nt_s9xg s1_s9xf = let !ds2_saiL = nt_s9xg s1_s9xf in select ds2_saiL (<{GHC.Tuple.(,)}> ipv_s9xk ipv1_saiP -> <{GHC.Tuple.(,)}> ipv_s9xk <{FRP.Sodium.Plain.$w$c*>$161}>) <{FRP.Sodium.Plain.$w$c*>$161}> eta_s9xm = eta_s9xm <{FRP.Sodium.Plain.$fApplicativeBehavior_$c*>}> eta_B2_B2 eta_B1_B1 = <{FRP.Sodium.Plain.$w$c*>}> eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$fApplicativeBehavior =: <{Control.Applicative.D:Applicative}> FRP.Sodium.Plain.$fFunctorBehavior FRP.Sodium.Plain.constant1 <{FRP.Sodium.Plain.$fApplicativeBehavior_$c<*>}> <{FRP.Sodium.Plain.$fApplicativeBehavior_$c*>}> <{FRP.Sodium.Plain.$fApplicativeBehavior_$c<*}> FRP.Sodium.Plain.$wswitchE w_s9xw = select w_s9xw (FRP.Sodium.Plain.Behavior ds_s9xA ds1_saj7 -> select ds_s9xA (FRP.Sodium.Plain.Event ipv_saj6 ipv1_saj8 ipv2_saj9 -> let depRef_s9xH = FRP.Sodium.Plain.unsafeNewIORef GHC.Err.undefined w_s9xw in FRP.Sodium.Plain.Event (FRP.Sodium.Plain.$wswitchE$162 depRef_s9xH ds_s9xA w_s9xw) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_s9xw) (<{GHC.Tuple.(,)}> ds_s9xA depRef_s9xH))) FRP.Sodium.Plain.$wswitchE$162 depRef_s9xH ds_s9xA w_s9xw eta_s9Ak s_s9xK = let !ds2_sajc = FRP.Sodium.Plain.split4 s_s9xK in select ds2_sajc (<{GHC.Tuple.(,)}> ipv3_s9xT ipv4_s9xO -> select ipv4_s9xO (<{GHC.Tuple.(,,)}> l_s9Au push_s9yd nodeRef_s9yb -> let !ds3_saja = newMutVar# Data.Maybe.Nothing ipv3_s9xT in select ds3_saja (<{GHC.Tuple.(,)}> ipv5_s9Al ipv6_s9yn -> let !ds4_sajw = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.$wswitchE$163 depRef_s9xH ds_s9xA ipv6_s9yn nodeRef_s9yb push_s9yd (FRP.Sodium.Plain.sample w_s9xw)) eta_s9Ak ipv5_s9Al in select ds4_sajw (<{GHC.Tuple.(,)}> ipv7_s9Aw ipv8_s9Ap -> select ipv8_s9Ap (<{GHC.Tuple.(,)}> a7_s9At <{s'_s9Av}> -> FRP.Sodium.Plain.split2 a7_s9At l_s9Au <{s'_s9Av}> ipv7_s9Aw))))) FRP.Sodium.Plain.$wswitchE$163 depRef_s9xH ds_s9xA ipv6_s9yn nodeRef_s9yb push_s9yd rma_s9xY eta1_s9y1 s1_s9y2 = let !ds4_saje = rma_s9xY eta1_s9y1 s1_s9y2 in select ds4_saje (<{GHC.Tuple.(,)}> ipv7_s9yf ipv8_s9y6 -> select ipv8_s9y6 (<{GHC.Tuple.(,)}> a7_s9ya <{s'_s9ye}> -> let !ds5_sajg = FRP.Sodium.Plain.linkedListen a7_s9ya (Data.Maybe.Just nodeRef_s9yb) false push_s9yd <{s'_s9ye}> ipv7_s9yf in select ds5_sajg (<{GHC.Tuple.(,)}> ipv9_s9yq ipv10_s9yj -> select ipv10_s9yj (<{GHC.Tuple.(,)}> a8_s9yo <{s'1_s9zQ}> -> let !s2#_s9zR = writeMutVar# ipv6_s9yn (Data.Maybe.Just a8_s9yo) ipv9_s9yq, !ds6_saju = FRP.Sodium.Plain.linkedListen ds_s9xA (Data.Maybe.Just nodeRef_s9yb) false (FRP.Sodium.Plain.$wswitchE$164 depRef_s9xH ipv6_s9yn nodeRef_s9yb push_s9yd) <{s'1_s9zQ}> s2#_s9zR in select ds6_saju (<{GHC.Tuple.(,)}> ipv11_s9zZ ipv12_s9zV -> select ipv12_s9zV (<{GHC.Tuple.(,)}> a9_s9A2 <{s'2_s9Ag}> -> <{GHC.Tuple.(,)}> ipv11_s9zZ (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.$wswitchE$165 a9_s9A2 ipv6_s9yn) <{s'2_s9Ag}>))))))) FRP.Sodium.Plain.$wswitchE$164 depRef_s9xH ipv6_s9yn nodeRef_s9yb push_s9yd ea_s9yw = FRP.Sodium.Plain.$wswitchE$167 (FRP.Sodium.Plain.$wswitchE$166 depRef_s9xH ea_s9yw ipv6_s9yn (FRP.Sodium.Plain.linkedListen ea_s9yw (Data.Maybe.Just nodeRef_s9yb) true push_s9yd)) FRP.Sodium.Plain.$wswitchE$166 depRef_s9xH ea_s9yw ipv6_s9yn rm_s9yz eta2_s9yO s2_s9yD = let !ds6_sajl = readMutVar# ipv6_s9yn s2_s9yD in select ds6_sajl (<{GHC.Tuple.(,)}> ipv11_s9yM ipv12_s9yH -> select ipv12_s9yH (Data.Maybe.Nothing -> select depRef_s9xH (GHC.STRef.STRef var#_s9yL -> let !s2#1_s9yP = writeMutVar# var#_s9yL ea_s9yw ipv11_s9yM, !ds7_saji = rm_s9yz eta2_s9yO s2#1_s9yP in select ds7_saji (<{GHC.Tuple.(,)}> ipv13_s9yZ ipv14_s9yT -> select ipv14_s9yT (<{GHC.Tuple.(,)}> a10_s9yX <{s'2_s9z2}> -> let !s2#2_s9z1 = writeMutVar# ipv6_s9yn (Data.Maybe.Just a10_s9yX) ipv13_s9yZ in <{GHC.Tuple.(,)}> s2#2_s9z1 (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> <{s'2_s9z2}>))))) (Data.Maybe.Just v_s9z5 -> let !ds7_sajp = v_s9z5 ipv11_s9yM in select ds7_sajp (<{GHC.Tuple.(,)}> ipv13_s9zc ipv14_saiV -> select depRef_s9xH (GHC.STRef.STRef var#_s9zb -> let !s2#1_s9ze = writeMutVar# var#_s9zb ea_s9yw ipv13_s9zc, !ds8_sajn = rm_s9yz eta2_s9yO s2#1_s9ze in select ds8_sajn (<{GHC.Tuple.(,)}> ipv15_s9zo ipv16_s9zi -> select ipv16_s9zi (<{GHC.Tuple.(,)}> a10_s9zm <{s'2_s9zr}> -> let !s2#2_s9zq = writeMutVar# ipv6_s9yn (Data.Maybe.Just a10_s9zm) ipv15_s9zo in <{GHC.Tuple.(,)}> s2#2_s9zq (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> <{s'2_s9zr}>))))))) FRP.Sodium.Plain.$wswitchE$167 a9_s9zt eta2_s9zx s2_s9zw = <{GHC.Tuple.(,)}> s2_s9zw (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.$wswitchE$49 a9_s9zt eta2_s9zx)) FRP.Sodium.Plain.$wswitchE$165 a9_s9A2 ipv6_s9yn s2_s9A1 = let !ds7_sajs = a9_s9A2 s2_s9A1 in select ds7_sajs (<{GHC.Tuple.(,)}> ipv13_s9A6 ipv14_saiZ -> let !ds8_sajr = readMutVar# ipv6_s9yn ipv13_s9A6 in select ds8_sajr (<{GHC.Tuple.(,)}> ipv15_s9Ac ipv16_s9Aa -> select ipv16_s9Aa (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv15_s9Ac <{GHC.Tuple.()}>) (Data.Maybe.Just v_s9Ae -> v_s9Ae ipv15_s9Ac))) FRP.Sodium.Plain.$wswitchE$49 a9_s9zt eta2_s9zx = select eta2_s9zx (FRP.Sodium.Plain.ReactiveState ds6_s9zD ds7_s9zE ds8_s9zF ds9_s9zH -> FRP.Sodium.Plain.ReactiveState ds6_s9zD ds7_s9zE (Data.Sequence.filter_snocTree ds8_s9zF a9_s9zt) ds9_s9zH) FRP.Sodium.Plain.switchE eta_B1_B1 = FRP.Sodium.Plain.$wswitchE eta_B1_B1 FRP.Sodium.Plain.$wsnapshotWith w_s9Bb w1_s9AY w2_s9AD = select w2_s9AD (FRP.Sodium.Plain.Behavior ds_sajC ds1_s9AH -> select ds1_s9AH (FRP.Sodium.Plain.Sample ds2_s9AL ds3_sajD -> let !nt_s9B5 = ds2_s9AL in FRP.Sodium.Plain.Event (FRP.Sodium.Plain.$wsnapshotWith$168 nt_s9B5 w1_s9AY w_s9Bb) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w2_s9AD) (<{GHC.Tuple.(,)}> w1_s9AY ds1_s9AH))) FRP.Sodium.Plain.$wsnapshotWith$168 nt_s9B5 w1_s9AY w_s9Bb eta_s9Bk s_s9AP = let !ds4_sajG = FRP.Sodium.Plain.split4 s_s9AP in select ds4_sajG (<{GHC.Tuple.(,)}> ipv_s9Bl ipv1_s9AT -> select ipv1_s9AT (<{GHC.Tuple.(,,)}> l_s9Bu push_s9Bc nodeRef_s9AZ -> let !ds5_sajI = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen w1_s9AY (Data.Maybe.Just nodeRef_s9AZ) false (FRP.Sodium.Plain.$wsnapshotWith$169 nt_s9B5 push_s9Bc w_s9Bb)) eta_s9Bk ipv_s9Bl in select ds5_sajI (<{GHC.Tuple.(,)}> ipv2_s9Bw ipv3_s9Bp -> select ipv3_s9Bp (<{GHC.Tuple.(,)}> a7_s9Bt <{s'_s9Bv}> -> FRP.Sodium.Plain.split2 a7_s9Bt l_s9Bu <{s'_s9Bv}> ipv2_s9Bw)))) FRP.Sodium.Plain.$wsnapshotWith$169 nt_s9B5 push_s9Bc w_s9Bb a7_s9B9 eta1_s9Be s1_s9B4 = let !ds5_sajE = nt_s9B5 s1_s9B4 in select ds5_sajE (<{GHC.Tuple.(,)}> ipv2_s9Bf ipv3_s9Ba -> push_s9Bc (w_s9Bb a7_s9B9 ipv3_s9Ba) eta1_s9Be ipv2_s9Bf) FRP.Sodium.Plain.snapshotWith eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$wsnapshotWith eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$wa2 w_s9Cf = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa2$170 w_s9Cf) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_s9Cf) w_s9Cf FRP.Sodium.Plain.$wa2$170 w_s9Cf eta_s9D4 s_s9BF = let !ds1_sajY = FRP.Sodium.Plain.split4 s_s9BF in select ds1_sajY (<{GHC.Tuple.(,)}> ipv_s9BO ipv1_s9BJ -> select ipv1_s9BJ (<{GHC.Tuple.(,,)}> l_s9De push_s9CL nodeRef_s9Cg -> let !ds_sajW = newMutVar# true ipv_s9BO in select ds_sajW (<{GHC.Tuple.(,)}> ipv2_s9D5 ipv3_s9Cl -> let !ds2_sak7 = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.$wa2$171 ipv3_s9Cl nodeRef_s9Cg push_s9CL w_s9Cf) eta_s9D4 ipv2_s9D5 in select ds2_sak7 (<{GHC.Tuple.(,)}> ipv4_s9Dg ipv5_s9D9 -> select ipv5_s9D9 (<{GHC.Tuple.(,)}> a7_s9Dd <{s'_s9Df}> -> FRP.Sodium.Plain.split2 a7_s9Dd l_s9De <{s'_s9Df}> ipv4_s9Dg))))) FRP.Sodium.Plain.$wa2$171 ipv3_s9Cl nodeRef_s9Cg push_s9CL w_s9Cf eta1_s9CN s1_s9BU = let !ds2_sajV = newMVar# s1_s9BU in select ds2_sajV (<{GHC.Tuple.(,)}> ipv4_s9C4 ipv5_s9C1 -> let !ds3_sak0 = GHC.IO.unsafeDupableInterleaveIO (FRP.Sodium.Plain.$wa2$172 ipv5_s9C1) ipv4_s9C4 in select ds3_sak0 (<{GHC.Tuple.(,)}> ipv6_s9CO ipv7_s9C9 -> let !ds4_sak5 = FRP.Sodium.Plain.linkedListen w_s9Cf (Data.Maybe.Just nodeRef_s9Cg) false (FRP.Sodium.Plain.$wa2$173 ipv3_s9Cl push_s9CL (FRP.Sodium.Plain.$wa2$50 ipv7_s9C9)) eta1_s9CN ipv6_s9CO in select ds4_sak5 (<{GHC.Tuple.(,)}> ipv8_s9CZ ipv9_s9CS -> select ipv9_s9CS (<{GHC.Tuple.(,)}> a7_s9CW <{s'_s9CX}> -> let !s2#_s9D1 = putMVar# ipv5_s9C1 (<{GHC.Tuple.(,)}> a7_s9CW <{s'_s9CX}>) ipv8_s9CZ in <{GHC.Tuple.(,)}> s2#_s9D1 (<{GHC.Tuple.(,)}> a7_s9CW <{s'_s9CX}>))))) FRP.Sodium.Plain.$wa2$172 ipv5_s9C1 s2_s9BZ = let !<{s'_s9C2}> = noDuplicate# s2_s9BZ in takeMVar# ipv5_s9C1 <{s'_s9C2}> FRP.Sodium.Plain.$wa2$173 ipv3_s9Cl push_s9CL unlisten_s9Ce a7_s9Cw eta2_s9Ct s2_s9Cm = let !ds4_sak2 = readMutVar# ipv3_s9Cl s2_s9Cm in select ds4_sak2 (<{GHC.Tuple.(,)}> ipv8_s9Cs ipv9_s9Cq -> if ipv9_s9Cq (let !s2#_s9CK = writeMutVar# ipv3_s9Cl false ipv8_s9Cs in push_s9CL a7_s9Cw (FRP.Sodium.Plain.$wa2$51 eta2_s9Ct unlisten_s9Ce) s2#_s9CK) (<{GHC.Tuple.(,)}> ipv8_s9Cs (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta2_s9Ct))) FRP.Sodium.Plain.$wa2$50 ipv7_s9C9 = select ipv7_s9C9 (<{GHC.Tuple.(,)}> a7_s9Cd ds4_sajR -> a7_s9Cd) FRP.Sodium.Plain.$wa2$51 eta2_s9Ct unlisten_s9Ce = select eta2_s9Ct (FRP.Sodium.Plain.ReactiveState ds5_s9CC ds6_s9CD ds7_s9CE ds8_s9CI -> FRP.Sodium.Plain.ReactiveState ds5_s9CC ds6_s9CD (Data.Sequence.filter_snocTree ds7_s9CE (Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO unlisten_s9Ce)) ds8_s9CI) FRP.Sodium.Plain.$fContextPlain2 w_s9Dk = let !ww_sak8 = FRP.Sodium.Plain.$wa2 w_s9Dk in select ww_sak8 (<{GHC.Tuple.(,,)}> ww1_s9Dp ww2_s9Dq ww3_s9Dr -> FRP.Sodium.Plain.Event ww1_s9Dp ww2_s9Dq ww3_s9Dr) FRP.Sodium.Plain.once eta_B1_B1 = FRP.Sodium.Plain.$fContextPlain2 eta_B1_B1 FRP.Sodium.Plain.$fContextPlain1 $dContext_s9Dv eta_s9Du = FRP.Sodium.Plain.$fContextPlain2 eta_s9Du FRP.Sodium.Plain.$fContextPlain_$conce eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$fContextPlain1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.newEventLinked1 d_s9DV eta_s9Dy = let !ds1_sakd = FRP.Sodium.Plain.split4 eta_s9Dy in select ds1_sakd (<{GHC.Tuple.(,)}> ipv_s9DH ipv1_s9DC -> select ipv1_s9DC (<{GHC.Tuple.(,,)}> listen1_s9DP push_s9DZ nodeRef_s9E0 -> let !ds_sakb = newMutVar# Data.Maybe.Nothing ipv_s9DH in select ds_sakb (<{GHC.Tuple.(,)}> ipv2_s9DL ipv3_s9DT -> <{GHC.Tuple.(,)}> ipv2_s9DL (<{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.Event (FRP.Sodium.Plain.newEventLinked1$174 listen1_s9DP) (GHC.STRef.STRef ipv3_s9DT) d_s9DV) push_s9DZ nodeRef_s9E0)))) FRP.Sodium.Plain.newEventLinked1$174 listen1_s9DP eta1_s9DQ s_s9DO = <{GHC.Tuple.(,)}> s_s9DO (<{GHC.Tuple.(,)}> listen1_s9DP eta1_s9DQ) FRP.Sodium.Plain.newEventLinked eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.newEventLinked1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.newEvent1 eta_s9Ey s_s9E5 = let !ds1_saki = FRP.Sodium.Plain.split4 s_s9E5 in select ds1_saki (<{GHC.Tuple.(,)}> ipv_s9Ee ipv1_s9E9 -> select ipv1_s9E9 (<{GHC.Tuple.(,,)}> listen1_s9Em push_s9Ev nodeRef_sakj -> let !ds_sakg = newMutVar# Data.Maybe.Nothing ipv_s9Ee in select ds_sakg (<{GHC.Tuple.(,)}> ipv2_s9Ei ipv3_s9Eq -> <{GHC.Tuple.(,)}> ipv2_s9Ei (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.Event (FRP.Sodium.Plain.newEvent1$175 listen1_s9Em) (GHC.STRef.STRef ipv3_s9Eq) GHC.Err.undefined) push_s9Ev) eta_s9Ey)))) FRP.Sodium.Plain.newEvent1$175 listen1_s9Em eta1_s9En s1_s9El = <{GHC.Tuple.(,)}> s1_s9El (<{GHC.Tuple.(,)}> listen1_s9Em eta1_s9En) FRP.Sodium.Plain.newEvent =: FRP.Sodium.Plain.newEvent1 FRP.Sodium.Plain.$wa7 w_s9EP w1_s9F6 = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa7$176 w1_s9F6 w_s9EP) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w1_s9F6) (<{GHC.Tuple.(,)}> w_s9EP w1_s9F6) FRP.Sodium.Plain.$wa7$176 w1_s9F6 w_s9EP eta_s9Fv s_s9EF = let !ds1_saks = FRP.Sodium.Plain.split4 s_s9EF in select ds1_saks (<{GHC.Tuple.(,)}> ipv_s9Fw ipv1_s9EJ -> select ipv1_s9EJ (<{GHC.Tuple.(,,)}> l_s9FF push_s9ES nodeRef_s9EQ -> let !ds2_sakz = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.$wa7$177 nodeRef_s9EQ push_s9ES (FRP.Sodium.Plain.linkedListen w_s9EP (Data.Maybe.Just nodeRef_s9EQ) false push_s9ES) w1_s9F6) eta_s9Fv ipv_s9Fw in select ds2_sakz (<{GHC.Tuple.(,)}> ipv2_s9FH ipv3_s9FA -> select ipv3_s9FA (<{GHC.Tuple.(,)}> a7_s9FE <{s'_s9FG}> -> FRP.Sodium.Plain.split2 a7_s9FE l_s9FF <{s'_s9FG}> ipv2_s9FH)))) FRP.Sodium.Plain.$wa7$177 nodeRef_s9EQ push_s9ES rma_s9EU w1_s9F6 eta1_s9EX s1_s9EY = let !ds2_saku = rma_s9EU eta1_s9EX s1_s9EY in select ds2_saku (<{GHC.Tuple.(,)}> ipv2_s9F9 ipv3_s9F2 -> select ipv3_s9F2 (<{GHC.Tuple.(,)}> a7_s9Fk <{s'_s9F8}> -> let !ds3_sakx = FRP.Sodium.Plain.linkedListen w1_s9F6 (Data.Maybe.Just nodeRef_s9EQ) false push_s9ES <{s'_s9F8}> ipv2_s9F9 in select ds3_sakx (<{GHC.Tuple.(,)}> ipv4_s9Fh ipv5_s9Fd -> select ipv5_s9Fd (<{GHC.Tuple.(,)}> a8_s9Fp <{s'1_s9Fr}> -> <{GHC.Tuple.(,)}> ipv4_s9Fh (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.$wa7$178 a7_s9Fk a8_s9Fp) <{s'1_s9Fr}>))))) FRP.Sodium.Plain.$wa7$178 a7_s9Fk a8_s9Fp s2_s9Fj = let !ds4_sakv = a7_s9Fk s2_s9Fj in select ds4_sakv (<{GHC.Tuple.(,)}> ipv6_s9Fo ipv7_sakm -> a8_s9Fp ipv6_s9Fo) FRP.Sodium.Plain.merge1 w_s9FN w1_s9FO = let !ww_sakA = FRP.Sodium.Plain.$wa7 w_s9FN w1_s9FO in select ww_sakA (<{GHC.Tuple.(,,)}> ww1_s9FT ww2_s9FU ww3_s9FV -> FRP.Sodium.Plain.Event ww1_s9FT ww2_s9FU ww3_s9FV) FRP.Sodium.Plain.merge eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.merge1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$wa6 w_s9G8 = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa6$179 w_s9G8) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_s9G8) w_s9G8 FRP.Sodium.Plain.$wa6$179 w_s9G8 eta_s9Gs s_s9FZ = let !ds1_sakH = FRP.Sodium.Plain.split4 s_s9FZ in select ds1_sakH (<{GHC.Tuple.(,)}> ipv_s9Gt ipv1_s9G3 -> select ipv1_s9G3 (<{GHC.Tuple.(,,)}> l_s9GC push_s9Gn nodeRef_s9G9 -> let !ds2_sakJ = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen w_s9G8 (Data.Maybe.Just nodeRef_s9G9) false (FRP.Sodium.Plain.$wa6$180 push_s9Gn)) eta_s9Gs ipv_s9Gt in select ds2_sakJ (<{GHC.Tuple.(,)}> ipv2_s9GE ipv3_s9Gx -> select ipv3_s9Gx (<{GHC.Tuple.(,)}> a7_s9GB <{s'_s9GD}> -> FRP.Sodium.Plain.split2 a7_s9GB l_s9GC <{s'_s9GD}> ipv2_s9GE)))) FRP.Sodium.Plain.$wa6$180 push_s9Gn ma_s9Gc = select ma_s9Gc (Data.Maybe.Nothing -> FRP.Sodium.Plain.$wa6$181) (Data.Maybe.Just a7_s9Gm -> push_s9Gn a7_s9Gm) FRP.Sodium.Plain.$wa6$181 eta1_s9Gh s1_s9Gg = <{GHC.Tuple.(,)}> s1_s9Gg (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta1_s9Gh) FRP.Sodium.Plain.filterJust1 w_s9GI = let !ww_sakK = FRP.Sodium.Plain.$wa6 w_s9GI in select ww_sakK (<{GHC.Tuple.(,,)}> ww1_s9GN ww2_s9GO ww3_s9GP -> FRP.Sodium.Plain.Event ww1_s9GN ww2_s9GO ww3_s9GP) FRP.Sodium.Plain.filterJust eta_B1_B1 = FRP.Sodium.Plain.filterJust1 eta_B1_B1 FRP.Sodium.Plain.$wa4 w_s9H2 = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa4$182 w_s9H2) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_s9H2) w_s9H2 FRP.Sodium.Plain.$wa4$182 w_s9H2 eta_s9Hq s_s9GT = let !ds1_sakR = FRP.Sodium.Plain.split4 s_s9GT in select ds1_sakR (<{GHC.Tuple.(,)}> ipv_s9Hr ipv1_s9GX -> select ipv1_s9GX (<{GHC.Tuple.(,,)}> l_s9HA push_s9Hl nodeRef_s9H3 -> let !ds2_sakT = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen w_s9H2 (Data.Maybe.Just nodeRef_s9H3) false (FRP.Sodium.Plain.$wa4$183 push_s9Hl)) eta_s9Hq ipv_s9Hr in select ds2_sakT (<{GHC.Tuple.(,)}> ipv2_s9HC ipv3_s9Hv -> select ipv3_s9Hv (<{GHC.Tuple.(,)}> a7_s9Hz <{s'_s9HB}> -> FRP.Sodium.Plain.split2 a7_s9Hz l_s9HA <{s'_s9HB}> ipv2_s9HC)))) FRP.Sodium.Plain.$wa4$183 push_s9Hl action_s9Ha eta1_s9H8 s1_s9H9 = let !ds2_sakP = action_s9Ha eta1_s9H8 s1_s9H9 in select ds2_sakP (<{GHC.Tuple.(,)}> ipv2_s9Hk ipv3_s9He -> select ipv3_s9He (<{GHC.Tuple.(,)}> a7_s9Hi <{s'_s9Hj}> -> push_s9Hl a7_s9Hi <{s'_s9Hj}> ipv2_s9Hk)) FRP.Sodium.Plain.execute1 w_s9HG = let !ww_sakU = FRP.Sodium.Plain.$wa4 w_s9HG in select ww_sakU (<{GHC.Tuple.(,,)}> ww1_s9HL ww2_s9HM ww3_s9HN -> FRP.Sodium.Plain.Event ww1_s9HL ww2_s9HM ww3_s9HN) FRP.Sodium.Plain.execute eta_B1_B1 = FRP.Sodium.Plain.execute1 eta_B1_B1 FRP.Sodium.Plain.$wa5 w_s9I2 w1_s9Im = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa5$184 w_s9I2) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_s9I2) w1_s9Im FRP.Sodium.Plain.$wa5$184 w_s9I2 eta_s9I7 s_s9HS = let !ds1_sakZ = FRP.Sodium.Plain.split4 s_s9HS in select ds1_sakZ (<{GHC.Tuple.(,)}> ipv_s9I8 ipv1_s9HW -> select ipv1_s9HW (<{GHC.Tuple.(,,)}> l_s9Ih push_s9I4 nodeRef_s9I1 -> let !ds2_sal1 = FRP.Sodium.Plain.split3 (w_s9I2 (Data.Maybe.Just nodeRef_s9I1) false push_s9I4) eta_s9I7 ipv_s9I8 in select ds2_sal1 (<{GHC.Tuple.(,)}> ipv2_s9Ij ipv3_s9Ic -> select ipv3_s9Ic (<{GHC.Tuple.(,)}> a7_s9Ig <{s'_s9Ii}> -> FRP.Sodium.Plain.split2 a7_s9Ig l_s9Ih <{s'_s9Ii}> ipv2_s9Ij)))) FRP.Sodium.Plain.eventify1 w_s9Ip w1_s9Iq = let !ww_sal2 = FRP.Sodium.Plain.$wa5 w_s9Ip w1_s9Iq in select ww_sal2 (<{GHC.Tuple.(,,)}> ww1_s9Iv ww2_s9Iw ww3_s9Ix -> FRP.Sodium.Plain.Event ww1_s9Iv ww2_s9Iw ww3_s9Ix) FRP.Sodium.Plain.eventify eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.eventify1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.schedulePrioritized1 mNodeRef_s9IK task_s9IL eta_s9IC s_s9IM = let !ds1_sal9 = FRP.Sodium.Plain.coalesce2 (FRP.Sodium.Plain.schedulePrioritized1$52 eta_s9IC) mNodeRef_s9IK task_s9IL s_s9IM in select ds1_sal9 (<{GHC.Tuple.(,)}> ipv_s9IQ ipv1_s9IR -> <{GHC.Tuple.(,)}> ipv_s9IQ (<{GHC.Tuple.(,)}> ipv1_s9IR eta_s9IC)) FRP.Sodium.Plain.schedulePrioritized1$52 eta_s9IC = select eta_s9IC (FRP.Sodium.Plain.ReactiveState ds_sal5 ds1_s9II ds2_sal7 ds3_sal8 -> ds1_s9II) FRP.Sodium.Plain.schedulePrioritized eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.schedulePrioritized1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.value2 listen1_s9JS mNodeRef_s9J3 suppressEarlierFirings_s9J4 handle_s9JH eta_s9JU s_s9IZ = let !ds_salm = newMutVar# Data.Maybe.Nothing s_s9IZ in select ds_salm (<{GHC.Tuple.(,)}> ipv_s9JV ipv1_s9J8 -> listen1_s9JS mNodeRef_s9J3 suppressEarlierFirings_s9J4 (FRP.Sodium.Plain.value2$185 handle_s9JH ipv1_s9J8 mNodeRef_s9J3) eta_s9JU ipv_s9JV) FRP.Sodium.Plain.value2$185 handle_s9JH ipv1_s9J8 mNodeRef_s9J3 a7_s9Jd eta1_s9Jj s1_s9J9 = let !ds1_sall = readMutVar# ipv1_s9J8 s1_s9J9 in select ds1_sall (<{GHC.Tuple.(,)}> ipv2_s9Jf ipv3_s9Jh -> let !s2#_s9JJ = writeMutVar# ipv1_s9J8 (Data.Maybe.Just a7_s9Jd) ipv2_s9Jf in select ipv3_s9Jh (Data.Maybe.Nothing -> let !ds2_salr = FRP.Sodium.Plain.coalesce2 (FRP.Sodium.Plain.value2$53 eta1_s9Jj) mNodeRef_s9J3 (FRP.Sodium.Plain.value2$186 handle_s9JH ipv1_s9J8) s2#_s9JJ in select ds2_salr (<{GHC.Tuple.(,)}> ipv4_s9JN ipv5_s9JO -> <{GHC.Tuple.(,)}> ipv4_s9JN (<{GHC.Tuple.(,)}> ipv5_s9JO eta1_s9Jj))) (Data.Maybe.Just ipv4_salj -> <{GHC.Tuple.(,)}> s2#_s9JJ (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta1_s9Jj))) FRP.Sodium.Plain.value2$186 handle_s9JH ipv1_s9J8 eta2_s9JF s2_s9Jt = let !ds2_salo = readMutVar# ipv1_s9J8 s2_s9Jt in select ds2_salo (<{GHC.Tuple.(,)}> ipv4_s9JC ipv5_s9Jx -> select ipv5_s9Jx (Data.Maybe.Nothing -> let !sat_sala_sala = GHC.CString.unpackCString# "Pattern match failure in do expression at src/FRP/Sodium/Plain.hs:834:13-18" in GHC.Err.error sat_sala_sala) (Data.Maybe.Just a8_s9JE -> let !s2#1_s9JG = writeMutVar# ipv1_s9J8 Data.Maybe.Nothing ipv4_s9JC in handle_s9JH a8_s9JE eta2_s9JF s2#1_s9JG)) FRP.Sodium.Plain.value2$53 eta1_s9Jj = select eta1_s9Jj (FRP.Sodium.Plain.ReactiveState ds2_sale ds3_s9Jp ds4_salf ds5_salg -> ds3_s9Jp) FRP.Sodium.Plain.lastFiringOnly eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.value2 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.value1 ba_s9K6 eta_s9KF eta1_s9KG eta2_s9KH eta3_s9KI eta4_s9KJ = FRP.Sodium.Plain.value2 (FRP.Sodium.Plain.value1$187 ba_s9K6) eta_s9KF eta1_s9KG eta2_s9KH eta3_s9KI eta4_s9KJ FRP.Sodium.Plain.value1$187 ba_s9K6 mNodeRef_s9Kz suppressEarlierFirings_s9KA handle_s9Km = FRP.Sodium.Plain.value1$188 ba_s9K6 handle_s9Km mNodeRef_s9Kz (FRP.Sodium.Plain.sample ba_s9K6) suppressEarlierFirings_s9KA FRP.Sodium.Plain.value1$188 ba_s9K6 handle_s9Km mNodeRef_s9Kz rma_s9K7 suppressEarlierFirings_s9KA eta5_s9Ka s_s9Kb = let !ds1_salB = rma_s9K7 eta5_s9Ka s_s9Kb in select ds1_salB (<{GHC.Tuple.(,)}> ipv_s9Kl ipv1_s9Kf -> select ipv1_s9Kf (<{GHC.Tuple.(,)}> a7_s9Kj <{s'_s9Kk}> -> let !ds2_salz = handle_s9Km a7_s9Kj <{s'_s9Kk}> ipv_s9Kl in select ds2_salz (<{GHC.Tuple.(,)}> ipv2_s9KC ipv3_s9Kq -> select ipv3_s9Kq (<{GHC.Tuple.(,)}> a8_salu <{s'1_s9KB}> -> FRP.Sodium.Plain.linkedListen (FRP.Sodium.Plain.value1$54 ba_s9K6) mNodeRef_s9Kz suppressEarlierFirings_s9KA handle_s9Km <{s'1_s9KB}> ipv2_s9KC)))) FRP.Sodium.Plain.value1$54 ba_s9K6 = select ba_s9K6 (FRP.Sodium.Plain.Behavior ds_s9Kx ds3_salv -> ds_s9Kx) FRP.Sodium.Plain.listenValueRaw eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.value1 eta_B4_B4 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$wvalue w_s9KL = select w_s9KL (FRP.Sodium.Plain.Behavior ds_s9KT ds1_s9KP -> select ds1_s9KP (FRP.Sodium.Plain.Sample ipv_salF ipv1_salG -> select ds_s9KT (FRP.Sodium.Plain.Event ipv2_salE ipv3_salH ipv4_salI -> let !ww_salJ = FRP.Sodium.Plain.$wa5 (FRP.Sodium.Plain.$wvalue$189 w_s9KL) (<{GHC.Tuple.(,)}> ds1_s9KP ds_s9KT) in select ww_salJ (<{GHC.Tuple.(,,)}> ww1_s9L7 ww2_s9L8 ww3_s9L9 -> FRP.Sodium.Plain.Event ww1_s9L7 ww2_s9L8 ww3_s9L9)))) FRP.Sodium.Plain.$wvalue$189 w_s9KL eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.value1 w_s9KL eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.value eta_B1_B1 = FRP.Sodium.Plain.$wvalue eta_B1_B1 FRP.Sodium.Plain.values eta_B1_B1 = FRP.Sodium.Plain.value eta_B1_B1 FRP.Sodium.Plain.switch bba_s9Lc = FRP.Sodium.Plain.switch$190 bba_s9Lc (FRP.Sodium.Plain.sample bba_s9Lc) FRP.Sodium.Plain.switch$190 bba_s9Lc rma_s9Ld eta_s9Lg s_s9Lh = let !ds1_sam4 = rma_s9Ld eta_s9Lg s_s9Lh in select ds1_sam4 (<{GHC.Tuple.(,)}> ipv_s9Lq ipv1_s9Ll -> select ipv1_s9Ll (<{GHC.Tuple.(,)}> a7_s9Lp <{s'_s9Lu}> -> let !ds_sam2 = newMutVar# a7_s9Lp ipv_s9Lq in select ds_sam2 (<{GHC.Tuple.(,)}> ipv2_s9Lv ipv3_s9Mh -> let !ds2_sam1 = FRP.Sodium.Plain.sample a7_s9Lp <{s'_s9Lu}> ipv2_s9Lv in select ds2_sam1 (<{GHC.Tuple.(,)}> ipv4_s9LI ipv5_s9Lz -> select ipv5_s9Lz (<{GHC.Tuple.(,)}> a8_s9N9 <{s'1_s9N0}> -> let !ds3_sam9 = seq# (FRP.Sodium.Plain.switch$55 bba_s9Lc) ipv4_s9LI in select ds3_sam9 (<{GHC.Tuple.(,)}> ipv6_s9LM ipv7_salW -> let !ds4_sam8 = FRP.Sodium.Plain.split4 ipv6_s9LM in select ds4_sam8 (<{GHC.Tuple.(,)}> ipv8_s9LV ipv9_s9LQ -> select ipv9_s9LQ (<{GHC.Tuple.(,,)}> listen1_s9Nd push_s9Ml nodeRef_s9M3 -> let !ds5_sam6 = newMutVar# Data.Maybe.Nothing ipv8_s9LV in select ds5_sam6 (<{GHC.Tuple.(,)}> ipv10_s9LZ ipv11_s9Nh -> let !ds6_sam5 = newMutVar# Data.Maybe.Nothing ipv10_s9LZ in select ds6_sam5 (<{GHC.Tuple.(,)}> ipv12_s9N1 ipv13_s9Ma -> let !ds7_saml = FRP.Sodium.Plain.value1 bba_s9Lc (Data.Maybe.Just nodeRef_s9M3) false (FRP.Sodium.Plain.switch$191 ipv13_s9Ma ipv3_s9Mh nodeRef_s9M3 push_s9Ml) <{s'1_s9N0}> ipv12_s9N1 in select ds7_saml (<{GHC.Tuple.(,)}> ipv14_s9NK ipv15_s9N5 -> select ipv15_s9N5 (<{GHC.Tuple.(,)}> a9_s9Nq <{s'2_s9NJ}> -> FRP.Sodium.Plain.hold1 a8_s9N9 (FRP.Sodium.Plain.finalizeEvent (FRP.Sodium.Plain.Event (FRP.Sodium.Plain.switch$193 listen1_s9Nd) (GHC.STRef.STRef ipv11_s9Nh) (<{GHC.Tuple.(,)}> bba_s9Lc (GHC.STRef.STRef ipv3_s9Mh))) (FRP.Sodium.Plain.switch$192 a9_s9Nq ipv13_s9Ma)) <{s'2_s9NJ}> ipv14_s9NK)))))))))))) FRP.Sodium.Plain.switch$191 ipv13_s9Ma ipv3_s9Mh nodeRef_s9M3 push_s9Ml ba_s9Mi = FRP.Sodium.Plain.switch$194 (Data.Maybe.Just nodeRef_s9M3) ba_s9Mi ipv13_s9Ma ipv3_s9Mh push_s9Ml FRP.Sodium.Plain.switch$194 a9_s9M7 ba_s9Mi ipv13_s9Ma ipv3_s9Mh push_s9Ml eta1_s9Mm s1_s9Mb = let !ds7_samd = readMutVar# ipv13_s9Ma s1_s9Mb in select ds7_samd (<{GHC.Tuple.(,)}> ipv14_s9Mj ipv15_s9Mf -> select ipv15_s9Mf (Data.Maybe.Nothing -> let !s2#_s9Mn = writeMutVar# ipv3_s9Mh ba_s9Mi ipv14_s9Mj, !ds8_samb = FRP.Sodium.Plain.value1 ba_s9Mi a9_s9M7 false push_s9Ml eta1_s9Mm s2#_s9Mn in select ds8_samb (<{GHC.Tuple.(,)}> ipv16_s9Mx ipv17_s9Mr -> select ipv17_s9Mr (<{GHC.Tuple.(,)}> a10_s9Mv <{s'2_s9MA}> -> let !s2#1_s9Mz = writeMutVar# ipv13_s9Ma (Data.Maybe.Just a10_s9Mv) ipv16_s9Mx in <{GHC.Tuple.(,)}> s2#1_s9Mz (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> <{s'2_s9MA}>)))) (Data.Maybe.Just v_s9MD -> let !ds8_samg = v_s9MD ipv14_s9Mj in select ds8_samg (<{GHC.Tuple.(,)}> ipv16_s9MH ipv17_salP -> let !s2#_s9MJ = writeMutVar# ipv3_s9Mh ba_s9Mi ipv16_s9MH, !ds9_samf = FRP.Sodium.Plain.value1 ba_s9Mi a9_s9M7 false push_s9Ml eta1_s9Mm s2#_s9MJ in select ds9_samf (<{GHC.Tuple.(,)}> ipv18_s9MT ipv19_s9MN -> select ipv19_s9MN (<{GHC.Tuple.(,)}> a10_s9MR <{s'2_s9MW}> -> let !s2#1_s9MV = writeMutVar# ipv13_s9Ma (Data.Maybe.Just a10_s9MR) ipv18_s9MT in <{GHC.Tuple.(,)}> s2#1_s9MV (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> <{s'2_s9MW}>)))))) FRP.Sodium.Plain.switch$192 a9_s9Nq ipv13_s9Ma s1_s9Np = let !ds8_samj = a9_s9Nq s1_s9Np in select ds8_samj (<{GHC.Tuple.(,)}> ipv16_s9Nu ipv17_salU -> let !ds9_sami = readMutVar# ipv13_s9Ma ipv16_s9Nu in select ds9_sami (<{GHC.Tuple.(,)}> ipv18_s9NA ipv19_s9Ny -> select ipv19_s9Ny (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv18_s9NA <{GHC.Tuple.()}>) (Data.Maybe.Just v_s9NC -> v_s9NC ipv18_s9NA))) FRP.Sodium.Plain.switch$193 listen1_s9Nd eta1_s9Ne s1_s9Nc = <{GHC.Tuple.(,)}> s1_s9Nc (<{GHC.Tuple.(,)}> listen1_s9Nd eta1_s9Ne) FRP.Sodium.Plain.switch$55 bba_s9Lc = select bba_s9Lc (FRP.Sodium.Plain.Behavior ds3_s9LG ds4_salY -> ds3_s9LG) FRP.Sodium.Plain.$wa3 w_s9On w1_s9O3 = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa3$195 w1_s9O3 w_s9On) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w1_s9O3) w1_s9O3 FRP.Sodium.Plain.$wa3$195 w1_s9O3 w_s9On eta_s9P9 s_s9NQ = let !ds1_samF = FRP.Sodium.Plain.split4 s_s9NQ in select ds1_samF (<{GHC.Tuple.(,)}> ipv_s9NZ ipv1_s9NU -> select ipv1_s9NU (<{GHC.Tuple.(,,)}> l_s9Pj push_s9OU nodeRef_s9O4 -> let !ds_samD = newMutVar# Data.Maybe.Nothing ipv_s9NZ in select ds_samD (<{GHC.Tuple.(,)}> ipv2_s9Pa ipv3_s9O9 -> let !ds2_samM = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen w1_s9O3 (Data.Maybe.Just nodeRef_s9O4) false (FRP.Sodium.Plain.$wa3$196 ipv3_s9O9 nodeRef_s9O4 push_s9OU w_s9On)) eta_s9P9 ipv2_s9Pa in select ds2_samM (<{GHC.Tuple.(,)}> ipv4_s9Pl ipv5_s9Pe -> select ipv5_s9Pe (<{GHC.Tuple.(,)}> a7_s9Pi <{s'_s9Pk}> -> FRP.Sodium.Plain.split2 a7_s9Pi l_s9Pj <{s'_s9Pk}> ipv4_s9Pl))))) FRP.Sodium.Plain.$wa3$196 ipv3_s9O9 nodeRef_s9O4 push_s9OU w_s9On a7_s9Ok eta1_s9Ov s1_s9Oa = let !ds2_samC = readMutVar# ipv3_s9O9 s1_s9Oa in select ds2_samC (<{GHC.Tuple.(,)}> ipv4_s9Oe ipv5_s9Ot -> let !ds3_samB = readMutVar# ipv3_s9O9 ipv4_s9Oe in select ds3_samB (<{GHC.Tuple.(,)}> ipv6_s9Or ipv7_s9Oi -> let !s2#_s9OW = writeMutVar# ipv3_s9O9 (Data.Maybe.Just (FRP.Sodium.Plain.$wa3$56 a7_s9Ok ipv7_s9Oi w_s9On)) ipv6_s9Or in select ipv5_s9Ot (Data.Maybe.Nothing -> let !ds4_samK = FRP.Sodium.Plain.coalesce2 (FRP.Sodium.Plain.$wa3$57 eta1_s9Ov) (Data.Maybe.Just nodeRef_s9O4) (FRP.Sodium.Plain.$wa3$197 ipv3_s9O9 push_s9OU) s2#_s9OW in select ds4_samK (<{GHC.Tuple.(,)}> ipv8_s9P0 ipv9_s9P1 -> <{GHC.Tuple.(,)}> ipv8_s9P0 (<{GHC.Tuple.(,)}> ipv9_s9P1 eta1_s9Ov))) (Data.Maybe.Just ipv8_samw -> <{GHC.Tuple.(,)}> s2#_s9OW (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> eta1_s9Ov)))) FRP.Sodium.Plain.$wa3$197 ipv3_s9O9 push_s9OU eta2_s9OS s2_s9OG = let !ds4_samH = readMutVar# ipv3_s9O9 s2_s9OG in select ds4_samH (<{GHC.Tuple.(,)}> ipv8_s9OP ipv9_s9OK -> select ipv9_s9OK (Data.Maybe.Nothing -> let !sat_samm_samm = GHC.CString.unpackCString# "Pattern match failure in do expression at src/FRP/Sodium/Plain.hs:371:17-24" in GHC.Err.error sat_samm_samm) (Data.Maybe.Just out_s9OR -> let !s2#1_s9OT = writeMutVar# ipv3_s9O9 Data.Maybe.Nothing ipv8_s9OP in push_s9OU out_s9OR eta2_s9OS s2#1_s9OT)) FRP.Sodium.Plain.$wa3$56 a7_s9Ok ipv7_s9Oi w_s9On = select ipv7_s9Oi (Data.Maybe.Nothing -> a7_s9Ok) (Data.Maybe.Just a0_s9Om -> w_s9On a0_s9Om a7_s9Ok) FRP.Sodium.Plain.$wa3$57 eta1_s9Ov = select eta1_s9Ov (FRP.Sodium.Plain.ReactiveState ds4_samr ds5_s9OB ds6_sams ds7_samt -> ds5_s9OB) FRP.Sodium.Plain.coalesce1 w_s9Pq w1_s9Pr = let !ww_samN = FRP.Sodium.Plain.$wa3 w_s9Pq w1_s9Pr in select ww_samN (<{GHC.Tuple.(,,)}> ww1_s9Pw ww2_s9Px ww3_s9Py -> FRP.Sodium.Plain.Event ww1_s9Pw ww2_s9Px ww3_s9Py) FRP.Sodium.Plain.coalesce eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.coalesce1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.schedulePost1 tasks_s9PM eta1_s9PD s_s9PC = <{GHC.Tuple.(,)}> s_s9PC (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.schedulePost1$58 eta1_s9PD tasks_s9PM)) FRP.Sodium.Plain.schedulePost1$58 eta1_s9PD tasks_s9PM = select eta1_s9PD (FRP.Sodium.Plain.ReactiveState ds_s9PJ ds1_s9PK ds2_s9PL ds3_s9PO -> FRP.Sodium.Plain.ReactiveState ds_s9PJ ds1_s9PK ds2_s9PL (FRP.Sodium.Plain.schedulePost1$219 ds3_s9PO tasks_s9PM)) FRP.Sodium.Plain.schedulePost1$219 ds3_s9PO tasks_s9PM = let !sat_samO_samO = Data.Sequence.fromList1 Data.Sequence.Empty tasks_s9PM in <{Data.Sequence.><1}> sat_samO_samO ds3_s9PO FRP.Sodium.Plain.schedulePost eta_B1_B1 = FRP.Sodium.Plain.schedulePost1 eta_B1_B1 FRP.Sodium.Plain.$wa1 w_s9Q5 = <{GHC.Tuple.(,,)}> (FRP.Sodium.Plain.$wa1$198 w_s9Q5) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_s9Q5) w_s9Q5 FRP.Sodium.Plain.$wa1$198 w_s9Q5 eta_s9QE s_s9PW = let !ds1_samX = FRP.Sodium.Plain.split4 s_s9PW in select ds1_samX (<{GHC.Tuple.(,)}> ipv_s9QF ipv1_s9Q0 -> select ipv1_s9Q0 (<{GHC.Tuple.(,,)}> l_s9QO push_s9Qa nodeRef_s9Q6 -> let !ds2_samZ = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen w_s9Q5 (Data.Maybe.Just nodeRef_s9Q6) false (FRP.Sodium.Plain.$wa1$199 push_s9Qa)) eta_s9QE ipv_s9QF in select ds2_samZ (<{GHC.Tuple.(,)}> ipv2_s9QQ ipv3_s9QJ -> select ipv3_s9QJ (<{GHC.Tuple.(,)}> a7_s9QN <{s'_s9QP}> -> FRP.Sodium.Plain.split2 a7_s9QN l_s9QO <{s'_s9QP}> ipv2_s9QQ)))) FRP.Sodium.Plain.$wa1$199 push_s9Qa as_s9Qb = FRP.Sodium.Plain.$wa1$200 as_s9Qb push_s9Qa FRP.Sodium.Plain.$wa1$200 as_s9Qb push_s9Qa eta1_s9Qg s1_s9Qf = <{GHC.Tuple.(,)}> s1_s9Qf (<{GHC.Tuple.(,)}> <{GHC.Tuple.()}> (FRP.Sodium.Plain.$wa1$59 as_s9Qb eta1_s9Qg push_s9Qa)) FRP.Sodium.Plain.$wa1$59 as_s9Qb eta1_s9Qg push_s9Qa = select eta1_s9Qg (FRP.Sodium.Plain.ReactiveState ds_s9Qm ds2_s9Qn ds3_s9Qo ds4_s9Qq -> FRP.Sodium.Plain.ReactiveState ds_s9Qm ds2_s9Qn ds3_s9Qo (FRP.Sodium.Plain.$wa1$220 as_s9Qb ds4_s9Qq push_s9Qa)) FRP.Sodium.Plain.$wa1$220 as_s9Qb ds4_s9Qq push_s9Qa = let !sat_s9Qw_s9Qw = Data.Sequence.fromList1 Data.Sequence.Empty (GHC.Base.map push_s9Qa as_s9Qb) in <{Data.Sequence.><1}> sat_s9Qw_s9Qw ds4_s9Qq FRP.Sodium.Plain.split1 w_s9QU = let !ww_san0 = FRP.Sodium.Plain.$wa1 w_s9QU in select ww_san0 (<{GHC.Tuple.(,,)}> ww1_s9QZ ww2_s9R0 ww3_s9R1 -> FRP.Sodium.Plain.Event ww1_s9QZ ww2_s9R0 ww3_s9R1) FRP.Sodium.Plain.split eta_B1_B1 = FRP.Sodium.Plain.split1 eta_B1_B1 FRP.Sodium.Plain.$fContextPlain =: <{FRP.Sodium.Context.D:Context}> FRP.Sodium.Plain.$fApplicativeReactive FRP.Sodium.Plain.$fMonadReactive FRP.Sodium.Plain.$fMonadFixReactive FRP.Sodium.Plain.$fFunctorEvent FRP.Sodium.Plain.$fApplicativeBehavior FRP.Sodium.Plain.sync1 FRP.Sodium.Plain.newEvent1 FRP.Sodium.Plain.listen FRP.Sodium.Plain.constant2 FRP.Sodium.Plain.merge1 FRP.Sodium.Plain.filterJust1 FRP.Sodium.Plain.hold1 FRP.Sodium.Plain.updates_ FRP.Sodium.Plain.value FRP.Sodium.Plain.snapshotWith FRP.Sodium.Plain.switchE FRP.Sodium.Plain.switch FRP.Sodium.Plain.execute1 FRP.Sodium.Plain.sample FRP.Sodium.Plain.coalesce1 FRP.Sodium.Plain.$fContextPlain1 FRP.Sodium.Plain.split1 FRP.Sodium.Plain.snapshot eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.$wsnapshotWith FRP.Sodium.Context.snapshot1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.newBehaviour1 w1_s9Ri eta_s9Rv s_s9R5 = let !ds1_san6 = FRP.Sodium.Plain.split4 s_s9R5 in select ds1_san6 (<{GHC.Tuple.(,)}> ipv_s9Re ipv1_s9R9 -> select ipv1_s9R9 (<{GHC.Tuple.(,,)}> listen1_s9Rm push_s9RG nodeRef_san7 -> let !ds_san4 = newMutVar# Data.Maybe.Nothing ipv_s9Re in select ds_san4 (<{GHC.Tuple.(,)}> ipv2_s9Rw ipv3_s9Rq -> let !ds2_san9 = FRP.Sodium.Plain.hold1 w1_s9Ri (FRP.Sodium.Plain.Event (FRP.Sodium.Plain.newBehaviour1$201 listen1_s9Rm) (GHC.STRef.STRef ipv3_s9Rq) GHC.Err.undefined) eta_s9Rv ipv2_s9Rw in select ds2_san9 (<{GHC.Tuple.(,)}> ipv4_s9RE ipv5_s9RA -> select ipv5_s9RA (<{GHC.Tuple.(,)}> a7_s9RF <{s'_s9RI}> -> <{GHC.Tuple.(,)}> ipv4_s9RE (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> a7_s9RF push_s9RG) <{s'_s9RI}>)))))) FRP.Sodium.Plain.newBehaviour1$201 listen1_s9Rm eta1_s9Rn s1_s9Rl = <{GHC.Tuple.(,)}> s1_s9Rl (<{GHC.Tuple.(,)}> listen1_s9Rm eta1_s9Rn) FRP.Sodium.Plain.newBehaviour eta_B1_B1 = FRP.Sodium.Plain.newBehaviour1 eta_B1_B1 FRP.Sodium.Plain.newBehavior1 w1_s9S1 eta_s9Se s_s9RO = let !ds1_sanf = FRP.Sodium.Plain.split4 s_s9RO in select ds1_sanf (<{GHC.Tuple.(,)}> ipv_s9RX ipv1_s9RS -> select ipv1_s9RS (<{GHC.Tuple.(,,)}> listen1_s9S5 push_s9Sp nodeRef_sang -> let !ds_sand = newMutVar# Data.Maybe.Nothing ipv_s9RX in select ds_sand (<{GHC.Tuple.(,)}> ipv2_s9Sf ipv3_s9S9 -> let !ds2_sani = FRP.Sodium.Plain.hold1 w1_s9S1 (FRP.Sodium.Plain.Event (FRP.Sodium.Plain.newBehavior1$202 listen1_s9S5) (GHC.STRef.STRef ipv3_s9S9) GHC.Err.undefined) eta_s9Se ipv2_s9Sf in select ds2_sani (<{GHC.Tuple.(,)}> ipv4_s9Sn ipv5_s9Sj -> select ipv5_s9Sj (<{GHC.Tuple.(,)}> a7_s9So <{s'_s9Sr}> -> <{GHC.Tuple.(,)}> ipv4_s9Sn (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> a7_s9So push_s9Sp) <{s'_s9Sr}>)))))) FRP.Sodium.Plain.newBehavior1$202 listen1_s9S5 eta1_s9S6 s1_s9S4 = <{GHC.Tuple.(,)}> s1_s9S4 (<{GHC.Tuple.(,)}> listen1_s9S5 eta1_s9S6) FRP.Sodium.Plain.newBehavior eta_B1_B1 = FRP.Sodium.Plain.newBehavior1 eta_B1_B1 FRP.Sodium.Plain.mergeWith1 f_s9Sx ea_s9Sy eb_s9Sz = let !ww_sank = FRP.Sodium.Plain.$wa3 f_s9Sx (FRP.Sodium.Plain.merge1 ea_s9Sy eb_s9Sz) in select ww_sank (<{GHC.Tuple.(,,)}> ww1_s9SF ww2_s9SG ww3_s9SH -> FRP.Sodium.Plain.Event ww1_s9SF ww2_s9SG ww3_s9SH) FRP.Sodium.Plain.mergeWith eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.mergeWith1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.gate1 ea_s9SK x_s9SL = let !ww_sanm = FRP.Sodium.Plain.$wa6 (FRP.Sodium.Plain.$wsnapshotWith FRP.Sodium.Context.gate1 ea_s9SK x_s9SL) in select ww_sanm (<{GHC.Tuple.(,,)}> ww1_s9SR ww2_s9SS ww3_s9ST -> FRP.Sodium.Plain.Event ww1_s9SR ww2_s9SS ww3_s9ST) FRP.Sodium.Plain.gate eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.gate1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.$wa9 w_s9SY w1_s9T1 = FRP.Sodium.Plain.$wa6 (FRP.Sodium.Plain.$wa9$221 w1_s9T1 w_s9SY) FRP.Sodium.Plain.$wa9$221 w1_s9T1 w_s9SY = let !ww_sanq = FRP.Sodium.Plain.$wa (FRP.Sodium.Plain.$wa9$203 w_s9SY) w1_s9T1 in select ww_sanq (<{GHC.Tuple.(,,)}> ww1_s9T6 ww2_s9T7 ww3_s9T8 -> FRP.Sodium.Plain.Event ww1_s9T6 ww2_s9T7 ww3_s9T8) FRP.Sodium.Plain.$wa9$203 w_s9SY a7_s9SX = let !wild_sanp = w_s9SY a7_s9SX in if wild_sanp (Data.Maybe.Just a7_s9SX) Data.Maybe.Nothing FRP.Sodium.Plain.filterE1 w_s9Tc w1_s9Td = let !ww_sanr = FRP.Sodium.Plain.$wa9 w_s9Tc w1_s9Td in select ww_sanr (<{GHC.Tuple.(,,)}> ww1_s9Ti ww2_s9Tj ww3_s9Tk -> FRP.Sodium.Plain.Event ww1_s9Ti ww2_s9Tj ww3_s9Tk) FRP.Sodium.Plain.filterE eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.filterE1 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.count x_s9Tn = FRP.Sodium.Plain.count$204 (FRP.Sodium.Plain.count$222 x_s9Tn) FRP.Sodium.Plain.count$222 x_s9Tn = let !ww_sany = FRP.Sodium.Plain.$wa FRP.Sodium.Context.count2 x_s9Tn in select ww_sany (<{GHC.Tuple.(,,)}> ww1_s9Ts ww2_s9Tt ww3_s9Tu -> FRP.Sodium.Plain.Event ww1_s9Ts ww2_s9Tt ww3_s9Tu) FRP.Sodium.Plain.count$204 a7_s9Tv eta_s9TS s_s9Ty = let !ds_sanz = newMVar# s_s9Ty in select ds_sanz (<{GHC.Tuple.(,)}> ipv_s9TI ipv1_s9TF -> let !ds1_sanB = GHC.IO.unsafeDupableInterleaveIO (FRP.Sodium.Plain.count$205 ipv1_s9TF) ipv_s9TI in select ds1_sanB (<{GHC.Tuple.(,)}> ipv2_s9TT ipv3_s9TM -> let !ds2_sanD = FRP.Sodium.Plain.hold1 FRP.Sodium.Context.count1 (FRP.Sodium.Plain.count$60 a7_s9Tv ipv3_s9TM) eta_s9TS ipv2_s9TT in select ds2_sanD (<{GHC.Tuple.(,)}> ipv4_s9U4 ipv5_s9TX -> select ipv5_s9TX (<{GHC.Tuple.(,)}> a8_s9U1 <{s'_s9U2}> -> let !s2#_s9U6 = putMVar# ipv1_s9TF (<{GHC.Tuple.(,)}> a8_s9U1 <{s'_s9U2}>) ipv4_s9U4 in <{GHC.Tuple.(,)}> s2#_s9U6 (<{GHC.Tuple.(,)}> a8_s9U1 <{s'_s9U2}>))))) FRP.Sodium.Plain.count$205 ipv1_s9TF s1_s9TD = let !<{s'_s9TG}> = noDuplicate# s1_s9TD in takeMVar# ipv1_s9TF <{s'_s9TG}> FRP.Sodium.Plain.count$60 a7_s9Tv ipv3_s9TM = select ipv3_s9TM (<{GHC.Tuple.(,)}> a8_s9TQ ds2_sanw -> FRP.Sodium.Plain.$wsnapshotWith GHC.Base.$ a7_s9Tv a8_s9TQ) FRP.Sodium.Plain.collectE1 w1_s9UN w2_s9Us w3_s9UO eta_s9UD s_s9Ue = let !ds_sanK = newMVar# s_s9Ue in select ds_sanK (<{GHC.Tuple.(,)}> ipv_s9Uo ipv1_s9Ul -> let !ds1_sanN = GHC.IO.unsafeDupableInterleaveIO (FRP.Sodium.Plain.collectE1$206 ipv1_s9Ul) ipv_s9Uo in select ds1_sanN (<{GHC.Tuple.(,)}> ipv2_s9UE ipv3_s9Ut -> let !ds2_sanP = FRP.Sodium.Plain.hold1 w2_s9Us (FRP.Sodium.Plain.collectE1$61 ipv3_s9Ut) eta_s9UD ipv2_s9UE in select ds2_sanP (<{GHC.Tuple.(,)}> ipv4_s9Vd ipv5_s9UI -> select ipv5_s9UI (<{GHC.Tuple.(,)}> a7_s9UP <{s'_s9Va}> -> let ebs_s9UQ = FRP.Sodium.Plain.$wsnapshotWith w1_s9UN w3_s9UO a7_s9UP, a8_s9UZ = FRP.Sodium.Plain.collectE1$223 ebs_s9UQ, !s2#_s9Vf = putMVar# ipv1_s9Ul (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.collectE1$224 ebs_s9UQ) a8_s9UZ) <{s'_s9Va}>) ipv4_s9Vd in <{GHC.Tuple.(,)}> s2#_s9Vf (<{GHC.Tuple.(,)}> a8_s9UZ <{s'_s9Va}>))))) FRP.Sodium.Plain.collectE1$223 ebs_s9UQ = let !ww_sanQ = FRP.Sodium.Plain.$wa Data.Tuple.fst ebs_s9UQ in select ww_sanQ (<{GHC.Tuple.(,,)}> ww1_s9UW ww2_s9UX ww3_s9UY -> FRP.Sodium.Plain.Event ww1_s9UW ww2_s9UX ww3_s9UY) FRP.Sodium.Plain.collectE1$224 ebs_s9UQ = let !ww_sanR = FRP.Sodium.Plain.$wa Data.Tuple.snd ebs_s9UQ in select ww_sanR (<{GHC.Tuple.(,,)}> ww1_s9V4 ww2_s9V5 ww3_s9V6 -> FRP.Sodium.Plain.Event ww1_s9V4 ww2_s9V5 ww3_s9V6) FRP.Sodium.Plain.collectE1$206 ipv1_s9Ul s1_s9Uj = let !<{s'_s9Um}> = noDuplicate# s1_s9Uj in takeMVar# ipv1_s9Ul <{s'_s9Um}> FRP.Sodium.Plain.collectE1$61 ipv3_s9Ut = select ipv3_s9Ut (<{GHC.Tuple.(,)}> a7_s9Ux ds2_sanJ -> select a7_s9Ux (<{GHC.Tuple.(,)}> es_s9UB eb_sanI -> es_s9UB)) FRP.Sodium.Plain.collectE eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.collectE1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Sodium.Plain.collect w1_s9W3 w2_s9W2 w3_s9Vl = FRP.Sodium.Plain.collect$207 (FRP.Sodium.Plain.collect$225 w3_s9Vl) (FRP.Sodium.Plain.sample w3_s9Vl) w1_s9W3 w2_s9W2 FRP.Sodium.Plain.collect$225 w3_s9Vl = let !ww_saod = FRP.Sodium.Plain.$wa3 FRP.Sodium.Context.collect1 (FRP.Sodium.Plain.collect$67 w3_s9Vl) in select ww_saod (<{GHC.Tuple.(,,)}> ww1_s9Vx ww2_s9Vy ww3_s9Vz -> FRP.Sodium.Plain.Event ww1_s9Vx ww2_s9Vy ww3_s9Vz) FRP.Sodium.Plain.collect$207 a7_s9VA rma_s9Vm w1_s9W3 w2_s9W2 eta_s9VD s_s9VE = let !ds1_saog = rma_s9Vm eta_s9VD s_s9VE in select ds1_saog (<{GHC.Tuple.(,)}> ipv_s9VM ipv1_s9VI -> select ipv1_s9VI (<{GHC.Tuple.(,)}> a8_s9W1 <{s'_s9Ws}> -> let !ds_saoe = newMVar# ipv_s9VM in select ds_saoe (<{GHC.Tuple.(,)}> ipv2_s9VW ipv3_s9VT -> let !ds2_saoh = GHC.IO.unsafeDupableInterleaveIO (FRP.Sodium.Plain.collect$208 ipv3_s9VT) ipv2_s9VW in select ds2_saoh (<{GHC.Tuple.(,)}> ipv4_s9Wt ipv5_s9Wi -> let ds3_s9W4 = w1_s9W3 a8_s9W1 w2_s9W2, !ds4_saoq = FRP.Sodium.Plain.hold1 (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.collect$64 ds3_s9W4) (FRP.Sodium.Plain.collect$63 ds3_s9W4)) (FRP.Sodium.Plain.collect$62 ipv5_s9Wi) <{s'_s9Ws}> ipv4_s9Wt in select ds4_saoq (<{GHC.Tuple.(,)}> ipv6_s9Xf ipv7_s9Wx -> select ipv7_s9Wx (<{GHC.Tuple.(,)}> a9_s9WB <{s'1_s9Xc}> -> let !s2#_s9Xh = putMVar# ipv3_s9VT (<{GHC.Tuple.(,)}> (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.collect$65 a7_s9VA a9_s9WB w1_s9W3) a9_s9WB) <{s'1_s9Xc}>) ipv6_s9Xf in <{GHC.Tuple.(,)}> s2#_s9Xh (<{GHC.Tuple.(,)}> (FRP.Sodium.Plain.collect$66 a9_s9WB) <{s'1_s9Xc}>))))))) FRP.Sodium.Plain.collect$208 ipv3_s9VT s1_s9VR = let !<{s'1_s9VU}> = noDuplicate# s1_s9VR in takeMVar# ipv3_s9VT <{s'1_s9VU}> FRP.Sodium.Plain.collect$62 ipv5_s9Wi = select ipv5_s9Wi (<{GHC.Tuple.(,)}> a9_s9Wm ds4_sao8 -> select a9_s9Wm (<{GHC.Tuple.(,)}> ebs_s9Wq bs_sao7 -> ebs_s9Wq)) FRP.Sodium.Plain.collect$63 ds3_s9W4 = select ds3_s9W4 (<{GHC.Tuple.(,)}> zb_sao6 <{zs'1_s9Wd}> -> <{zs'1_s9Wd}>) FRP.Sodium.Plain.collect$64 ds3_s9W4 = select ds3_s9W4 (<{GHC.Tuple.(,)}> zb1_s9W8 <{zs'1_sao5}> -> zb1_s9W8) FRP.Sodium.Plain.collect$65 a7_s9VA a9_s9WB w1_s9W3 = select a9_s9WB (FRP.Sodium.Plain.Behavior e_s9WL s1_s9WF -> select s1_s9WF (FRP.Sodium.Plain.Sample ds5_s9WJ ds6_sao4 -> let !nt_s9WW = ds5_s9WJ, !ww_saon = FRP.Sodium.Plain.$wa Data.Tuple.snd e_s9WL in select ww_saon (<{GHC.Tuple.(,,)}> ww1_s9WQ ww2_s9WR ww3_s9WS -> FRP.Sodium.Plain.$wsnapshotWith w1_s9W3 a7_s9VA (FRP.Sodium.Plain.Behavior (FRP.Sodium.Plain.Event ww1_s9WQ ww2_s9WR ww3_s9WS) (FRP.Sodium.Plain.Sample (FRP.Sodium.Plain.collect$209 nt_s9WW) s1_s9WF))))) FRP.Sodium.Plain.collect$209 nt_s9WW s2_s9WV = let !ds7_saom = nt_s9WW s2_s9WV in select ds7_saom (<{GHC.Tuple.(,)}> ipv8_s9X0 ipv9_s9X1 -> <{GHC.Tuple.(,)}> ipv8_s9X0 (Data.Tuple.snd ipv9_s9X1)) FRP.Sodium.Plain.collect$66 a9_s9WB = select a9_s9WB (FRP.Sodium.Plain.Behavior e_s9Xr s1_s9Xl -> select s1_s9Xl (FRP.Sodium.Plain.Sample ds5_s9Xp ds6_sao1 -> let !nt_s9XC = ds5_s9Xp, !ww_saos = FRP.Sodium.Plain.$wa Data.Tuple.fst e_s9Xr in select ww_saos (<{GHC.Tuple.(,,)}> ww1_s9Xw ww2_s9Xx ww3_s9Xy -> FRP.Sodium.Plain.Behavior (FRP.Sodium.Plain.Event ww1_s9Xw ww2_s9Xx ww3_s9Xy) (FRP.Sodium.Plain.Sample (FRP.Sodium.Plain.collect$210 nt_s9XC) s1_s9Xl)))) FRP.Sodium.Plain.collect$210 nt_s9XC s2_s9XB = let !ds7_saor = nt_s9XC s2_s9XB in select ds7_saor (<{GHC.Tuple.(,)}> ipv8_s9XG ipv9_s9XH -> <{GHC.Tuple.(,)}> ipv8_s9XG (Data.Tuple.fst ipv9_s9XH)) FRP.Sodium.Plain.collect$67 w3_s9Vl = select w3_s9Vl (FRP.Sodium.Plain.Behavior ds_s9Vr ds1_saob -> ds_s9Vr) FRP.Sodium.Plain.accum1 w1_s9Y9 w2_s9Ye eta_s9Yh s_s9XV = let !ds_saoz = newMVar# s_s9XV in select ds_saoz (<{GHC.Tuple.(,)}> ipv_s9Y5 ipv1_s9Y2 -> let !ds1_saoB = GHC.IO.unsafeDupableInterleaveIO (FRP.Sodium.Plain.accum1$211 ipv1_s9Y2) ipv_s9Y5 in select ds1_saoB (<{GHC.Tuple.(,)}> ipv2_s9Yi ipv3_s9Ya -> let !ds2_saoD = FRP.Sodium.Plain.hold1 w1_s9Y9 (FRP.Sodium.Plain.accum1$68 ipv3_s9Ya w2_s9Ye) eta_s9Yh ipv2_s9Yi in select ds2_saoD (<{GHC.Tuple.(,)}> ipv4_s9Yt ipv5_s9Ym -> select ipv5_s9Ym (<{GHC.Tuple.(,)}> a7_s9Yq <{s'_s9Yr}> -> let !s2#_s9Yv = putMVar# ipv1_s9Y2 (<{GHC.Tuple.(,)}> a7_s9Yq <{s'_s9Yr}>) ipv4_s9Yt in <{GHC.Tuple.(,)}> s2#_s9Yv (<{GHC.Tuple.(,)}> a7_s9Yq <{s'_s9Yr}>))))) FRP.Sodium.Plain.accum1$211 ipv1_s9Y2 s1_s9Y0 = let !<{s'_s9Y3}> = noDuplicate# s1_s9Y0 in takeMVar# ipv1_s9Y2 <{s'_s9Y3}> FRP.Sodium.Plain.accum1$68 ipv3_s9Ya w2_s9Ye = select ipv3_s9Ya (<{GHC.Tuple.(,)}> a7_s9Yf ds2_saoy -> FRP.Sodium.Plain.$wsnapshotWith GHC.Base.$ w2_s9Ye a7_s9Yf) FRP.Sodium.Plain.accum eta_B2_B2 eta_B1_B1 = FRP.Sodium.Plain.accum1 eta_B2_B2 eta_B1_B1