yogsototh/haskell-turtle-library
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove unnecessary hFlushes

Browse source
This commit is contained in:
Gabriel Gonzalez 2015-08-02 09:15:14 -07:00
parent aa821df59f
commit 537aea2f02
1 changed files with 1 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Turtle/Prelude.hs
View file

@ -235,7 +235,7 @@ import System.Environment (
import System.Directory (Permissions)
import qualified System.Directory as Directory
import System.Exit (ExitCode(..), exitWith)
import System.IO (Handle, hClose, hFlush)
import System.IO (Handle, hClose)
import qualified System.IO as IO
import System.IO.Temp (withTempDirectory, withTempFile)
import qualified System.Process as Process
@ -338,7 +338,6 @@ system p s = liftIO (do
sh (do
txt <- s
liftIO (Text.hPutStrLn hIn txt) )
hFlush hIn
hClose hIn
withAsync feedIn (\a -> liftIO (Process.waitForProcess ph) <* wait a) )
@ -361,7 +360,6 @@ systemStrict p s = liftIO (do
sh (do
txt <- s
liftIO (Text.hPutStrLn hIn txt) )
hFlush hIn
hClose hIn
concurrently
(withAsync feedIn (\a -> liftIO (Process.waitForProcess ph) <* wait a))
@ -416,7 +414,6 @@ stream p s = do
sh (do
txt <- s
liftIO (Text.hPutStrLn hIn txt) )
hFlush hIn
hClose hIn
a <- using (fork feedIn)
inhandle hOut <|> (liftIO (Process.waitForProcess ph *> wait a) *> empty)