FRP.Fursuit.zipS1 =: FRP.Fursuit.Signal.Pure <{GHC.Tuple.(,)}> FRP.Fursuit.zipS a_s4ks b_s4ku = FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.zipS1 a_s4ks) b_s4ku FRP.Fursuit.filterS eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.Filter eta_B2_B2 eta_B1_B1 FRP.Fursuit.filterMapS1 =: FRP.Fursuit.Signal.Pure Data.Maybe.fromJust FRP.Fursuit.filterMapS f_s4kx sig_s4kz = FRP.Fursuit.Signal.App FRP.Fursuit.filterMapS1 (FRP.Fursuit.Signal.Filter Data.Maybe.isJust (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.Pure f_s4kx) sig_s4kz)) FRP.Fursuit.fromS6 =: FRP.Fursuit.Signal.Pure Data.Tuple.snd FRP.Fursuit.fromS5 =: FRP.Fursuit.Signal.Pure <{GHC.Tuple.(,)}> FRP.Fursuit.whenS p_s4kG s_s4kI = FRP.Fursuit.Signal.App FRP.Fursuit.fromS6 (FRP.Fursuit.Signal.Filter Data.Tuple.fst (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.fromS5 p_s4kG) s_s4kI)) FRP.Fursuit.accumS eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.Accum eta_B2_B2 eta_B1_B1 FRP.Fursuit.stateful2 fun_s4kU ds_s4kP = select ds_s4kP (<{GHC.Tuple.(,)}> st_s4kT ds1_s4nJ -> fun_s4kU st_s4kT) FRP.Fursuit.stateful3 =: FRP.Fursuit.Signal.Pure Data.Tuple.snd FRP.Fursuit.stateful1 =: FRP.Fursuit.Signal.Pure FRP.Fursuit.stateful2 FRP.Fursuit.stateful initial_s4kX f_s4kY = FRP.Fursuit.Signal.App FRP.Fursuit.stateful3 (FRP.Fursuit.Signal.Accum initial_s4kX (FRP.Fursuit.Signal.App FRP.Fursuit.stateful1 f_s4kY)) FRP.Fursuit.union eta_B2_B2 eta_B1_B1 = FRP.Fursuit.Signal.Union eta_B2_B2 eta_B1_B1 FRP.Fursuit.unions1 z_s4l6 ds_s4l4 = select ds_s4l4 (<{GHC.Types.[]}> -> z_s4l6) (<{GHC.Types.:}> x_s4l9 xs_s4lb -> FRP.Fursuit.unions1 (FRP.Fursuit.Signal.Union z_s4l6 x_s4l9) xs_s4lb) FRP.Fursuit.unions ds_s4ld = select ds_s4ld (<{GHC.Types.[]}> -> <{Data.List.foldl1'1}>) (<{GHC.Types.:}> x_s4lh xs_s4li -> FRP.Fursuit.unions1 x_s4lh xs_s4li) FRP.Fursuit.untilS4 ds_s4ll eta_s4lm = false FRP.Fursuit.untilS3 =: FRP.Fursuit.Signal.Pure FRP.Fursuit.untilS4 FRP.Fursuit.untilS2 ds_s4lp eta_s4lq = true FRP.Fursuit.untilS1 =: FRP.Fursuit.Signal.Pure FRP.Fursuit.untilS2 FRP.Fursuit.untilS p_s4lu sig_s4lv reset_s4lz = FRP.Fursuit.Signal.App FRP.Fursuit.fromS6 (FRP.Fursuit.Signal.Filter Data.Tuple.fst (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.fromS5 (FRP.Fursuit.Signal.Accum true (FRP.Fursuit.Signal.Union (FRP.Fursuit.Signal.App FRP.Fursuit.untilS3 (FRP.Fursuit.Signal.Filter p_s4lu sig_s4lv)) (FRP.Fursuit.Signal.App FRP.Fursuit.untilS1 reset_s4lz)))) sig_s4lv)) FRP.Fursuit.fromS4 ds_s4lO eta_s4lP = true FRP.Fursuit.fromS3 =: FRP.Fursuit.Signal.Pure FRP.Fursuit.fromS4 FRP.Fursuit.fromS2 ds_s4lS eta_s4lT = false FRP.Fursuit.fromS1 =: FRP.Fursuit.Signal.Pure FRP.Fursuit.fromS2 FRP.Fursuit.fromS p_s4lX sig_s4lY reset_s4m2 = FRP.Fursuit.Signal.App FRP.Fursuit.fromS6 (FRP.Fursuit.Signal.Filter Data.Tuple.fst (FRP.Fursuit.Signal.App (FRP.Fursuit.Signal.App FRP.Fursuit.fromS5 (FRP.Fursuit.Signal.Accum false (FRP.Fursuit.Signal.Union (FRP.Fursuit.Signal.App FRP.Fursuit.fromS3 (FRP.Fursuit.Signal.Filter p_s4lX sig_s4lY)) (FRP.Fursuit.Signal.App FRP.Fursuit.fromS1 reset_s4m2)))) sig_s4lY)) FRP.Fursuit.switch1 action_s4mw sig_s4nm eta_s4mi = let !ds1_s4om = FRP.Fursuit.Pipe.emptyPipe1 eta_s4mi in select ds1_s4om (<{GHC.Tuple.(,)}> ipv_s4mq ipv1_s4mm -> select ipv1_s4mm (<{GHC.Tuple.(,)}> ptrig_s4n2 trigSig_s4my -> let !ds_s4ok = newMutVar# Data.Maybe.Nothing ipv_s4mq in select ds_s4ok (<{GHC.Tuple.(,)}> ipv2_s4nn ipv3_s4mE -> let !ds2_s4ov = FRP.Fursuit.Signal.removableSink1 (FRP.Fursuit.switch1$2 action_s4mw ipv3_s4mE ptrig_s4n2 trigSig_s4my) sig_s4nm ipv2_s4nn in select ds2_s4ov (<{GHC.Tuple.(,)}> ipv4_s4nr ipv5_s4oj -> <{GHC.Tuple.(,)}> ipv4_s4nr <{GHC.Tuple.()}>)))) FRP.Fursuit.switch1$2 action_s4mw ipv3_s4mE ptrig_s4n2 trigSig_s4my s_s4mx s1_s4mA = let !ds2_s4or = FRP.Fursuit.Signal.removableSink1 action_s4mw (FRP.Fursuit.Signal.Union s_s4mx trigSig_s4my) s1_s4mA in select ds2_s4or (<{GHC.Tuple.(,)}> ipv4_s4mF ipv5_s4n7 -> let !ds3_s4oq = readMutVar# ipv3_s4mE ipv4_s4mF in select ds3_s4oq (<{GHC.Tuple.(,)}> ipv6_s4n9 ipv7_s4n5 -> select ipv7_s4n5 (Data.Maybe.Nothing -> let !s2#_s4nb = writeMutVar# ipv3_s4mE (Data.Maybe.Just ipv5_s4n7) ipv6_s4n9 in FRP.Fursuit.switch1$1 ptrig_s4n2 s_s4mx s2#_s4nb) (Data.Maybe.Just <{r'_s4nd}> -> let !ds4_s4ou = <{r'_s4nd}> ipv6_s4n9 in select ds4_s4ou (<{GHC.Tuple.(,)}> ipv8_s4ni ipv9_s4of -> let !s2#_s4nk = writeMutVar# ipv3_s4mE (Data.Maybe.Just ipv5_s4n7) ipv8_s4ni in FRP.Fursuit.switch1$1 ptrig_s4n2 s_s4mx s2#_s4nk)))) FRP.Fursuit.switch1$1 ptrig_s4n2 s_s4mx s2_s4mL = let !ds4_s4op = FRP.Fursuit.Signal.compile1 s_s4mx s2_s4mL in select ds4_s4op (<{GHC.Tuple.(,)}> ipv8_s4mP ipv9_s4mQ -> let !ds5_s4oo = ipv9_s4mQ ipv8_s4mP in select ds5_s4oo (<{GHC.Tuple.(,)}> ipv10_s4mW ipv11_s4mU -> select ipv11_s4mU (Data.Maybe.Nothing -> <{GHC.Tuple.(,)}> ipv10_s4mW <{GHC.Tuple.()}>) (Data.Maybe.Just a1_s4mY -> select a1_s4mY (<{GHC.Tuple.(,)}> x_s4n3 ds6_s4oh -> FRP.Fursuit.Pipe.write1 ptrig_s4n2 x_s4n3 ipv10_s4mW)))) FRP.Fursuit.switch eta_B3_B3 eta_B2_B2 eta_B1_B1 = FRP.Fursuit.switch1 eta_B3_B3 eta_B2_B2 eta_B1_B1 FRP.Fursuit.new x_s4nt = FRP.Fursuit.Signal.New (GHC.IO.unsafePerformIO x_s4nt)