diff options
| -rw-r--r-- | lec07/JoinList.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |