diff options
| author | Edoardo La Greca | 2025-09-25 21:01:13 +0200 |
|---|---|---|
| committer | Edoardo La Greca | 2025-09-25 21:01:13 +0200 |
| commit | da7e9491af30554f4c0cef4efca2db75bc0281af (patch) | |
| tree | 3e6f4013adf3b58f872c99e9f16040d011e0a87e /lec08/Party.hs | |
| parent | 1ca06ff0e1d16586c9ae32baa55988c72aee7b2e (diff) | |
fix syntax in first exercise
Diffstat (limited to 'lec08/Party.hs')
| -rw-r--r-- | lec08/Party.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |