mirror of
https://github.com/haskell/ghcide.git
synced 2024-08-16 00:50:40 +03:00
* Preventively switch to uninterruptible mask in withMVar' withMVar' is used to update the shakeSession var and it's crucial that the third argument is not interrupted. 'mask' can still be interrupted for I/O actions and, while we were careful to ensure none was used, if it ever breaks it will lead to very hard to debug problems. * refactor: move to RuleTypes * Add a TestRequest to wait for arbitrary ide actions Closes #955 * expectCurrentDiagnostics * Add a test suite for cancellation * Introduce --test-no-kick to fix cancellation tests reliability * delete unsafeClearDiagnostics (unused) * GetModSummaryWithoutTimestamps - remove StringBuffer Since the contents of the buffer are not tracked by the fingerprint. * Fix diagnostics bug Given a FOI F with non null typechecking diagnostics D, imagine the following scenario: 1. An edit notification for F is received, creating a new version 2. GetModTime is executed, producing 0 diagnostics. 2.1 updateFileDiagnostics is called 2.2 setStageDiagnostics is called 2.3 LSP.updateDiagnostics is called with a new version, resetting all the diagnostics for F 2.4 newDiags=[] in updateFileDiagnostics, which is different from D (the last published diagnostics), which enqueues a new publishDiagnostics [] in the Debouncer 3. An edit notification for F is received before typechecking has a chance to run which undoes the previous edit 4. The debouncer publishes the empty set of diagnostics after waiting 0.1s 5. GetFileContents runs and since the contents of the file haven't changed since the last time it ran, early cutoff skips everything donwstream Since TypeCheck is skipped, the empty set of diagnostics stays published until another edit comes. The goal of this change is to prevent setStageDiagnostics from losing diagnostics from other stages. To achieve this, we recover the old diagnostics for all stages and merge them with the new stage. * Fix hlint * Use Map.insert for clarity * Fix redundant imports * Fix "code actions after edit" experiment"
42 lines
1.7 KiB
Haskell
42 lines
1.7 KiB
Haskell
-- Copyright (c) 2019 The DAML Authors. All rights reserved.
|
|
-- SPDX-License-Identifier: Apache-2.0
|
|
|
|
module Arguments(Arguments(..), getArguments) where
|
|
|
|
import Options.Applicative
|
|
|
|
|
|
data Arguments = Arguments
|
|
{argLSP :: Bool
|
|
,argsCwd :: Maybe FilePath
|
|
,argFiles :: [FilePath]
|
|
,argsVersion :: Bool
|
|
,argsShakeProfiling :: Maybe FilePath
|
|
,argsOTMemoryProfiling :: Bool
|
|
,argsTesting :: Bool
|
|
,argsDisableKick :: Bool
|
|
,argsThreads :: Int
|
|
,argsVerbose :: Bool
|
|
}
|
|
|
|
getArguments :: IO Arguments
|
|
getArguments = execParser opts
|
|
where
|
|
opts = info (arguments <**> helper)
|
|
( fullDesc
|
|
<> progDesc "Used as a test bed to check your IDE will work"
|
|
<> header "ghcide - the core of a Haskell IDE")
|
|
|
|
arguments :: Parser Arguments
|
|
arguments = Arguments
|
|
<$> switch (long "lsp" <> help "Start talking to an LSP server")
|
|
<*> optional (strOption $ long "cwd" <> metavar "DIR" <> help "Change to this directory")
|
|
<*> many (argument str (metavar "FILES/DIRS..."))
|
|
<*> switch (long "version" <> help "Show ghcide and GHC versions")
|
|
<*> optional (strOption $ long "shake-profiling" <> metavar "DIR" <> help "Dump profiling reports to this directory")
|
|
<*> switch (long "ot-memory-profiling" <> help "Record OpenTelemetry info to the eventlog. Needs the -l RTS flag to have an effect")
|
|
<*> switch (long "test" <> help "Enable additional lsp messages used by the testsuite")
|
|
<*> switch (long "test-no-kick" <> help "Disable kick. Useful for testing cancellation")
|
|
<*> option auto (short 'j' <> help "Number of threads (0: automatic)" <> metavar "NUM" <> value 0 <> showDefault)
|
|
<*> switch (long "verbose" <> help "Include internal events in logging output")
|