From da7e9491af30554f4c0cef4efca2db75bc0281af Mon Sep 17 00:00:00 2001
From: Edoardo La Greca
Date: Thu, 25 Sep 2025 21:01:13 +0200
Subject: fix syntax in first exercise

---
 lec08/Party.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lec08/Party.hs b/lec08/Party.hs
index 4ac241b..fe60fe8 100644
--- a/lec08/Party.hs
+++ b/lec08/Party.hs
@@ -5,7 +5,7 @@ import Employee
 -- Exercise 1
 
 glCons :: Employee -> GuestList -> GuestList
-glCons e { empFun = ef } (GL es cf) = GL (e:es) (cf + ef)
+glCons e@Emp { empFun = ef } (GL es cf) = GL (e:es) (cf + ef)
 
 -- mappend (a.k.a. (<>)) has been moved to Semigroup
 instance Semigroup GuestList where
-- 
cgit v1.2.3