fixup: forgot to remove now duplicate flavours

2 files changed, 2 insertions, 38 deletions

diff --git a/hadrian/src/Settings/Flavours/QuickCross.hs b/hadrian/src/Settings/Flavours/QuickCross.hs
index 064fee37de..45e23402e4 100644
--- a/hadrian/src/Settings/Flavours/QuickCross.hs
+++ b/hadrian/src/Settings/Flavours/QuickCross.hs
@@ -1,4 +1,4 @@
-module Settings.Flavours.QuickCross (quickCrossFlavour, quickJsFlavour, perfJsFlavour) where
+module Settings.Flavours.QuickCross (quickCrossFlavour) where
 
 import qualified Data.Set as Set
 
@@ -7,43 +7,6 @@ import Flavour
 import Oracles.Flag
 import {-# SOURCE #-} Settings.Default
 
-quickJsFlavour :: Flavour
-quickJsFlavour = defaultFlavour
-    { name        = "quick-js"
-    , args        = defaultBuilderArgs <> quickJsArgs <> defaultPackageArgs
-    , dynamicGhcPrograms = pure False
-    , libraryWays = pure $ Set.singleton vanilla
-    , rtsWays     = pure $ Set.singleton vanilla
-    }
-
-perfJsFlavour :: Flavour
-perfJsFlavour = defaultFlavour
-    { name        = "perf-js"
-    , args        = defaultBuilderArgs <> perfJsArgs <> defaultPackageArgs
-    , dynamicGhcPrograms = pure False
-    , libraryWays = pure $ Set.singleton vanilla
-    , rtsWays     = pure $ Set.singleton vanilla
-    }
-
-quickJsArgs :: Args
-quickJsArgs = sourceArgs SourceArgs
-    { hsDefault  = mconcat $
-        [ pure ["-O0", "-H64m"]
-        ]
-    , hsLibrary  = notStage0 ? mconcat [ arg "-O" ]
-    , hsCompiler = stage0 ? arg "-O2"
-    , hsGhc      = mconcat
-                   [ stage0 ? arg "-O"
-                   , stage1 ? mconcat [ arg "-O0" ] ] }
-
-perfJsArgs :: Args
-perfJsArgs = sourceArgs SourceArgs
-    { hsDefault  = mconcat [ arg "-O2", arg "-H64m"]
-    , hsLibrary  = arg "-O2"
-    , hsCompiler = arg "-O2"
-    , hsGhc      = arg "-O2"
-    }
-
 -- Please update doc/flavours.md when changing this file.
 quickCrossFlavour :: Flavour
 quickCrossFlavour = defaultFlavour
diff --git a/hadrian/src/Way/Type.hs b/hadrian/src/Way/Type.hs
index 8a93ceddb3..22865717eb 100644
--- a/hadrian/src/Way/Type.hs
+++ b/hadrian/src/Way/Type.hs
@@ -1,6 +1,7 @@
 {-# LANGUAGE DerivingStrategies         #-}
 {-# LANGUAGE GeneralizedNewtypeDeriving #-}
 {-# LANGUAGE LambdaCase                 #-}
+
 module Way.Type where
 
 import Data.IntSet (IntSet)