mirror of
https://github.com/composewell/streamly.git
synced 2024-09-21 08:31:42 +03:00
15 lines
483 B
Haskell
15 lines
483 B
Haskell
|
{-# LANGUAGE FlexibleContexts #-}
|
||
|
|
|
||
|
|
import Control.Monad.IO.Class (liftIO)
|
||
|
|
import Control.Monad.Trans.Class (lift)
|
||
|
|
import Path.IO (listDir, getCurrentDir)
|
||
|
|
import Path (Path, Dir, reldir)
|
||
|
|
import Asyncly
|
||
|
|
|
||
|
|
main = runAsyncly $ getCurrentDir >>= readdir
|
||
|
|
where readdir d = do
|
||
|
|
(ds, fs) <- lift $ listDir d
|
||
|
|
liftIO $ mapM_ putStrLn $ map show fs ++ map show ds
|
||
|
|
for ds readdir -- concurrent version
|
||
|
|
-- each ds >>= readdir -- serial version
|