Remove EKG

Author: lukel97

app/MainHie.hs

@@ -18,7 +18,6 @@ import qualified Paths_haskell_ide_engine              as Meta
 import           System.Directory
 import           System.Environment
 import qualified System.Log.Logger                     as L
-import qualified System.Remote.Monitoring.Wai          as EKG
 
 -- ---------------------------------------------------------------------
 -- plugins
@@ -111,10 +110,6 @@ run opts = do
     warningm $ "Mismatching GHC versions: Project is " ++ projGhcVersion
             ++ ", HIE is " ++ hieGhcVersion
 
-  when (optEkg opts) $ do
-    logm $ "Launching EKG server on port " ++ show (optEkgPort opts)
-    void $ EKG.forkServer "localhost" (optEkgPort opts)
-
   origDir <- getCurrentDirectory
 
   maybe (pure ()) setCurrentDirectory $ projectRoot opts

cabal.project

@@ -8,6 +8,3 @@ packages:
          ./submodules/ghc-mod/
          ./submodules/ghc-mod/core/
 
-
--- allow-newer:ekg-core-0.1.1.4:base
--- allow-newer:ekg-json-0.1.0.6:base

haskell-ide-engine.cabal

@@ -103,7 +103,6 @@ executable hie
   other-modules:       Paths_haskell_ide_engine
   build-depends:       base
                      , directory
-                     , ekg-wai
                      , ghc-mod-core
                      , haskell-ide-engine
                      , haskell-lsp

src/Haskell/Ide/Engine/Options.hs

@@ -13,8 +13,6 @@ data GlobalOpts = GlobalOpts
   , optJson          :: Bool
   , projectRoot      :: Maybe String
   , optGhcModVomit   :: Bool
-  , optEkg           :: Bool
-  , optEkgPort       :: Int
   , optCaptureFile   :: Maybe FilePath
   , optExamplePlugin :: Bool
   } deriving (Show)
@@ -46,16 +44,6 @@ globalOptsParser = GlobalOpts
   <*> switch
        ( long "vomit"
        <> help "enable vomit logging for ghc-mod")
-  <*> switch
-       ( long "ekg"
-       <> help "enable ekg collection and display on http://localhost:8000")
-  <*> option auto
-       ( long "port"
-      <> short 'p'
-      <> metavar "PORT"
-      <> help "TCP port to use for EKG server. Only used if --ekg is set. Default 8000"
-      <> value 8000
-       )
   <*> optional (strOption
        ( long "capture"
       <> short 'c'

stack-8.6.1.yaml

@@ -17,9 +17,6 @@ extra-deps:
 - constrained-dynamic-0.1.0.0
 - czipwith-1.0.1.1
 - data-tree-print-0.1.0.2
-- ekg-core-0.1.1.6
-- ekg-json-0.1.0.6
-- ekg-wai-0.1.0.3
 - haddock-api-2.21.0
 - haskell-lsp-0.8.0.1
 - haskell-lsp-types-0.8.0.1

stack-8.6.2.yaml

@@ -13,8 +13,6 @@ extra-deps:
 - butcher-1.3.2.1
 - cabal-plan-0.4.0.0
 - constrained-dynamic-0.1.0.0
-- ekg-json-0.1.0.6
-- ekg-wai-0.1.0.3
 - haddock-api-2.21.0
 - hsimport-0.8.6
 - lsp-test-0.5.0.2

stack-8.6.3.yaml

@@ -13,8 +13,6 @@ extra-deps:
 - butcher-1.3.2.1
 - cabal-plan-0.4.0.0
 - constrained-dynamic-0.1.0.0
-- ekg-json-0.1.0.6
-- ekg-wai-0.1.0.3
 - haddock-api-2.21.0
 - hsimport-0.8.6
 - monad-memo-0.4.1

stack.yaml

@@ -13,8 +13,6 @@ extra-deps:
 - butcher-1.3.2.1
 - cabal-plan-0.4.0.0
 - constrained-dynamic-0.1.0.0
-- ekg-json-0.1.0.6
-- ekg-wai-0.1.0.3
 - haddock-api-2.21.0
 - hsimport-0.8.6
 - monad-memo-0.4.1