[Git][ghc/ghc][wip/strict-break] comment out lazy break

[Josh Meredith (@JoshMeredith)]

Josh Meredith pushed to branch wip/strict-break at Glasgow Haskell Compiler / GHC


Commits:
e70f23c6 by Josh Meredith at 2023-01-12T12:08:13+00:00
comment out lazy break

- - - - -


1 changed file:

- libraries/base/GHC/List.hs


Changes:

=====================================
libraries/base/GHC/List.hs
=====================================
@@ -1094,15 +1094,15 @@ span p xs@(x:xs')
 -- ([1,2,3],[])
 --
 -- 'break' @p@ is equivalent to @'span' ('not' . p)@.
-break, break_, break' :: (a -> Bool) -> [a] -> ([a],[a])
+break, break' :: (a -> Bool) -> [a] -> ([a],[a])
 #if defined(USE_REPORT_PRELUDE)
 break_ p                 =  span (not . p)
 #else
 -- HBC version (stolen)
-break_ _ xs@[]          =  (xs, xs)
-break_ p xs@(x:xs')
-            | p x       =  ([],xs)
-            | otherwise =  let (ys,zs)   = break_ p xs' in (x:ys,zs)
+-- break_ _ xs@[]          =  (xs, xs)
+-- break_ p xs@(x:xs')
+--             | p x       =  ([],xs)
+--             | otherwise =  let (ys,zs)   = break_ p xs' in (x:ys,zs)
 #endif
 
 break' _ xs@[]          = (xs, xs)



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e70f23c6272dd969a05caa88f8dfccbb1716ff49

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/e70f23c6272dd969a05caa88f8dfccbb1716ff49
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230112/f4f53225/attachment-0001.html>