module Data.IO.Global where

import qualified Data.IO.Dict as Dict
import Data.Typeable

initGlobal :: Typeable a => a -> IO ()
initGlobal x  = do
  d <- Dict.standard
  Dict.register d x

getGlobal :: Typeable a => IO a
getGlobal = do
  d <- Dict.standard
  Dict.lookup d