remove warnings

MercuryTechnologies · Sep 1, 2023 · 360babd · 360babd
1 parent 061fd22
commit 360babd
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 14 deletions.
diff --git a/plugin/ghc-specter-plugin.cabal b/plugin/ghc-specter-plugin.cabal
@@ -40,11 +40,10 @@ library
       Paths_ghc_specter_plugin
   hs-source-dirs:
       src
-  ghc-options: -Wall -Wunused-packages
+  ghc-options: -Wall -Wunused-packages -Werror
   build-depends:
       base >=4.15 && <5
     , binary
-    -- , binary-instances
     , bytestring
     , containers
     , directory

diff --git a/plugin/src-ghc96/Plugin/GHCSpecter.hs b/plugin/src-ghc96/Plugin/GHCSpecter.hs
@@ -10,18 +10,14 @@ module Plugin.GHCSpecter
   )
 where
 
-import Control.Monad (when)
-import Control.Monad.IO.Class (liftIO)
 import Data.Foldable (for_)
 import Data.Functor ((<&>))
 import Data.Text qualified as T
 import GHC.Core.Opt.Monad (CoreM, getDynFlags)
 import GHC.Core.Opt.Pipeline.Types (CoreToDo (..))
 import GHC.Driver.Env (Hsc, HscEnv (..))
-import GHC.Driver.Flags (GeneralFlag (Opt_WriteHie))
 import GHC.Driver.Hooks (Hooks (..))
 import GHC.Driver.Plugins (ParsedResult, Plugin (..), PluginWithArgs (..), StaticPlugin (..), defaultPlugin, staticPlugins, type CommandLineOption)
-import GHC.Driver.Session (gopt)
 import GHC.Hs.Extension (GhcRn, GhcTc)
 import GHC.Tc.Types
   ( TcGblEnv (..),
@@ -31,17 +27,12 @@ import GHC.Tc.Types
     unsafeTcPluginTcM,
   )
 import GHC.Types.Unique.FM (emptyUFM)
-import GHC.Unit.Module.Location (ModLocation (..))
 import GHC.Unit.Module.ModSummary (ModSummary (..))
 import GHCSpecter.Channel.Common.Types (DriverId (..))
-import GHCSpecter.Channel.Outbound.Types
-  ( BreakpointLoc (..),
-    ChanMessage (..),
-  )
+import GHCSpecter.Channel.Outbound.Types (BreakpointLoc (..))
 import GHCSpecter.Util.GHC (showPpr)
 import Language.Haskell.Syntax.Decls (HsGroup)
 import Language.Haskell.Syntax.Expr (LHsExpr)
-import Plugin.GHCSpecter.Comm (queueMessage)
 import Plugin.GHCSpecter.Console (breakPoint)
 import Plugin.GHCSpecter.Hooks
   ( runMetaHook',
@@ -58,7 +49,6 @@ import Plugin.GHCSpecter.Tasks
     typecheckResultActionCommands,
   )
 import Safe (headMay, readMay)
-import System.Directory (canonicalizePath)
 
 --
 -- parsedResultAction plugin
@@ -150,7 +140,7 @@ typeCheckResultActionPlugin ::
   ModSummary ->
   TcGblEnv ->
   TcM TcGblEnv
-typeCheckResultActionPlugin opts modSummary tc = do
+typeCheckResultActionPlugin opts _modSummary tc = do
   for_ (DriverId <$> (readMay =<< headMay opts)) $ \drvId -> do
     breakPoint
       drvId