hasufell/ghcup-hs
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adds the --force option in install commands

Browse Source
This commit is contained in:
Arjun Kathuria 2021-08-27 13:05:54 +05:30
parent e38bd61066
commit 15560a06b1
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
app/ghcup/Main.hs
View File

@ -139,6 +139,7 @@ data InstallOptions = InstallOptions
, instBindist :: Maybe URI , instBindist :: Maybe URI
, instSet :: Bool , instSet :: Bool
, isolateDir :: Maybe FilePath , isolateDir :: Maybe FilePath
, forceInstall :: Bool
} }
data SetCommand = SetGHC SetOptions data SetCommand = SetGHC SetOptions
@ -595,7 +596,7 @@ Examples:
installOpts :: Maybe Tool -> Parser InstallOptions installOpts :: Maybe Tool -> Parser InstallOptions
installOpts tool = installOpts tool =
(\p (u, v) b is -> InstallOptions v p u b is) (\p (u, v) b is f -> InstallOptions v p u b is f)
<$> optional <$> optional
(option (option
(eitherReader platformParser) (eitherReader platformParser)
@ -633,6 +634,9 @@ installOpts tool =
<> help "install in an isolated dir instead of the default one" <> help "install in an isolated dir instead of the default one"
) )
) )
<*> switch
(short 'f' <> long "force" <> help "Force install")
setParser :: Parser (Either SetCommand SetOptions) setParser :: Parser (Either SetCommand SetOptions)