doit :: FilePath -> FilePath -> Verbosity -> IO ()
doit pref ghcpkg verbosity =
do let userHooks = simpleUserHooks
- copyFlags = CopyFlags {
- copyDest = NoCopyDest,
+ copyFlags = (emptyCopyFlags NoCopyDest) {
copyVerbose = verbosity
}
- registerFlags = RegisterFlags {
+ registerFlags = emptyRegisterFlags {
regUser = MaybeUserGlobal,
+ regVerbose = verbosity,
regGenScript = False,
regInPlace = False,
- regWithHcPkg = Just ghcpkg,
- regVerbose = verbosity
+ regWithHcPkg = Just ghcpkg
}
lbi <- getPersistBuildConfig
let pd = localPkgDescr lbi