diff options
| -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 |