@@ -691,7 +691,7 @@ closeScribes le = do
691 -- We want to run every finalizer here so we'll not save
691 -- We want to run every finalizer here so we'll not save
692 -- intermediate logenvs and just clear scribes at the end.
692 -- intermediate logenvs and just clear scribes at the end.
693 let actions = [void (closeScribe k le) | k <- M.keys (_logEnvScribes le)]
693 let actions = [void (closeScribe k le) | k <- M.keys (_logEnvScribes le)]
694− foldr finally (return ()) actions
694+ FT.foldr finally (return ()) actions
695 return (le & logEnvScribes .~ mempty)
695 return (le & logEnvScribes .~ mempty)