Fix warnings

Author: snoyberg

src/Stack/Config.hs

@@ -51,7 +51,6 @@ import           Distribution.System (OS (..), Platform (..), buildPlatform, Arc
 import qualified Distribution.Text
 import           Distribution.Version (simplifyVersionRange, mkVersion')
 import           GHC.Conc (getNumProcessors)
-import           Lens.Micro ((.~))
 import           Network.HTTP.StackClient (httpJSON, parseUrlThrow, getResponseBody)
 import           Options.Applicative (Parser, help, long, metavar, strOption)
 import           Path

src/Stack/Docker.hs

@@ -450,7 +450,7 @@ reset keepHome = do
 -- a container, such as switching the UID/GID to the "outside-Docker" user's.
 entrypoint :: (HasProcessContext env, HasLogFunc env)
            => Config -> DockerEntrypoint -> RIO env ()
-entrypoint config@Config{..} DockerEntrypoint{..} =
+entrypoint config@Config{} DockerEntrypoint{..} =
   modifyMVar_ entrypointMVar $ \alreadyRan -> do
     -- Only run the entrypoint once
     unless alreadyRan $ do

src/Stack/Setup.hs

@@ -1115,23 +1115,19 @@ downloadAndInstallCompiler :: (HasBuildConfig env, HasGHCVariant env)
                            -> VersionCheck
                            -> Maybe String
                            -> RIO env Tool
-downloadAndInstallCompiler ghcBuild si wanted@WCGhc{} versionCheck mbindistURL = do
+downloadAndInstallCompiler ghcBuild si wanted@(WCGhc version) versionCheck mbindistURL = do
     ghcVariant <- view ghcVariantL
     (selectedVersion, downloadInfo) <- case mbindistURL of
         Just bindistURL -> do
             case ghcVariant of
                 GHCCustom _ -> return ()
                 _ -> throwM RequireCustomGHCVariant
-            case wanted of
-                WCGhc version ->
-                    return (version, GHCDownloadInfo mempty mempty DownloadInfo
-                             { downloadInfoUrl = T.pack bindistURL
-                             , downloadInfoContentLength = Nothing
-                             , downloadInfoSha1 = Nothing
-                             , downloadInfoSha256 = Nothing
-                             })
-                _ ->
-                    throwM WantedMustBeGHC
+            return (version, GHCDownloadInfo mempty mempty DownloadInfo
+                     { downloadInfoUrl = T.pack bindistURL
+                     , downloadInfoContentLength = Nothing
+                     , downloadInfoSha1 = Nothing
+                     , downloadInfoSha256 = Nothing
+                     })
         _ -> do
             ghcKey <- getGhcKey ghcBuild
             case Map.lookup ghcKey $ siGHCs si of