Skip to content

Instantly share code, notes, and snippets.

@xkikeg

xkikeg/SimpleOverwriteConsole.hs

Created February 7, 2014 07:00
Show Gist options
  • Save xkikeg/8858387 to your computer and use it in GitHub Desktop.
Save xkikeg/8858387 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
SimpleOverwriteConsole.hs
import System.IO (hFlush, stdout)
import Control.Concurrent (threadDelay)
main = do
putStr "\ESC[0G\ESC[0Ktest1 " >> hFlush stdout
threadDelay 1000000
putStr "\ESC[0G\ESC[0Ktest2 " >> hFlush stdout
threadDelay 1000000
putStr "\ESC[0G\ESC[0Ktest3 " >> hFlush stdout
putStrLn ""
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment