From 6c63a65983346466a2688564fe4e96c49570f643 Mon Sep 17 00:00:00 2001 From: Julian Ospald Date: Sat, 5 Mar 2022 20:19:54 +0100 Subject: [PATCH] Fix bad error message wrt #323 --- app/ghcup/GHCup/OptParse/Run.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/app/ghcup/GHCup/OptParse/Run.hs b/app/ghcup/GHCup/OptParse/Run.hs index 30bbda9..3f9b8a6 100644 --- a/app/ghcup/GHCup/OptParse/Run.hs +++ b/app/ghcup/GHCup/OptParse/Run.hs @@ -338,7 +338,7 @@ run RunOptions{..} runAppState leanAppstate runLogger = do if legacy then do -- TODO: factor this out - (Just hlsWrapper) <- hlsWrapperBinary v' + hlsWrapper <- liftE @_ @'[NotInstalled] $ hlsWrapperBinary v' !? (NotInstalled HLS (mkTVer v')) cw <- liftIO $ canonicalizePath (binDir hlsWrapper) lift $ createLink (relativeSymlink tmp cw) (tmp takeFileName cw) hlsBins <- hlsServerBinaries v' Nothing >>= liftIO . traverse (canonicalizePath . (binDir ))