From 4a76790b64b71e29994f90d49a77a687b9b4278c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Manuel=20B=C3=A4renz?= Date: Tue, 16 Jul 2024 09:50:30 +0200 Subject: [PATCH] FIXUP? DROP? Undo scheduling thing, scheduleList actually works --- rhine/src/FRP/Rhine/SN/Free.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/rhine/src/FRP/Rhine/SN/Free.hs b/rhine/src/FRP/Rhine/SN/Free.hs index c1879752c..7f71b6cd3 100644 --- a/rhine/src/FRP/Rhine/SN/Free.hs +++ b/rhine/src/FRP/Rhine/SN/Free.hs @@ -385,8 +385,8 @@ runClocks cls = performOnFirstSample $ scheduleAutomatons <$> getRunningClocks ( -- FIXME I have to get rid of the final implementation of scheduleList first scheduleAutomatons :: (Monad m, MonadSchedule m) => [Automaton m () a] -> Automaton m () a - -- scheduleAutomatons msfs = concatS $ scheduleList (fromList msfs) >>> arr toList - scheduleAutomatons = foldr1 schedulePair + scheduleAutomatons msfs = concatS $ scheduleList (fromList msfs) >>> arr toList + -- scheduleAutomatons = foldr1 schedulePair infix 4 >>>^