From 1286d3e9d7c0ce82cf3451983139902b70fce7b5 Mon Sep 17 00:00:00 2001 From: Clemens Fruhwirth Date: Thu, 27 Dec 2007 14:31:14 +0000 Subject: [PATCH] API changes for cabal-HEAD Rename interfacedir to haddockdir Change empty(Copy|Register)Flags to default(Copy|Register)Flags Wrap content of RegisterFlags with toFlag (the Flag type is actually just Maybe) --- libraries/Makefile | 8 +++---- libraries/installPackage.hs | 55 ++++++++++++++++++++++--------------------- 2 files changed, 32 insertions(+), 31 deletions(-) diff --git a/libraries/Makefile b/libraries/Makefile index 51cb7aa..57c9adf 100644 --- a/libraries/Makefile +++ b/libraries/Makefile @@ -96,7 +96,7 @@ ilibdir = $$topdir ilibexecdir = $$topdir idatadir = $$topdir idocdir = $$topdir/doc/libraries/$$pkg -iinterfacedir = $$topdir/doc/libraries/$$pkg +ihaddockdir = $$topdir/doc/libraries/$$pkg ihtmldir = $$httptopdir/doc/libraries/$$pkg html_installed_root = $(prefix)/doc/libraries else @@ -108,7 +108,7 @@ ilibdir = $(libdir) ilibexecdir = $(libexecdir) idatadir = $(datadir) idocdir = $(docdir)/libraries/$$pkg -iinterfacedir = $(htmldir)/libraries/$$pkg +ihaddockdir = $(htmldir)/libraries/$$pkg ihtmldir = $(htmldir)/libraries/$$pkg html_installed_root = $(htmldir)/libraries endif @@ -250,7 +250,7 @@ stamp/configure.library.build$(CONFIGURE_STAMP_EXTRAS).%: %/setup/Setup --libexecdir=/NONEXISTANT \ --datadir=/NONEXISTANT \ --docdir=/NONEXISTANT \ - --interfacedir=/NONEXISTANT \ + --haddockdir=/NONEXISTANT \ --htmldir=/NONEXISTANT \ --with-compiler=../../compiler/stage1/ghc-inplace \ --with-hc-pkg=../../utils/ghc-pkg/ghc-pkg-inplace \ @@ -372,7 +372,7 @@ $(foreach SUBDIR,$(SUBDIRS),install.library.$(SUBDIR)): \ install.library.%: installPackage/installPackage ifBuildable/ifBuildable if ifBuildable/ifBuildable $*; then \ cd $* && \ - ../installPackage/installPackage install '$(GHC_PKG_PROG)' '$(DESTDIR)$(libdir)/package.conf' '$(DESTDIR)' '$(prefix)' '$(iprefix)' '$(ibindir)' '$(ilibdir)' '$(ilibexecdir)' '$(idatadir)' '$(idocdir)' '$(ihtmldir)' '$(iinterfacedir)' ; \ + ../installPackage/installPackage install '$(GHC_PKG_PROG)' '$(DESTDIR)$(libdir)/package.conf' '$(DESTDIR)' '$(prefix)' '$(iprefix)' '$(ibindir)' '$(ilibdir)' '$(ilibexecdir)' '$(idatadir)' '$(idocdir)' '$(ihtmldir)' '$(ihaddockdir)' ; \ fi .PHONY: binary-dist binary-dist.library.% diff --git a/libraries/installPackage.hs b/libraries/installPackage.hs index decf2d4..371604b 100644 --- a/libraries/installPackage.hs +++ b/libraries/installPackage.hs @@ -18,12 +18,12 @@ main in doRegisterInplace verbosity "install" : ghcpkg : ghcpkgconf : destdir : topdir : iprefix : ibindir : ilibdir : ilibexecdir : - idatadir : idocdir : ihtmldir : iinterfacedir : + idatadir : idocdir : ihtmldir : ihaddockdir : args' -> let verbosity = mkVerbosity args' in doInstall verbosity ghcpkg ghcpkgconf destdir topdir iprefix ibindir ilibdir ilibexecdir idatadir - idocdir ihtmldir iinterfacedir + idocdir ihtmldir ihaddockdir _ -> error ("Bad arguments: " ++ show args) @@ -38,7 +38,7 @@ mkVerbosity args = error ("Bad arguments: " ++ show args) doRegisterInplace :: Verbosity -> IO () doRegisterInplace verbosity = do lbi <- getConfig verbosity - let registerFlags = emptyRegisterFlags { regInPlace = True } + let registerFlags = defaultRegisterFlags { regInPlace = toFlag True } pd = localPkgDescr lbi pd_reg = if pkgName (package pd) == "base" then case library pd of @@ -58,17 +58,18 @@ doInstall :: Verbosity -> FilePath -> FilePath -> FilePath -> FilePath -> IO () doInstall verbosity ghcpkg ghcpkgconf destdir topdir iprefix ibindir ilibdir ilibexecdir idatadir - idocdir ihtmldir iinterfacedir = + idocdir ihtmldir ihaddockdir = do let userHooks = simpleUserHooks copyto = if null destdir then NoCopyDest else CopyTo destdir - copyFlags = (emptyCopyFlags copyto) { - copyVerbose = verbosity + copyFlags = defaultCopyFlags { + copyDest = toFlag copyto, + copyVerbose = toFlag verbosity } - registerFlags = emptyRegisterFlags { - regPackageDB = Just GlobalPackageDB, - regVerbose = verbosity, - regGenScript = False, - regInPlace = False + registerFlags = defaultRegisterFlags { + regPackageDB = toFlag GlobalPackageDB, + regVerbose = toFlag verbosity, + regGenScript = toFlag $ False, + regInPlace = toFlag $ False } lbi <- getConfig verbosity let pd = localPkgDescr lbi @@ -88,14 +89,14 @@ doInstall verbosity ghcpkg ghcpkgconf destdir topdir -- When coying, we need to actually give a concrete -- directory to copy to rather than "$topdir" toPathTemplate' = toPathTemplate . replaceTopdir topdir - i_copy = i { prefixDirTemplate = toPathTemplate' iprefix, - binDirTemplate = toPathTemplate' ibindir, - libDirTemplate = toPathTemplate' ilibdir, - libexecDirTemplate = toPathTemplate' ilibexecdir, - dataDirTemplate = toPathTemplate' idatadir, - docDirTemplate = toPathTemplate' idocdir, - htmlDirTemplate = toPathTemplate' ihtmldir, - interfaceDirTemplate = toPathTemplate' iinterfacedir + i_copy = i { prefix = toPathTemplate' iprefix, + bindir = toPathTemplate' ibindir, + libdir = toPathTemplate' ilibdir, + libexecdir = toPathTemplate' ilibexecdir, + datadir = toPathTemplate' idatadir, + docdir = toPathTemplate' idocdir, + htmldir = toPathTemplate' ihtmldir, + haddockdir = toPathTemplate' ihaddockdir } lbi_copy = lbi { installDirTemplates = i_copy } -- When we run GHC we give it a $topdir that includes the @@ -110,14 +111,14 @@ doInstall verbosity ghcpkg ghcpkgconf destdir topdir programLocation = UserSpecified ghcpkg } progs' = updateProgram prog progs - i_reg = i { prefixDirTemplate = toPathTemplate iprefix, - binDirTemplate = toPathTemplate ibindir, - libDirTemplate = toPathTemplate ilibdir, - libexecDirTemplate = toPathTemplate ilibexecdir, - dataDirTemplate = toPathTemplate idatadir, - docDirTemplate = toPathTemplate idocdir, - htmlDirTemplate = toPathTemplate ihtmldir, - interfaceDirTemplate = toPathTemplate iinterfacedir + i_reg = i { prefix = toPathTemplate iprefix, + bindir = toPathTemplate ibindir, + libdir = toPathTemplate ilibdir, + libexecdir = toPathTemplate ilibexecdir, + datadir = toPathTemplate idatadir, + docdir = toPathTemplate idocdir, + htmldir = toPathTemplate ihtmldir, + haddockdir = toPathTemplate ihaddockdir } lbi_reg = lbi { installDirTemplates = i_reg, withPrograms = progs' } -- 1.7.10.4