Add quick-validate Hadrian flavour (quick + -Werror)

2 files changed, 12 insertions, 2 deletions

diff --git a/hadrian/src/Settings.hs b/hadrian/src/Settings.hs
index 373e976b44..30f65bb4f1 100755
--- a/hadrian/src/Settings.hs
+++ b/hadrian/src/Settings.hs
@@ -54,7 +54,8 @@ hadrianFlavours :: [Flavour]
 hadrianFlavours =
     [ benchmarkFlavour, defaultFlavour, developmentFlavour Stage1
     , developmentFlavour Stage2, performanceFlavour, profiledFlavour
-    , quickFlavour, quickestFlavour, quickCrossFlavour, benchmarkLlvmFlavour
+    , quickFlavour, quickValidateFlavour, quickestFlavour
+    , quickCrossFlavour, benchmarkLlvmFlavour
     , performanceLlvmFlavour, profiledLlvmFlavour, quickLlvmFlavour
     , ghcInGhciFlavour, validateFlavour, slowValidateFlavour ]
 
diff --git a/hadrian/src/Settings/Flavours/Quick.hs b/hadrian/src/Settings/Flavours/Quick.hs
index deea0c47dd..4146d66586 100644
--- a/hadrian/src/Settings/Flavours/Quick.hs
+++ b/hadrian/src/Settings/Flavours/Quick.hs
@@ -1,4 +1,8 @@
-module Settings.Flavours.Quick (quickFlavour) where
+module Settings.Flavours.Quick
+   ( quickFlavour
+   , quickValidateFlavour
+   )
+where
 
 import Expression
 import Flavour
@@ -30,3 +34,8 @@ quickArgs = sourceArgs SourceArgs
     , hsLibrary  = notStage0 ? arg "-O"
     , hsCompiler =    stage0 ? arg "-O2"
     , hsGhc      =    stage0 ? arg "-O" }
+
+quickValidateFlavour :: Flavour
+quickValidateFlavour = werror $ quickFlavour
+    { name = "quick-validate"
+    }