@@ -7,12 +7,12 @@ import Streamly (runStream, aheadly)
77--
88-- This example demonstrates that there is little difference between regular
99-- IO code and concurrent streamly code. You can just remove
10−-- 'runStream . asyncly' and this becomes your regular IO code.
10+-- 'runStream . aheadly' and this becomes your regular IO code.
1111main :: IO ()
1212main = do
1313 hSetBuffering stdout LineBuffering
1414 runStream . aheadly $ getCurrentDir >>= readdir
1515 where readdir d = do
16− (ds, fs) <- liftIO $ listDir d
16+ (ds, fs) <- listDir d
1717 liftIO $ mapM_ putStrLn $ map show fs ++ map show ds
1818 foldMap readdir ds