@@ -35,6 +35,7 @@ data BuildFlags = BuildFlags
35 , bfDoUpload :: !Bool
35 , bfDoUpload :: !Bool
36 , bfEnableLibProfile :: !Bool
36 , bfEnableLibProfile :: !Bool
37 , bfVerbose :: !Bool
37 , bfVerbose :: !Bool
38+ , bfSkipCheck :: !Bool
38 } deriving (Show)
39 } deriving (Show)
40data BuildType = Nightly | LTS BumpType
41data BuildType = Nightly | LTS BumpType
@@ -200,6 +201,7 @@ getPerformBuild buildFlags Settings {..} = PerformBuild
200 , pbEnableTests = bfEnableTests buildFlags
201 , pbEnableTests = bfEnableTests buildFlags
201 , pbEnableLibProfiling = bfEnableLibProfile buildFlags
202 , pbEnableLibProfiling = bfEnableLibProfile buildFlags
202 , pbVerbose = bfVerbose buildFlags
203 , pbVerbose = bfVerbose buildFlags
204+ , pbAllowNewer = bfSkipCheck buildFlags
205-- | Make a complete plan, build, test and upload bundle, docs and
207-- | Make a complete plan, build, test and upload bundle, docs and
@@ -214,8 +216,11 @@ completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
214 putStrLn $ "Writing build plan to: " ++ fpToText planFile
216 putStrLn $ "Writing build plan to: " ++ fpToText planFile
215 encodeFile (fpToString planFile) plan
217 encodeFile (fpToString planFile) plan
219+ if bfSkipCheck buildFlags
220+ then putStrLn "Skipping build plan check"
217− putStrLn "Checking build plan"
222+ putStrLn "Checking build plan"
218− checkBuildPlan plan
223+ checkBuildPlan plan
220 putStrLn "Performing build"
225 putStrLn "Performing build"
221 performBuild (getPerformBuild buildFlags settings) >>= mapM_ putStrLn
226 performBuild (getPerformBuild buildFlags settings) >>= mapM_ putStrLn