ghc/compiler/main/Interpreter.hs

   1 -----------------------------------------------------------------------------
   2 -- $Id: Interpreter.hs,v 1.2 2000/11/08 13:51:58 simonmar Exp $
   3 --
   4 -- Interpreter subsystem wrapper
   5 --
   6 -- (c) The University of Glasgow 2000
   7 --
   8 -----------------------------------------------------------------------------
   9
  10 module Interpreter (
  11 #ifdef GHCI
  12         module StgInterp,
  13         module InterpSyn,
  14         module Linker
  15 #else
  16     ClosureEnv, ItblEnv,
  17     linkIModules,
  18     stgToInterpSyn,
  19     HValue,
  20     UnlinkedIBind,
  21     loadObjs, resolveObjs,
  22 #endif
  23   ) where
  24
  25 #ifdef GHCI
  26 import StgInterp
  27 import InterpSyn
  28 import Linker
  29 #else
  30 type ClosureEnv = ()
  31 type ItblEnv = ()
  32 linkIModules = error "linkIModules"
  33 stgToInterpSyn = error "linkIModules"
  34 type HValue = ()
  35 type UnlinkedIBind = ()
  36 loadObjs = error "loadObjs"
  37 resolveObjs = error "loadObjs"
  38 #endif