Fix build wip

anton-k · Nov 11, 2023 · 1f71d0a · 1f71d0a
1 parent d794691
commit 1f71d0a
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/mig-tools/src/Mig/Tool/Base.hs b/mig-tools/src/Mig/Tool/Base.hs
@@ -93,10 +93,12 @@ instance Functor React where
 filterReact :: (a -> Bool) -> React a -> React a
 filterReact f (React a) = React (a . filterSet f)
 
+{- todo
 accumReact :: (b -> a -> b) -> b -> React a -> React b
 accumReact go initVal (React x) = React $ \call -> do
   ref <- newIORef initVal
   call
+-}
 
 instance Semigroup (React a) where
   (<>) (React a) (React b) = React $ \f -> do