From e3496ef6c6f4cdb8bbef8b0e9dfa61219c32a575 Mon Sep 17 00:00:00 2001
From: Cheng Shao <terrorjack@type.dance>
Date: Thu, 24 Oct 2024 15:28:01 +0200
Subject: [PATCH] compiler: remove unused hscDecls/hscDeclsWithLocation
This patch removes unused `hscDecls`/`hscDeclsWithLocation` functions
from the compiler, to reduce maintenance burden when doing
refactorings related to ghci.
---
compiler/GHC/Driver/Main.hs | 20 +-------------------
1 file changed, 1 insertion(+), 19 deletions(-)
diff --git a/compiler/GHC/Driver/Main.hs b/compiler/GHC/Driver/Main.hs
index ddfe158ca5a..e3a59b86112 100644
--- a/compiler/GHC/Driver/Main.hs
+++ b/compiler/GHC/Driver/Main.hs
@@ -81,7 +81,7 @@ module GHC.Driver.Main
, hscRnImportDecls
, hscTcRnLookupRdrName
, hscStmt, hscParseStmtWithLocation, hscStmtWithLocation, hscParsedStmt
- , hscDecls, hscParseDeclsWithLocation, hscDeclsWithLocation, hscParsedDecls
+ , hscParseDeclsWithLocation, hscParsedDecls
, hscParseModuleWithLocation
, hscTcExpr, TcRnExprMode(..), hscImport, hscKcType
, hscParseExpr
@@ -2461,12 +2461,6 @@ hscParsedStmt hsc_env stmt = runInteractiveHsc hsc_env $ do
return $ Just (ids, hval, fix_env)
--- | Compile a decls
-hscDecls :: HscEnv
- -> String -- ^ The statement
- -> IO ([TyThing], InteractiveContext)
-hscDecls hsc_env str = hscDeclsWithLocation hsc_env str "<interactive>" 1
-
hscParseModuleWithLocation :: HscEnv -> String -> Int -> String -> IO (HsModule GhcPs)
hscParseModuleWithLocation hsc_env source line_num str = do
L _ mod <-
@@ -2479,18 +2473,6 @@ hscParseDeclsWithLocation hsc_env source line_num str = do
HsModule { hsmodDecls = decls } <- hscParseModuleWithLocation hsc_env source line_num str
return decls
--- | Compile a decls
-hscDeclsWithLocation :: HscEnv
- -> String -- ^ The statement
- -> String -- ^ The source
- -> Int -- ^ Starting line
- -> IO ([TyThing], InteractiveContext)
-hscDeclsWithLocation hsc_env str source linenumber = do
- L _ (HsModule{ hsmodDecls = decls }) <-
- runInteractiveHsc hsc_env $
- hscParseThingWithLocation source linenumber parseModule str
- hscParsedDecls hsc_env decls
-
hscParsedDecls :: HscEnv -> [LHsDecl GhcPs] -> IO ([TyThing], InteractiveContext)
hscParsedDecls hsc_env decls = runInteractiveHsc hsc_env $ do
hsc_env <- getHscEnv
--
GitLab