module Language.Haskell.TH.Compat.Data.Util ( foldAppT_, ) where import Language.Haskell.TH import Data.List (foldl') foldAppT_ :: Name -> [Type] -> Type foldAppT_ :: Name -> [Type] -> Type foldAppT_ Name n [Type] as = (Type -> Type -> Type) -> Type -> [Type] -> Type forall b a. (b -> a -> b) -> b -> [a] -> b forall (t :: * -> *) b a. Foldable t => (b -> a -> b) -> b -> t a -> b foldl' Type -> Type -> Type AppT (Name -> Type ConT Name n) [Type] as