{-# OPTIONS_HADDOCK hide #-}
module Imj.Example.DeltaRender.FromMonadIO
( main
) where
import Control.Monad.IO.Class(MonadIO)
import Imj.Graphics.Color
import Imj.Graphics.Class.Draw(drawStr')
import Imj.Graphics.Class.Render(renderToScreen')
import Imj.Graphics.Render.Delta
helloWorld :: (MonadIO m) => DeltaEnv -> m ()
helloWorld env = do
drawStr' env "Hello World" (Coords 10 10) (onBlack green)
renderToScreen' env
main :: IO ()
main = runThenRestoreConsoleSettings $ newDefaultEnv >>= helloWorld