From fc85ec26151845dc9e972a7b91bd3828b0132baf Mon Sep 17 00:00:00 2001
From: Jens Nolte <git@queezle.net>
Date: Mon, 12 Jul 2021 18:04:01 +0200
Subject: [PATCH] Add lifted semigroup operator

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

diff --git a/src/Quasar/PreludeExtras.hs b/src/Quasar/PreludeExtras.hs
index d2cb51b..377efab 100644
--- a/src/Quasar/PreludeExtras.hs
+++ b/src/Quasar/PreludeExtras.hs
@@ -8,6 +8,7 @@ import "base" Prelude
 
 import Quasar.Utils.ExtraT
 
+import Control.Applicative (liftA2)
 import Control.Monad.State.Lazy as State
 import qualified Data.Char as Char
 import qualified Data.Hashable as Hashable
@@ -80,5 +81,9 @@ infixl 4 <<$>>
 (<<$>>) :: (Functor f, Functor g) => (a -> b) -> f (g a) -> f (g b)
 (<<$>>) = fmap . fmap
 
+infixr 6 <<>>
+(<<>>) :: (Applicative f, Semigroup a) => f a -> f a -> f a
+(<<>>) = liftA2 (<>)
+
 dup :: a -> (a, a)
 dup x = (x, x)
-- 
GitLab