FRP.Sodium.IO.$wa w_seFH = <{GHC.Tuple.(,,)}> (FRP.Sodium.IO.$wa$1 w_seFH) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_seFH) w_seFH FRP.Sodium.IO.$wa$1 w_seFH eta_seGa s_seFy = let !ds1_seHC = FRP.Sodium.Plain.split4 s_seFy in select ds1_seHC (<{GHC.Tuple.(,)}> ipv_seGb ipv1_seFC -> select ipv1_seFC (<{GHC.Tuple.(,,)}> l_seGk push_seFU nodeRef_seFI -> let !ds2_seHF = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen w_seFH (Data.Maybe.Just nodeRef_seFI) false (FRP.Sodium.IO.$wa$2 push_seFU)) eta_seGa ipv_seGb in select ds2_seHF (<{GHC.Tuple.(,)}> ipv2_seGm ipv3_seGf -> select ipv3_seGf (<{GHC.Tuple.(,)}> a7_seGj <{s'_seGl}> -> FRP.Sodium.Plain.split2 a7_seGj l_seGk <{s'_seGl}> ipv2_seGm)))) FRP.Sodium.IO.$wa$2 push_seFU action_seFP = Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO (FRP.Sodium.IO.$wa$3 action_seFP push_seFU) FRP.Sodium.IO.$wa$3 action_seFP push_seFU s1_seG0 = let !ds_seHD = fork# (FRP.Sodium.IO.$wa$4 action_seFP push_seFU) s1_seG0 in select ds_seHD (<{GHC.Tuple.(,)}> ipv2_seG4 ipv3_seHv -> <{GHC.Tuple.(,)}> ipv2_seG4 <{GHC.Tuple.()}>) FRP.Sodium.IO.$wa$4 action_seFP push_seFU eta1_seFY = catch# (FRP.Sodium.IO.$wa$5 action_seFP push_seFU) GHC.Conc.Sync.forkIO2 eta1_seFY FRP.Sodium.IO.$wa$5 action_seFP push_seFU s2_seFO = let !ds2_seHA = action_seFP s2_seFO in select ds2_seHA (<{GHC.Tuple.(,)}> ipv2_seFW ipv3_seFT -> FRP.Sodium.Plain.sync1 (push_seFU ipv3_seFT) ipv2_seFW) FRP.Sodium.IO.executeAsyncIO1 w_seGq = let !ww_seHS = FRP.Sodium.IO.$wa w_seGq in select ww_seHS (<{GHC.Tuple.(,,)}> ww1_seGv ww2_seGw ww3_seGx -> FRP.Sodium.Plain.Event ww1_seGv ww2_seGw ww3_seGx) FRP.Sodium.IO.executeAsyncIO eta_B1_B1 = FRP.Sodium.IO.executeAsyncIO1 eta_B1_B1 FRP.Sodium.IO.$wa1 w_seGK = <{GHC.Tuple.(,,)}> (FRP.Sodium.IO.$wa1$6 w_seGK) (FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w_seGK) w_seGK FRP.Sodium.IO.$wa1$6 w_seGK eta_seH3 s_seGB = let !ds1_seI0 = FRP.Sodium.Plain.split4 s_seGB in select ds1_seI0 (<{GHC.Tuple.(,)}> ipv_seH4 ipv1_seGF -> select ipv1_seGF (<{GHC.Tuple.(,,)}> l_seHd push_seGY nodeRef_seGL -> let !ds2_seI2 = FRP.Sodium.Plain.split3 (FRP.Sodium.Plain.linkedListen w_seGK (Data.Maybe.Just nodeRef_seGL) false (FRP.Sodium.IO.$wa1$7 push_seGY)) eta_seH3 ipv_seH4 in select ds2_seI2 (<{GHC.Tuple.(,)}> ipv2_seHf ipv3_seH8 -> select ipv3_seH8 (<{GHC.Tuple.(,)}> a7_seHc <{s'_seHe}> -> FRP.Sodium.Plain.split2 a7_seHc l_seHd <{s'_seHe}> ipv2_seHf)))) FRP.Sodium.IO.$wa1$7 push_seGY action_seGR eta1_seGW s1_seGQ = let !ds2_seHY = action_seGR s1_seGQ in select ds2_seHY (<{GHC.Tuple.(,)}> ipv2_seGX ipv3_seGV -> push_seGY ipv3_seGV eta1_seGW ipv2_seGX) FRP.Sodium.IO.executeSyncIO1 w_seHj = let !ww_seIf = FRP.Sodium.IO.$wa1 w_seHj in select ww_seIf (<{GHC.Tuple.(,,)}> ww1_seHo ww2_seHp ww3_seHq -> FRP.Sodium.Plain.Event ww1_seHo ww2_seHp ww3_seHq) FRP.Sodium.IO.executeSyncIO eta_B1_B1 = FRP.Sodium.IO.executeSyncIO1 eta_B1_B1