From 1f71d0ac0464324cfb44a424a9037e3201f903c0 Mon Sep 17 00:00:00 2001
From: Anton Kholomiov <anton.kholomiov@gmail.com>
Date: Sat, 11 Nov 2023 22:12:21 +0300
Subject: [PATCH] Fix build wip

---
 mig-tools/src/Mig/Tool/Base.hs | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/mig-tools/src/Mig/Tool/Base.hs b/mig-tools/src/Mig/Tool/Base.hs
index 17bf0db..87b64f2 100644
--- 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