module State.Loading.Load where import Affection import SDL (($=), get) import qualified SDL import qualified SDL.Internal.Numbered as SDL import qualified SDL.Raw.Video as SDL (glSetAttribute) import qualified SDL.Raw.Enum as SDL import qualified Graphics.Rendering.OpenGL as GL import qualified Graphics.GL as GLRaw import Foreign.Marshal.Array import qualified Data.ByteString as B import qualified Data.ByteString.Char8 as B8 import Control.Concurrent.STM -- internal imports import Types import Map initLoad :: GameData -> Affection () initLoad gd = liftIO $ atomically $ writeTVar (gameState gd) (MainGame Test)