Add --skip-flags and pbEnableTests (#3976)

Stackage/CompleteBuild.hs

@@ -4,6 +4,7 @@
 module Stackage.CompleteBuild
     ( BuildType (..)
     , BumpType (..)
+    , BuildFlags (..)
     , completeBuild
     , justCheck
     ) where
@@ -24,6 +25,11 @@ import Stackage.UpdateBuildPlan
 import Stackage.Upload
 import System.IO                 (BufferMode (LineBuffering), hSetBuffering)
 
+-- | Flags passed in from the command line.
+data BuildFlags = BuildFlags
+    { bfEnableTests :: !Bool
+    } deriving (Show)
+
 data BuildType = Nightly | LTS BumpType
     deriving (Show, Read, Eq, Ord)
 
@@ -149,8 +155,8 @@ justCheck = withManager tlsManagerSettings $ \man -> do
 
     putStrLn "Plan seems valid!"
 
-completeBuild :: BuildType -> IO ()
-completeBuild buildType = withManager tlsManagerSettings $ \man -> do
+completeBuild :: BuildType -> BuildFlags -> IO ()
+completeBuild buildType buildFlags = withManager tlsManagerSettings $ \man -> do
     hSetBuffering stdout LineBuffering
 
     putStrLn $ "Loading settings for: " ++ tshow buildType
@@ -170,6 +176,7 @@ completeBuild buildType = withManager tlsManagerSettings $ \man -> do
             , pbLog = hPut stdout
             , pbJobs = 8
             , pbGlobalInstall = False
+            , pbEnableTests = bfEnableTests buildFlags
             }
     performBuild pb >>= mapM_ putStrLn
 

Stackage/PerformBuild.hs

@@ -61,6 +61,7 @@ data PerformBuild = PerformBuild
     , pbJobs          :: Int
     , pbGlobalInstall :: Bool
     -- ^ Register packages in the global database
+    , pbEnableTests        :: Bool
     }
 
 data PackageInfo = PackageInfo
@@ -378,7 +379,7 @@ singleBuild pb@PerformBuild {..} SingleBuild {..} =
     runTests = wf testOut $ \outH -> do
         let run = runChild outH
 
-        when (pcTests /= Don'tBuild) $ do
+        when (pbEnableTests && pcTests /= Don'tBuild) $ do
             log' $ "Test configure " ++ namever
             run "cabal" $ "configure" : "--enable-tests" : configArgs