@@ -1,13 +1,15 @@
1+#!/usr/bin/env stack
2+-- stack runghc --package path --package path-io
13{-# LANGUAGE FlexibleContexts #-}
24
3−import Control.Monad.IO.Class (liftIO)
4−import Control.Monad.Trans.Class (lift)
5−import Data.Monoid ((<>))
65import Path.IO (listDir, getCurrentDir)
76import Path (Path, Dir, reldir)
7+import System.IO (stdout, hSetBuffering, BufferMode(LineBuffering))
88import Asyncly
99
10−main = runAsyncly $ getCurrentDir >>= readdir
10+main = do
11+ liftIO $ hSetBuffering stdout LineBuffering
12+ runAsyncly $ getCurrentDir >>= readdir
1113 where readdir d = do
1214 (ds, fs) <- lift $ listDir d
1315 liftIO $ mapM_ putStrLn $ map show fs ++ map show ds