[(FRP.Sodium.IO.$wa :: forall a. FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain (GHC.Types.IO a) -> (# FRP.Sodium.Plain.Reactive (FRP.Sodium.Plain.Listen a), GHC.IORef.IORef (Data.Maybe.Maybe (FRP.Sodium.Plain.Listen a)), FRP.Sodium.Plain.Dep #) [GblId, Arity=1, Str=DmdType L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w] let { sat_seHy :: GHC.IORef.IORef (Data.Maybe.Maybe (FRP.Sodium.Plain.Listen a)) [LclId] = \u [] FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w; } in let { sat_seHz :: FRP.Sodium.Plain.Reactive (FRP.Sodium.Plain.Listen a) [LclId] = \r srt:(0,*bitmap*) [eta s] case FRP.Sodium.Plain.split4 s of _ { (#,#) ipv ipv1 -> case ipv1 of _ { (,,) l push nodeRef -> let { sat_seHx :: FRP.Sodium.Plain.Reactive (GHC.Types.IO ()) [LclId] = \u srt:(0,*bitmap*) [] let { sat_seG7 :: GHC.Types.IO a -> FRP.Sodium.Plain.Reactive () [LclId] = \r srt:(0,*bitmap*) [action] let { sat_seHw :: GHC.Types.IO () [LclId] = \r srt:(0,*bitmap*) [s1] let { sat_seHu :: GHC.Types.IO () [LclId] = \r srt:(0,*bitmap*) [eta1] let { sat_seHt :: GHC.Prim.State# GHC.Prim.RealWorld -> (# GHC.Prim.State# GHC.Prim.RealWorld, () #) [LclId] = \r srt:(0,*bitmap*) [s2] case action s2 of _ { (#,#) ipv2 ipv3 -> let { sat_seHs :: FRP.Sodium.Plain.Reactive () [LclId] = \u [] push ipv3; } in FRP.Sodium.Plain.sync1 sat_seHs ipv2; }; } in catch# [sat_seHt GHC.Conc.Sync.forkIO2 eta1]; } in case fork# [sat_seHu s1] of _ { (#,#) ipv2 _ -> (#,#) [ipv2 GHC.Tuple.()]; }; } in Control.Monad.Trans.State.Strict.$w$cliftIO Control.Monad.IO.Class.$fMonadIOIO sat_seHw; } in let { sat_seG8 :: Data.Maybe.Maybe (GHC.MVar.MVar FRP.Sodium.Plain.Node) [LclId] = NO_CCS Data.Maybe.Just! [nodeRef]; } in FRP.Sodium.Plain.linkedListen w sat_seG8 GHC.Types.False sat_seG7; } in case FRP.Sodium.Plain.split3 sat_seHx eta ipv of _ { (#,#) ipv2 ipv3 -> case ipv3 of _ { (,) a7 s' -> FRP.Sodium.Plain.split2 a7 l s' ipv2; }; }; }; }; } in (#,,#) [sat_seHz sat_seHy w];, [(FRP.Sodium.IO.$wa, [FRP.Sodium.Plain.sync1, Control.Monad.IO.Class.$fMonadIOIO, FRP.Sodium.Plain.split2, FRP.Sodium.Plain.split4, GHC.Conc.Sync.forkIO2])]), (FRP.Sodium.IO.executeAsyncIO1 [InlPrag=INLINE[0]] :: forall a. FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain (GHC.Types.IO a) -> FRP.Sodium.Plain.R:EventPlaina a [GblId, Arity=1, Str=DmdType Lm, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w] case FRP.Sodium.IO.$wa w of _ { (#,,#) ww1 ww2 ww3 -> FRP.Sodium.Plain.Event [ww1 ww2 ww3]; };, [(FRP.Sodium.IO.executeAsyncIO1, [FRP.Sodium.IO.$wa])]), (FRP.Sodium.IO.executeAsyncIO :: forall a. FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain (GHC.Types.IO a) -> FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain a [GblId, Arity=1, Str=DmdType Lm, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] FRP.Sodium.IO.executeAsyncIO1 eta_B1;, [(FRP.Sodium.IO.executeAsyncIO, [FRP.Sodium.IO.$wa])]), (FRP.Sodium.IO.$wa1 :: forall a. FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain (GHC.Types.IO a) -> (# FRP.Sodium.Plain.Reactive (FRP.Sodium.Plain.Listen a), GHC.IORef.IORef (Data.Maybe.Maybe (FRP.Sodium.Plain.Listen a)), FRP.Sodium.Plain.Dep #) [GblId, Arity=1, Str=DmdType L, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w] let { sat_seHW :: GHC.IORef.IORef (Data.Maybe.Maybe (FRP.Sodium.Plain.Listen a)) [LclId] = \u [] FRP.Sodium.Plain.unsafeNewIORef Data.Maybe.Nothing w; } in let { sat_seHX :: FRP.Sodium.Plain.Reactive (FRP.Sodium.Plain.Listen a) [LclId] = \r srt:(0,*bitmap*) [eta s] case FRP.Sodium.Plain.split4 s of _ { (#,#) ipv ipv1 -> case ipv1 of _ { (,,) l push nodeRef -> let { sat_seHV :: FRP.Sodium.Plain.Reactive (GHC.Types.IO ()) [LclId] = \u [] let { sat_seH0 :: GHC.Types.IO a -> FRP.Sodium.Plain.Reactive () [LclId] = \r [action eta1 s1] case action s1 of _ { (#,#) ipv2 ipv3 -> push ipv3 eta1 ipv2; }; } in let { sat_seH1 :: Data.Maybe.Maybe (GHC.MVar.MVar FRP.Sodium.Plain.Node) [LclId] = NO_CCS Data.Maybe.Just! [nodeRef]; } in FRP.Sodium.Plain.linkedListen w sat_seH1 GHC.Types.False sat_seH0; } in case FRP.Sodium.Plain.split3 sat_seHV eta ipv of _ { (#,#) ipv2 ipv3 -> case ipv3 of _ { (,) a7 s' -> FRP.Sodium.Plain.split2 a7 l s' ipv2; }; }; }; }; } in (#,,#) [sat_seHX sat_seHW w];, [(FRP.Sodium.IO.$wa1, [FRP.Sodium.Plain.split2, FRP.Sodium.Plain.split4])]), (FRP.Sodium.IO.executeSyncIO1 [InlPrag=INLINE[0]] :: forall a. FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain (GHC.Types.IO a) -> FRP.Sodium.Plain.R:EventPlaina a [GblId, Arity=1, Str=DmdType Lm, Unf=OtherCon []] = \r srt:(0,*bitmap*) [w] case FRP.Sodium.IO.$wa1 w of _ { (#,,#) ww1 ww2 ww3 -> FRP.Sodium.Plain.Event [ww1 ww2 ww3]; };, [(FRP.Sodium.IO.executeSyncIO1, [FRP.Sodium.IO.$wa1])]), (FRP.Sodium.IO.executeSyncIO :: forall a. FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain (GHC.Types.IO a) -> FRP.Sodium.Context.Event FRP.Sodium.Plain.Plain a [GblId, Arity=1, Str=DmdType Lm, Unf=OtherCon []] = \r srt:(0,*bitmap*) [eta_B1] FRP.Sodium.IO.executeSyncIO1 eta_B1;, [(FRP.Sodium.IO.executeSyncIO, [FRP.Sodium.IO.$wa1])])]