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