Don't allow to specify --hadrian and --config

Improves UX wrt #1082
haskell · Jun 24, 2024 · 73f9c3f · 73f9c3f
1 parent c17fafb
commit 73f9c3f
Showing 1 changed file with 19 additions and 11 deletions.
diff --git a/lib-opt/GHCup/OptParse/Compile.hs b/lib-opt/GHCup/OptParse/Compile.hs
@@ -163,7 +163,7 @@ Examples:
 
 ghcCompileOpts :: Parser GHCCompileOptions
 ghcCompileOpts =
-  GHCCompileOptions
+  (\targetGhc bootstrapGhc jobs patches crossTarget addConfArgs setCompile overwriteVer buildFlavour (buildSystem, buildConfig) isolateDir -> GHCCompileOptions {..})
     <$> ((GHC.SourceDist <$> option
           (eitherReader
             (first (const "Not a valid version") . version . T.pack)
@@ -215,14 +215,6 @@ ghcCompileOpts =
               <> (completer $ listCompleter $ fmap show ([1..12] :: [Int]))
             )
           )
-    <*> optional
-          (option
-            str
-            (short 'c' <> long "config" <> metavar "CONFIG" <> help
-              "Absolute path to build config file"
-             <> completer (bashCompleter "file")
-            )
-          )
     <*> (optional
           (
             (fmap Right $ many $ option
@@ -274,13 +266,29 @@ ghcCompileOpts =
             )
           )
     <*> (
-         (\b -> if b then Just Hadrian else Nothing) <$> switch
+         (\b -> (, Nothing) $ if b then Just Hadrian else Nothing) <$> switch
           (long "hadrian" <> help "Use the hadrian build system instead of make. Tries to detect by default."
           )
          <|>
-         (\b -> if b then Just Make else Nothing) <$> switch
+         ((\b c -> case (b, c) of
+                          -- --make specified
+                          (True, _) -> (Just Make, c)
+                          -- only --config specified... assume make
+                          (False, Just _) -> (Just Make, c)
+                          -- otherwise fall back to runtime detection of build
+                          -- system
+                          (False, _) -> (Nothing, c)) <$> switch
           (long "make" <> help "Use the make build system instead of hadrian. Tries to detect by default."
           )
+          <*> optional
+            (option
+              str
+              (short 'c' <> long "config" <> metavar "CONFIG" <> help
+                "Absolute path to build config file (implies make)"
+               <> completer (bashCompleter "file")
+              )
+            )
+          )
         )
     <*> optional
           (option