import Distribution.PackageDescription
-import Distribution.Program
-import Distribution.Setup
import Distribution.Simple
import Distribution.Simple.Configure
import Distribution.Simple.LocalBuildInfo
+import Distribution.Simple.Program
+import Distribution.Simple.Setup
import Distribution.Verbosity
import System.Environment
doit :: FilePath -> FilePath -> FilePath -> FilePath -> Verbosity -> IO ()
doit destdir pref ghcpkg ghcpkgconf verbosity =
do let userHooks = simpleUserHooks
- copyFlags = (emptyCopyFlags (CopyTo destdir)) {
+ copyto = if null destdir then NoCopyDest else CopyTo destdir
+ copyFlags = (emptyCopyFlags copyto) {
copyVerbose = verbosity
}
registerFlags = emptyRegisterFlags {