From 48f201da87acb9a7b6e347c77068d08a3cf00d32 Mon Sep 17 00:00:00 2001 From: Masahiro Kitagawa Date: Sun, 14 Sep 2025 22:52:00 +0900 Subject: [PATCH] refactor: Use mappend/mempty instead of ++/"" --- src/content/1.4/code/haskell/snippet04.hs | 2 +- src/content/1.4/code/haskell/snippet05.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/content/1.4/code/haskell/snippet04.hs b/src/content/1.4/code/haskell/snippet04.hs index d93eeb5b3..135e9cce9 100644 --- a/src/content/1.4/code/haskell/snippet04.hs +++ b/src/content/1.4/code/haskell/snippet04.hs @@ -1,4 +1,4 @@ m1 >=> m2 = \x -> let (y, s1) = m1 x (z, s2) = m2 y - in (z, s1 ++ s2) \ No newline at end of file + in (z, s1 `mappend` s2) diff --git a/src/content/1.4/code/haskell/snippet05.hs b/src/content/1.4/code/haskell/snippet05.hs index 159fd0075..c0f38da7f 100644 --- a/src/content/1.4/code/haskell/snippet05.hs +++ b/src/content/1.4/code/haskell/snippet05.hs @@ -1,2 +1,2 @@ return :: a -> Writer a -return x = (x, "") \ No newline at end of file +return x = (x, mempty)