{-# OPTIONS -cpp #-}
-- ----------------------------------------------------------------------------
-- |
-- Module	: HaskellState
-- Author	: Simon Marlow <simonmar@microsoft.com>
-- Copyright    : (c) Microsoft Corporation, All Rights Reserved
-- 
-- The state of a HaskellService
--
-- ----------------------------------------------------------------------------

module HaskellState (
	State(..)
  ) where

#ifdef USING_GHC
import qualified GHC
import Data.IORef
import BabelServiceLib( IDeclarations )
#endif

#ifdef USING_GHC
data State = State GHC.Session (IORef (IDeclarations ()))
#else
newtype State = State String
#endif