function-instances-algebra-0.1: Data/Function/Instances/Algebra/Internal.hs

module Data.Function.Instances.Algebra.Internal where

zipFn :: (a -> b -> c) -> (d -> a) -> (d -> b) -> d -> c
zipFn op f g x = f x `op` g x