@@ -107,10 +107,10 @@ import Streamly.Internal.Data.SVar
107-- it as a separate case to optimize composition operations for streams with
107-- it as a separate case to optimize composition operations for streams with
108-- single element. We build singleton streams in the implementation of 'pure'
108-- single element. We build singleton streams in the implementation of 'pure'
109-- for Applicative and Monad, and in 'lift' for MonadTrans.
109-- for Applicative and Monad, and in 'lift' for MonadTrans.
111-- XXX remove the Stream type parameter from State as it is always constant.
111-- XXX remove the Stream type parameter from State as it is always constant.
112-- We can remove it from SVar as well
112-- We can remove it from SVar as well
114newtype Stream m a =
114newtype Stream m a =
115 MkStream (forall r.
115 MkStream (forall r.
116 State Stream m a -- state
116 State Stream m a -- state