diff options
| -rw-r--r-- | src/AtomicPrint.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/AtomicPrint.hs b/src/AtomicPrint.hs index c2367dd..82a8552 100644 --- a/src/AtomicPrint.hs +++ b/src/AtomicPrint.hs @@ -9,6 +9,7 @@ import Control.Monad (void) import Data.Text qualified as T import Data.Text.IO.Utf8 qualified as T import Data.Text (Text) +import System.IO import System.IO.Unsafe (unsafePerformIO) @@ -22,7 +23,7 @@ atomicPrintS = atomicPrint . T.pack atomicPrint :: Text -> IO () atomicPrint text = withMVar mutex $ \() -> - T.putStrLn text + T.putStrLn text >> hFlush stdout atomicPrintNoWaitS :: String -> IO () atomicPrintNoWaitS = atomicPrintNoWait . T.pack |