Add buffering

This commit is contained in:
Chris Done 2019-11-19 12:07:11 +00:00
parent 186d4dbf85
commit 67c561e3be

View File

@ -22,6 +22,7 @@ import Duet.Simple
import Duet.Stepper import Duet.Stepper
import Duet.Types import Duet.Types
import Options.Applicative.Simple import Options.Applicative.Simple
import System.IO
data Run = Run data Run = Run
{ runInputFile :: FilePath { runInputFile :: FilePath
@ -34,6 +35,8 @@ data Run = Run
main :: IO () main :: IO ()
main = do main = do
hSetBuffering stdout LineBuffering
hSetBuffering stdin LineBuffering
((), cmd) <- ((), cmd) <-
simpleOptions simpleOptions
"1.0" "1.0"