mirror of
https://github.com/haskell/ghcide.git
synced 2024-12-12 02:24:13 +03:00
28 lines
818 B
Haskell
28 lines
818 B
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]
|
|
}
|
|
|
|
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 "hie-core - 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..."))
|