FIXUP? DROP? Undo scheduling thing, scheduleList actually works

turion · Jul 16, 2024 · 4a76790 · 4a76790
1 parent ebd76e5
commit 4a76790
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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 >>>^