From 778ac793289934eb89f904cee4b8d4162b0539fa Mon Sep 17 00:00:00 2001
From: Kazuki Okamoto <kazuki.okamoto@kakkun61.com>
Date: Thu, 31 Oct 2024 17:18:13 +0900
Subject: [PATCH] No haddock markup in doctest line
---
libraries/ghc-internal/src/GHC/Internal/List.hs | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/libraries/ghc-internal/src/GHC/Internal/List.hs b/libraries/ghc-internal/src/GHC/Internal/List.hs
index e96d1bc3563..f59437ccee4 100644
--- a/libraries/ghc-internal/src/GHC/Internal/List.hs
+++ b/libraries/ghc-internal/src/GHC/Internal/List.hs
@@ -1619,7 +1619,7 @@ lookup key ((x,y):xys)
-- >>> concatMap (\i -> [-i, i]) [1, 2, 3]
-- [-1,1,-2,2,-3,3]
--
--- >>> concatMap ('replicate' 3) [0, 2, 4]
+-- >>> concatMap (replicate 3) [0, 2, 4]
-- [0,0,0,2,2,2,4,4,4]
concatMap :: (a -> [b]) -> [a] -> [b]
concatMap f = foldr ((++) . f) []
--
GitLab