From 862976c067cc41435e1087def16dfb86c57b317b Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Fri, 17 Sep 2021 06:24:56 +0200
Subject: [PATCH] Add <<*>> operator

---
 src/Quasar/PreludeExtras.hs | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/Quasar/PreludeExtras.hs b/src/Quasar/PreludeExtras.hs
index 0024f2c..49d058e 100644
--- a/src/Quasar/PreludeExtras.hs
+++ b/src/Quasar/PreludeExtras.hs
@@ -89,6 +89,10 @@ infixl 4 <<$>>
 (<<$>>) :: (Functor f, Functor g) => (a -> b) -> f (g a) -> f (g b)
 (<<$>>) = fmap . fmap
 
+infixl 4 <<*>>
+(<<*>>) :: (Applicative f, Applicative g) => f (g (a -> b)) -> f (g a) -> f (g b)
+(<<*>>) = liftA2 (<*>)
+
 infixr 6 <<>>
 (<<>>) :: (Applicative f, Semigroup a) => f a -> f a -> f a
 (<<>>) = liftA2 (<>)
-- 
GitLab