From 4d85d68b004a3d577c0e27d9e6fdddd118e8a9f3 Mon Sep 17 00:00:00 2001 From: Paavo Date: Sat, 14 Mar 2020 21:09:55 +0200 Subject: Clean up --- libraries/base/Data/Semigroup.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'libraries/base/Data/Semigroup.hs') diff --git a/libraries/base/Data/Semigroup.hs b/libraries/base/Data/Semigroup.hs index 9a21b9a2ec..d4de06fe0c 100644 --- a/libraries/base/Data/Semigroup.hs +++ b/libraries/base/Data/Semigroup.hs @@ -126,7 +126,6 @@ cycle1 xs = xs' where xs' = xs <> xs' -- | This lets you use a difference list of a 'Semigroup' as a 'Monoid'. -- --- >>> import Data.Semigroup -- >>> let hello = diff "Hello, " -- >>> appEndo hello "World!" -- "Hello, World!" @@ -136,9 +135,9 @@ cycle1 xs = xs' where xs' = xs <> xs' -- "Hello, World!" -- >>> let world = diff "World" -- >>> let excl = diff "!" --- >>> print $ appEndo (hello <> (world <> excl)) mempty +-- >>> appEndo (hello <> (world <> excl)) mempty -- "Hello, World!" --- >>> print $ appEndo ((hello <> world) <> excl) mempty +-- >>> appEndo ((hello <> world) <> excl) mempty -- "Hello, World!" diff :: Semigroup m => m -> Endo m diff = Endo . (<>) -- cgit v1.2.1