blob: 8b1f807fabd7f417be7b5208c8dae379c71cb478 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
module Coolbal.Options (
Options(..),
BuildOptions(..),
RunOptions(..),
optionParser,
) where
import Options.Applicative
data Options
= Build BuildOptions
| Clean
| Configure
| Run RunOptions
deriving (Show)
data BuildOptions = BuildOptions (Maybe String)
deriving (Show)
data RunOptions = RunOptions (Maybe String) [String]
deriving (Show)
optionParser :: ParserInfo Options
optionParser =
info (root <**> helper)
(fullDesc
<> header "coolbal - Faster cabal for common cases"
<> progDesc "Some simple Haskell projects don't need all the complexity of \
\Cabal's re-configuration logic. Coolbal can take an already-built \
\Cabal project and rebuild it as long as you don't change the \
\configuration too much, and as long as you don't use too-special \
\Cabal features. Always check that coolbal gives you the expected \
\result.")
root :: Parser Options
root =
hsubparser (
command "build" (info (Build <$> buildOptions)
(progDesc "Build the project"))
<> command "run" (info (Run <$> runOptions)
(progDesc "Run an executable from the project"))
<> command "clean" (info (pure Clean)
(progDesc "Clean coolbal's files for this project"))
<> command "configure" (info (pure Configure)
(progDesc "Initialise coolbal for this project")))
buildOptions :: Parser BuildOptions
buildOptions = BuildOptions <$> optional (argument str (metavar "TARGET"))
runOptions :: Parser RunOptions
runOptions = RunOptions <$> optional (argument str (metavar "TARGET")) <*> many (argument str (metavar "ARGS..."))
|
