From 428bb7e22e5c7762cb3c2a2b9689981056ff9115 Mon Sep 17 00:00:00 2001
From: Kei Hibino <ex8k.hibino@gmail.com>
Date: Fri, 13 Dec 2024 20:37:22 +0900
Subject: [PATCH] impl mkAutoUpdateWithModify using extended def

---
 auto-update/Control/AutoUpdate/Internal.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/auto-update/Control/AutoUpdate/Internal.hs b/auto-update/Control/AutoUpdate/Internal.hs
index b4117437c..aad40e1b1 100644
--- a/auto-update/Control/AutoUpdate/Internal.hs
+++ b/auto-update/Control/AutoUpdate/Internal.hs
@@ -84,7 +84,7 @@ mkAutoUpdate = mkAutoUpdateThings $ \g _ _ -> g
 --
 -- @since 0.1.4
 mkAutoUpdateWithModify :: UpdateSettings a -> (a -> IO a) -> IO (IO a)
-mkAutoUpdateWithModify us f = undefined
+mkAutoUpdateWithModify us f = mkAutoUpdateThingsWithModify (\g _ _ -> g) us f
 
 -- $setup
 -- >>> :set -XNumericUnderscores