From 80e1edf24cc936fcedf8b0b27517c5232840f623 Mon Sep 17 00:00:00 2001
From: Shayne Fletcher <shayne@shaynefletcher.org>
Date: Sat, 27 Jul 2024 18:18:05 -0400
Subject: [PATCH] remove unused imports, unused local bindings

---
 ghc-lib-gen/src/Ghclibgen.hs | 5 +----
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/ghc-lib-gen/src/Ghclibgen.hs b/ghc-lib-gen/src/Ghclibgen.hs
index b1cddf34..d1e1ca3d 100644
--- a/ghc-lib-gen/src/Ghclibgen.hs
+++ b/ghc-lib-gen/src/Ghclibgen.hs
@@ -43,13 +43,11 @@ module Ghclibgen (
 
 import Control.Exception (handle)
 import Control.Monad.Extra
-import System.Exit (ExitCode(..))
 import System.Process.Extra
 import System.FilePath hiding ((</>), normalise, dropTrailingPathSeparator)
 import System.FilePath.Posix ((</>), normalise, dropTrailingPathSeparator) -- Make sure we generate / on all platforms.
 import System.Directory
 import System.Directory.Extra
-import System.Info.Extra
 import System.IO.Error (isEOFError)
 import System.IO.Extra
 import Data.List.Extra hiding (find)
@@ -1030,7 +1028,7 @@ applyPatchCmmParseNoImplicitPrelude _ = do
     =<< readFile' cmmParse
 
 applyPatchHadrianCabalProject :: GhcFlavor -> IO ()
-applyPatchHadrianCabalProject ghcFlavor = do
+applyPatchHadrianCabalProject _ = do
     cabalProjectContents <- lines' <$> readFile' cabalProject
     cabalProjectContents <- pure (unlines (cabalProjectContents ++ [ "flags:-selftest -with_bazel" ]))
     writeFile cabalProject cabalProjectContents
@@ -1039,7 +1037,6 @@ applyPatchHadrianCabalProject ghcFlavor = do
       lines' s = [ l | l <- lines s , not $ "index-state" `isPrefixOf` l ]
       cabalProject = "hadrian" </> "cabal.project"
       cabalProjectFreeze = cabalProject ++ ".freeze"
-      ghcApi = ghcSeries ghcFlavor
 
 -- Data type representing an approximately parsed Cabal file.
 data Cabal = Cabal