[(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])])]