From 47d9766c78a221e9212e655c09db1043da5e119e Mon Sep 17 00:00:00 2001
From: Julian Ospald <hasufell@posteo.de>
Date: Thu, 25 Feb 2021 15:40:52 +0100
Subject: [PATCH] Make sure forFold can properly inline

---
 lib/GHCup/Utils.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lib/GHCup/Utils.hs b/lib/GHCup/Utils.hs
index 6d0e68b..b85090a 100644
--- a/lib/GHCup/Utils.hs
+++ b/lib/GHCup/Utils.hs
@@ -816,4 +816,4 @@ traverseFold f = foldl (\mb a -> (<>) <$> mb <*> f a) (pure mempty)
 
 -- | Gathering monoidal values
 forFold :: (Foldable t, Applicative m, Monoid b) => t a -> (a -> m b) -> m b
-forFold = flip traverseFold
+forFold = \t -> \f -> traverseFold f t