diff options
| author | Edoardo La Greca | 2025-09-23 20:40:26 +0200 |
|---|---|---|
| committer | Edoardo La Greca | 2025-09-23 20:40:26 +0200 |
| commit | 5dc60cc0bee6b36b82ccd6e4c18d4de80aef0f91 (patch) | |
| tree | 1db2931148f2ac5bfe6770100dc56bbb8fd5993f | |
| parent | 3994f52418a0a160f8b05776e838e5001edf103a (diff) | |
prettify expression of (+++) function
| -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 |