From 5dc60cc0bee6b36b82ccd6e4c18d4de80aef0f91 Mon Sep 17 00:00:00 2001
From: Edoardo La Greca
Date: Tue, 23 Sep 2025 20:40:26 +0200
Subject: prettify expression of (+++) function

---
 lec07/JoinList.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lec07/JoinList.hs')

diff --git a/lec07/JoinList.hs b/lec07/JoinList.hs
index 7f626df..db74811 100644
--- a/lec07/JoinList.hs
+++ b/lec07/JoinList.hs
@@ -20,7 +20,7 @@ tag (Single m _) = m
 tag (Append m _ _) = m
 
 (+++) :: Monoid m => JoinList m a -> JoinList m a -> JoinList m a
-(+++) jl1 jl2 = Append (mappend (tag jl1) (tag jl2)) jl1 jl2
+(+++) jl1 jl2 = Append ((tag jl1) <> (tag jl2)) jl1 jl2
 
 -- Exercise 2
 
-- 
cgit v1.2.3