@@ -18,6 +18,7 @@ where
1818import Control.Concurrent (ThreadId)
1919import Control.Concurrent.MVar (MVar)
2020import Data.IORef (IORef)
21+import Data.List (intersperse)
2122import Data.Set (Set)
2223
2324import Streamly.Internal.Control.Concurrent (RunInIO)
@@ -138,7 +139,7 @@ stop sv winfo =
138139{-# NOINLINE dumpSVar #-}
139140dumpSVar :: Channel m a -> IO String
140141dumpSVar sv = do
141− xs <- sequence
142+ xs <- sequence $ intersperse (return "\n")
142143 [ return (dumpCreator (svarCreator sv))
143144 , return "---------CURRENT STATE-----------"
144145 , dumpOutputQ (outputQueue sv)