@@ -67,7 +67,7 @@ withBuildSettings args f = do
67 bp <- readBuildPlan buildPlanSrc
67 bp <- readBuildPlan buildPlanSrc
68 let settings = defaultBuildSettings
68 let settings = defaultBuildSettings
69 { sandboxRoot = sandbox
69 { sandboxRoot = sandbox
70− , extraArgs = extraArgs' $ extraArgs defaultBuildSettings
70+ , extraArgs = extraArgs' . extraArgs defaultBuildSettings
72 f settings bp
72 f settings bp