module Display (display) where

import System.IO (hFlush, stdout)

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