haskell prob

haskellprob.hs

data GameState = GameState { map :: [[Int]], timer :: Timer }

data GameSprites = GameSprites { sprites :: Surface, samus :: Surface}

newGame :: IO (GameState, GameSprites)
newGame = do
	samus <- loadBMP "img/samus.bmp" 
	sprites <- loadBMP "img/spritesheet.bmp"
	map <- [[]] 
	timer <- start defaultTimer
    return (GameState map timer, GameSprites sprites samus)