module World
	{-# DEPRECATED "This module has been superseded by Graphics.UI.ObjectIO" #-}
	(loadWorld, storeWorld) where

import Data.IORef
import System.IO.Unsafe

world :: IORef Int
world = unsafePerformIO (newIORef 65536)
{-# NOINLINE world #-}

loadWorld  = readIORef world
storeWorld = writeIORef world
