git.iko.soy/streamly
on master help sign in
Inline rnf in NFData (Stream Identity a) instance.
c726ca3Pranay Sashank
src/Streamly/Streams/Instances.hs+1
compare with master
unifiedsplit
@@ -108,6 +108,7 @@ instance (a ~ Char) => IsString (STREAM Identity a) where { \
108 fromString = P.fromList }; \
108 fromString = P.fromList }; \
109 \
109 \
110instance NFData a => NFData (STREAM Identity a) where { \
110instance NFData a => NFData (STREAM Identity a) where { \
111+ {-# INLINE rnf #-}; \
111 rnf = runIdentity . P.foldl' (\_ x -> rnf x) () }; \
112 rnf = runIdentity . P.foldl' (\_ x -> rnf x) () }; \
112
113
113-------------------------------------------------------------------------------
114-------------------------------------------------------------------------------