Commit aef7618b authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Fix the use of emptyCopyFlags

parent f0aa996d
...@@ -26,8 +26,7 @@ main = do args <- getArgs ...@@ -26,8 +26,7 @@ main = do args <- getArgs
doit :: FilePath -> FilePath -> Verbosity -> IO () doit :: FilePath -> FilePath -> Verbosity -> IO ()
doit pref ghcpkg verbosity = doit pref ghcpkg verbosity =
do let userHooks = simpleUserHooks do let userHooks = simpleUserHooks
copyFlags = emptyCopyFlags { copyFlags = (emptyCopyFlags NoCopyDest) {
copyDest = NoCopyDest,
copyVerbose = verbosity copyVerbose = verbosity
} }
registerFlags = emptyRegisterFlags { registerFlags = emptyRegisterFlags {
......
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