mirror of
https://github.com/ilyakooo0/urbit.git
synced 2024-12-22 14:21:34 +03:00
33 lines
689 B
Haskell
33 lines
689 B
Haskell
{-|
|
|
Terminal Driver
|
|
-}
|
|
module Urbit.Vere.Term.Render
|
|
( clearScreen
|
|
, clearLine
|
|
, cursorRight
|
|
, cursorLeft
|
|
, soundBell
|
|
) where
|
|
|
|
import ClassyPrelude
|
|
|
|
import qualified System.Console.ANSI as ANSI
|
|
|
|
|
|
-- Types -----------------------------------------------------------------------
|
|
|
|
clearScreen ∷ MonadIO m ⇒ m ()
|
|
clearScreen = liftIO $ ANSI.clearScreen
|
|
|
|
clearLine ∷ MonadIO m ⇒ m ()
|
|
clearLine = liftIO $ ANSI.clearLine
|
|
|
|
soundBell ∷ MonadIO m ⇒ m ()
|
|
soundBell = liftIO $ putStr "\a"
|
|
|
|
cursorLeft ∷ MonadIO m ⇒ Int → m ()
|
|
cursorLeft = liftIO . ANSI.cursorBackward
|
|
|
|
cursorRight ∷ MonadIO m ⇒ Int → m ()
|
|
cursorRight = liftIO . ANSI.cursorForward
|