This reverts commit 8cc333d8d5.
This commit is contained in:
@@ -2626,7 +2626,6 @@ upgradeGHCup :: ( MonadMask m
|
||||
upgradeGHCup mtarget force' = do
|
||||
Dirs {..} <- lift getDirs
|
||||
GHCupInfo { _ghcupDownloads = dls } <- lift getGHCupInfo
|
||||
PlatformRequest {..} <- lift getPlatformReq
|
||||
|
||||
lift $ logInfo "Upgrading GHCup..."
|
||||
let latestVer = fromJust $ fst <$> getLatest dls GHCup
|
||||
@@ -2646,7 +2645,6 @@ upgradeGHCup mtarget force' = do
|
||||
copyFileE p
|
||||
destFile
|
||||
lift $ chmod_755 destFile
|
||||
liftE $ catchWarn $ lEM @_ @'[ProcessError] $ darwinCodeSign _rPlatform destFile
|
||||
|
||||
liftIO (isInPath destFile) >>= \b -> unless b $
|
||||
lift $ logWarn $ T.pack (takeFileName destFile) <> " is not in PATH! You have to add it in order to use ghcup."
|
||||
|
||||
@@ -1028,17 +1028,6 @@ darwinNotarization Darwin path = exec
|
||||
Nothing
|
||||
darwinNotarization _ _ = pure $ Right ()
|
||||
|
||||
darwinCodeSign :: (MonadReader env m, HasDirs env, MonadIO m)
|
||||
=> Platform
|
||||
-> FilePath
|
||||
-> m (Either ProcessError ())
|
||||
darwinCodeSign Darwin path = exec
|
||||
"codesign"
|
||||
["-s", "-", path]
|
||||
Nothing
|
||||
Nothing
|
||||
darwinCodeSign _ _ = pure $ Right ()
|
||||
|
||||
|
||||
getChangeLog :: GHCupDownloads -> Tool -> Either Version Tag -> Maybe URI
|
||||
getChangeLog dls tool (Left v') =
|
||||
|
||||
Reference in New Issue
Block a user