composewell/streamly
1
1
Fork 0
mirror of https://github.com/composewell/streamly.git synced 2024-08-17 07:20:36 +03:00
Code Issues Packages Projects Releases Wiki Activity

Code that trigger ghc-8.2.2 to crash

Browse Source
This commit is contained in:
Harendra Kumar 2018-06-25 06:01:31 +05:30
parent 70ba5db031
commit 8f08248eba
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Streamly/Prelude.hs
View File

@ -473,7 +473,11 @@ take n m = fromStream $ D.toStreamK $ D.take n (D.fromStreamK $ toStream m)
-- @since 0.1.0
{-# INLINE filter #-}
filter :: (IsStream t, Monad m) => (a -> Bool) -> t m a -> t m a
-- XXX this causes GHC-8.2.2 to go into a liveloop with 100% CPU when compiling
-- the "linear" benchmark code.
filter p m = fromStream $ D.toStreamK $ D.filter p (D.fromStreamK $ toStream m)
-- This implementation works fine
-- filter = K.filter
-- | End the stream as soon as the predicate fails on an element.
--