ghc/compiler/ghci/CmFind.lhs

   1 %
   2 % (c) The AQUA Project, Glasgow University, 1993-2000
   3 %
   4 \section[CmFind]{Module finder for GHCI}
   5
   6 \begin{code}
   7 module CmFind ( Path, ModName, PkgName,
   8                 ModLocation(..), Finder, newFinder )
   9 where
  10
  11 #include "HsVersions.h"
  12
  13 import Module           ( Module )
  14 import CmStaticInfo     ( PCI )
  15 \end{code}
  16
  17 \begin{code}
  18 type Path = String
  19 type ModName = String
  20 type PkgName = String
  21
  22 data ModLocation
  23    = SourceOnly Module Path        -- .hs
  24    | ObjectCode Module Path Path   -- .o, .hi
  25    | InPackage  Module PkgName
  26
  27 type Finder = ModName -> IO ModLocation
  28
  29 newFinder :: PCI -> IO Finder
  30 newFinder pci = return (error "newFinder:unimp")
  31 \end{code}