[project @ 2001-08-02 01:01:46 by sof]

[ghc-hetmet.git] / ghc / driver / Package.hs

diff --git a/ghc/driver/Package.hs b/ghc/driver/Package.hs
index 778d7be..e3ea78d 100644 (file)
--- a/ghc/driver/Package.hs
+++ b/ghc/driver/Package.hs
@@ -1,47 +1,3 @@
 module Package where
 
-import Pretty
-
-data Package = Package {
-               import_dirs    :: [String],
-               library_dirs   :: [String],
-               libraries      :: [String],
-               include_dirs   :: [String],
-               c_includes     :: [String],
-               package_deps   :: [String],
-               extra_ghc_opts :: [String],
-               extra_cc_opts  :: [String],
-               extra_ld_opts  :: [String]
-               }
-  deriving (Read, Show)
-
-listPkgs :: [(String,Package)] -> String
-listPkgs pkgs = render (fsep (punctuate comma (map (text . fst) pkgs)))
-
-dumpPackages :: [(String,Package)] -> String
-dumpPackages pkgs = 
-   render (brackets (vcat (punctuate comma (map dumpPkg pkgs))))
-
-dumpPkg :: (String,Package) -> Doc
-dumpPkg (name, pkg) =
-   parens (hang (text (show name) <> comma) 2 (dumpPkgGuts pkg))
-
-dumpPkgGuts :: Package -> Doc
-dumpPkgGuts pkg =
-   text "Package" $$ nest 3 (braces (
-      sep (punctuate comma [
-         dumpField "import_dirs"    (import_dirs    pkg),
-         dumpField "library_dirs"   (library_dirs   pkg),
-         dumpField "libraries"      (libraries      pkg),
-         dumpField "include_dirs"   (include_dirs   pkg),
-         dumpField "c_includes"     (c_includes     pkg),
-         dumpField "package_deps"   (package_deps   pkg),
-         dumpField "extra_ghc_opts" (extra_ghc_opts pkg),
-         dumpField "extra_cc_opts"  (extra_cc_opts  pkg),
-         dumpField "extra_ld_opts"  (extra_ld_opts  pkg)
-      ])))
-
-dumpField :: String -> [String] -> Doc
-dumpField name val =
-   hang (text name <+> equals) 2
-        (brackets (sep (punctuate comma (map (text . show) val))))
+#include "../utils/ghc-pkg/Package.hs"