mirror of
https://github.com/haskell/haskell-ide-engine.git
synced 2024-09-11 11:05:30 +03:00
Tweak hie-wrapper and hie exe startup messages
This commit is contained in:
parent
a8c156b8a1
commit
78f6701e9c
@ -72,6 +72,8 @@ run opts = do
|
||||
d <- getCurrentDirectory
|
||||
logm $ "Current directory:" ++ d
|
||||
logm $ "Operating system:" ++ os
|
||||
args <- getArgs
|
||||
logm $ "args:" ++ show args
|
||||
|
||||
-- Get the cabal directory from the cradle
|
||||
cradle <- findLocalCradle (d </> "File.hs")
|
||||
@ -99,7 +101,6 @@ run opts = do
|
||||
Nothing -> logm $ "cannot find any hie exe, looked for:" ++ intercalate ", " candidates
|
||||
Just e -> do
|
||||
logm $ "found hie exe at:" ++ e
|
||||
args <- getArgs
|
||||
logm $ "args:" ++ show args
|
||||
logm "launching ....\n\n\n"
|
||||
callProcess e args
|
||||
|
@ -21,6 +21,7 @@ import qualified Paths_haskell_ide_engine as Meta
|
||||
import System.Directory
|
||||
import System.Environment
|
||||
import System.FilePath ((</>))
|
||||
import System.Info
|
||||
import System.IO
|
||||
import qualified System.Log.Logger as L
|
||||
|
||||
@ -119,8 +120,10 @@ run opts = do
|
||||
if optLsp opts
|
||||
then do
|
||||
-- Start up in LSP mode
|
||||
logm $ "Run entered for HIE(" ++ progName ++ ") " ++ hieVersion
|
||||
logm $ "Run entered for HIE(" ++ progName ++ ") " ++ hieVersion
|
||||
logm $ "Operating as a LSP server on stdio"
|
||||
logm $ "Current directory:" ++ origDir
|
||||
logm $ "Operating system:" ++ os
|
||||
logm $ "args:" ++ show args
|
||||
|
||||
let initOpts = defaultCradleOpts { cradleOptsVerbosity = verbosity }
|
||||
@ -142,6 +145,7 @@ run opts = do
|
||||
-- Provide debug info
|
||||
cliOut $ "Running HIE(" ++ progName ++ ")"
|
||||
cliOut $ " " ++ hieVersion
|
||||
cliOut $ "To run as a LSP server on stdio, provide the '--lsp' argument"
|
||||
cliOut $ "Current directory:" ++ origDir
|
||||
-- args <- getArgs
|
||||
cliOut $ "\nargs:" ++ show args
|
||||
|
Loading…
Reference in New Issue
Block a user