module Display (display) where

import System.IO (hFlush, stdout)

display :: String -> IO ()
display :: String -> IO ()
display String
s = String -> IO ()
putStr (String
"\r" String -> String -> String
forall a. [a] -> [a] -> [a]
++ String
s) IO () -> IO () -> IO ()
forall a b. IO a -> IO b -> IO b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> Handle -> IO ()
hFlush Handle
stdout