Commit b4a94ccf authored by duncan.coutts@worc.ox.ac.uk's avatar duncan.coutts@worc.ox.ac.uk
Browse files

Use emptyRegisterFlags and emptyCopyFlags for reduced fragility

So we will inherit default values for any new flags that get added,
so things should not break if new flags are added.
parent 297bd572
......@@ -26,15 +26,12 @@ main = do args <- getArgs
doit :: FilePath -> FilePath -> Verbosity -> IO ()
doit pref ghcpkg verbosity =
do let userHooks = simpleUserHooks
copyFlags = CopyFlags {
copyFlags = emptyCopyFlags {
copyDest = NoCopyDest,
copyVerbose = verbosity
}
registerFlags = RegisterFlags {
registerFlags = emptyRegisterFlags {
regUser = MaybeUserGlobal,
regGenScript = False,
regInPlace = False,
regWithHcPkg = Just ghcpkg,
regVerbose = verbosity
}
lbi <- getPersistBuildConfig
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment