Remove ghc-mod dependencies

Author: mpickering

haskell-ide-engine.cabal

@@ -66,8 +66,6 @@ library
                      , fold-debounce
                      , ghc >= 8.0.1
                      , ghc-exactprint
-                     , ghc-mod >= 5.9.0.0
-                     , ghc-mod-core >= 5.9.0.0
                      , gitrev >= 1.1
                      , haddock-api
                      , haddock-library
@@ -146,14 +144,14 @@ library hie-test-utils
   build-depends:       base
                      , haskell-ide-engine
                      , haskell-lsp
+                     , hie-bios
                      , hie-plugin-api
                      , aeson
                      , blaze-markup
                      , containers
                      , data-default
                      , directory
                      , filepath
-                     , ghc-mod-core
                      , hslogger
                      , hspec
                      , hspec-core

src/Haskell/Ide/Engine/Plugin/HaRe.hs

@@ -21,8 +21,8 @@ import qualified Data.Text                                    as T
 import qualified Data.Text.IO                                 as T
 import           Exception
 import           GHC.Generics                                 (Generic)
-import qualified GhcMod.Error                                 as GM
-import qualified GhcMod.Monad                                 as GM
+--import qualified GhcMod.Error                                 as GM
+--import qualified GhcMod.Monad                                 as GM
 -- import qualified GhcMod.Utils                                 as GM
 import           Haskell.Ide.Engine.ArtifactMap
 import           Haskell.Ide.Engine.MonadFunctions
@@ -38,7 +38,6 @@ import           Language.Haskell.Refact.HaRe
 import           Language.Haskell.Refact.Utils.Monad          hiding (logm)
 
 -- ---------------------------------------------------------------------
-
 hareDescriptor :: PluginId -> PluginDescriptor
 hareDescriptor plId = PluginDescriptor
   { pluginId = plId
@@ -47,7 +46,8 @@ hareDescriptor plId = PluginDescriptor
               <> "Haskell 2010 standard, through making use of the GHC API.  HaRe attempts to "
               <> "operate in a safe way, by first writing new files with proposed changes, and "
               <> "only swapping these with the originals when the change is accepted. "
-  , pluginCommands =
+  , pluginCommands = []
+  {-
       [ PluginCommand "demote" "Move a definition one level down"
           demoteCmd
       , PluginCommand "dupdef" "Duplicate a definition"
@@ -66,12 +66,14 @@ hareDescriptor plId = PluginDescriptor
           genApplicativeCommand
 
       ]
-  , pluginCodeActionProvider = Just codeActionProvider
+  -}
+  , pluginCodeActionProvider = Nothing -- Just codeActionProvider
   , pluginDiagnosticProvider = Nothing
   , pluginHoverProvider = Nothing
   , pluginSymbolProvider = Nothing
   , pluginFormattingProvider = Nothing
   }
+  {-
 
 -- ---------------------------------------------------------------------
 
@@ -324,3 +326,4 @@ codeActionProvider pId docId (J.Range pos _) _ =
       let args = [J.toJSON $ HPT (docId ^. J.uri) pos (name <> "'")]
       cmd <- mkLspCommand pId aId title (Just args)
       return $ J.CodeAction (title <> name) (Just kind) mempty Nothing (Just cmd)
+-}

src/Haskell/Ide/Engine/Transport/LspStdio.hs

@@ -525,14 +525,15 @@ reactor inp diagIn = do
 
         -- -------------------------------
 
-        ReqRename req -> do
+        {-ReqRename req -> do
           liftIO $ U.logs $ "reactor:got RenameRequest:" ++ show req
           let (params, doc, pos) = reqParams req
               newName  = params ^. J.newName
               callback = reactorSend . RspRename . Core.makeResponseMessage req
           let hreq = GReq tn (Just doc) Nothing (Just $ req ^. J.id) callback
                        $ HaRe.renameCmd' doc pos newName
           makeRequest hreq
+          -}
 
 
         -- -------------------------------

test/utils/TestUtils.hs

@@ -1,8 +1,7 @@
 {-# LANGUAGE CPP, OverloadedStrings, NamedFieldPuns #-}
 module TestUtils
   (
-    testOptions
-  , withFileLogging
+    withFileLogging
   , setupStackFiles
   , testCommand
   , runSingleReq
@@ -25,8 +24,6 @@ import           Data.Typeable
 import           Data.Yaml
 import qualified Data.Map as Map
 import           Data.Maybe
-import qualified GhcMod.Monad as GM
-import qualified GhcMod.Types as GM
 import qualified Language.Haskell.LSP.Core as Core
 import           Haskell.Ide.Engine.MonadTypes
 import           System.Directory
@@ -41,18 +38,6 @@ import           Text.Blaze.Internal
 
 -- ---------------------------------------------------------------------
 
-testOptions :: GM.Options
-testOptions = GM.defaultOptions {
-    GM.optOutput     = GM.OutputOpts {
-      GM.ooptLogLevel       = GM.GmError
-      -- GM.ooptLogLevel       = GM.GmVomit
-    , GM.ooptStyle          = GM.PlainStyle
-    , GM.ooptLineSeparator  = GM.LineSeparator "\0"
-    , GM.ooptLinePrefix     = Nothing
-    }
-
-    }
-
 
 testCommand :: (ToJSON a, Typeable b, ToJSON b, Show b, Eq b)
             => IdePlugins -> IdeGhcM (IdeResult b) -> PluginId -> CommandName -> a -> IdeResult b -> IO ()