Inline rnf in NFData (Stream Identity a) instance.
commitc726ca36b8892d5ed0fbc5345c1658aee6c09a2c
authorPranay Sashank <pranaysashank@gmail.com>
dateFri 2 Aug 2019, 20:58 (7 years ago)
parent5fd4c2f
src/Streamly/Streams/Instances.hs+1
@@ -108,6 +108,7 @@ instance (a ~ Char) => IsString (STREAM Identity a) where { \
108108 fromString = P.fromList }; \
109109 \
110110instance NFData a => NFData (STREAM Identity a) where { \
111+ {-# INLINE rnf #-}; \
111112 rnf = runIdentity . P.foldl' (\_ x -> rnf x) () }; \
112113
113114-------------------------------------------------------------------------------