Disambiguate foldr
commite2f387bde33e1c134d07dcca879ec5e803f56429
authorMichael Xavier <michael@michaelxavier.net>
dateThu 6 Jul 2017, 16:54 (9 years ago)
parent27e9170
katip/src/Katip/Core.hs+1−1
@@ -691,7 +691,7 @@ closeScribes le = do
691691 -- We want to run every finalizer here so we'll not save
692692 -- intermediate logenvs and just clear scribes at the end.
693693 let actions = [void (closeScribe k le) | k <- M.keys (_logEnvScribes le)]
694− foldr finally (return ()) actions
694+ FT.foldr finally (return ()) actions
695695 return (le & logEnvScribes .~ mempty)
696696
697697