summaryrefslogtreecommitdiff
path: root/src/Configuration/Utils/Operators.hs
diff options
context:
space:
mode:
Diffstat (limited to 'src/Configuration/Utils/Operators.hs')
-rw-r--r--src/Configuration/Utils/Operators.hs3
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Configuration/Utils/Operators.hs b/src/Configuration/Utils/Operators.hs
index 2b1de53..b60de07 100644
--- a/src/Configuration/Utils/Operators.hs
+++ b/src/Configuration/Utils/Operators.hs
@@ -56,7 +56,7 @@ infixr 5 ×
-- | Functional composition for applicative functors.
--
(<*<) ∷ Applicative f ⇒ f (b → c) → f (a → b) → f (a → c)
-(<*<) a b = pure (.) <*> a <*> b
+(<*<) a b = ((.) <$> a) <*> b
infixr 4 <*<
{-# INLINE (<*<) #-}
@@ -109,4 +109,3 @@ infixr 4 <.>
infixr 4 ⊙
{-# INLINE (⊙) #-}
{-# DEPRECATED (⊙) "use '<*<' instead" #-}
-