Merge branch 'issue-708'

2022-12-27 00:10:41 +08:00
parent b098aa4e65 e8586cf993
commit 70dd106549
1 changed files with 7 additions and 1 deletions
--- a/app/ghcup/GHCup/OptParse/Config.hs
+++ b/app/ghcup/GHCup/OptParse/Config.hs
@@ -188,9 +188,15 @@ config configCommand settings keybindings runLogger = case configCommand of
      AddSource xs -> do
        doConfig (defaultUserSettings { uUrlSource = Just $ AddSource (xs <> [Right uri]) })
        pure ExitSuccess
-      _ -> do
+      GHCupURL -> do
        doConfig (defaultUserSettings { uUrlSource = Just $ AddSource [Right uri] })
        pure ExitSuccess
+      OwnSource xs -> do
+        doConfig (defaultUserSettings { uUrlSource = Just $ OwnSource (xs <> [Right uri]) })
+        pure ExitSuccess
+      OwnSpec spec -> do
+        doConfig (defaultUserSettings { uUrlSource = Just $ OwnSource ([Left spec, Right uri]) })
+        pure ExitSuccess

 where
  doConfig :: MonadIO m => UserSettings -> m ()