{-# OPTIONS_HADDOCK hide #-}
module Imj.Game.Hamazed.Env(
Env
, createEnv
) where
import Imj.Graphics.Class.Draw(Draw(..))
import Imj.Graphics.Class.Render(Render(..))
import Imj.Graphics.Render.Delta(newDefaultEnv, DeltaEnv)
newtype Env = Env {
_envDeltaEnv :: DeltaEnv
}
instance Draw Env where
drawChar' (Env a) = drawChar' a
drawChars' (Env a) = drawChars' a
drawTxt' (Env a) = drawTxt' a
drawStr' (Env a) = drawStr' a
{-# INLINE drawChar' #-}
{-# INLINE drawChars' #-}
{-# INLINE drawTxt' #-}
{-# INLINE drawStr' #-}
instance Render Env where
renderToScreen' (Env a) = renderToScreen' a
{-# INLINE renderToScreen' #-}
createEnv :: IO Env
createEnv = Env <$> newDefaultEnv