2 % (c) The AQUA Project, Glasgow University, 1993-2000
4 \section[CmLink]{Linker for GHCI}
7 module CmLink ( Linkable(..), LinkResult(..),
10 PLS{-abstractly!-}, emptyPLS )
14 import CmStaticInfo ( PCI )
15 import CmFind ( Path, PkgName )
16 import Module ( Module )
17 import Outputable ( SDoc )
18 import FiniteMap ( FiniteMap, emptyFM )
19 import RdrName ( RdrName )
22 #include "HsVersions.h"
29 source_symtab :: FiniteMap RdrName HValue,
30 object_symtab :: FiniteMap String Addr
33 data HValue = HValue -- fix this ... just temporary?
36 link :: PCI -> [[Linkable]] -> PLS -> IO LinkResult
37 link pci linkabless pls
38 = return (error "link:unimp")
48 -- | Trees [StgTree RdrName]
51 = LM Module [Unlinked]
55 emptyPLS = return (MkPLS { source_symtab = emptyFM,
56 object_symtab = emptyFM })