From 1a7c345d3d530c566840c72f59a932f292cefd09 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Wed, 17 Feb 2021 16:01:53 +0100
Subject: Initial

---
 Coolbal/Options.hs | 42 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 42 insertions(+)
 create mode 100644 Coolbal/Options.hs

(limited to 'Coolbal/Options.hs')

diff --git a/Coolbal/Options.hs b/Coolbal/Options.hs
new file mode 100644
index 0000000..35b774c
--- /dev/null
+++ b/Coolbal/Options.hs
@@ -0,0 +1,42 @@
+module Coolbal.Options (
+    Options(..),
+    BuildOptions(..),
+    optionParser,
+) where
+
+import Options.Applicative
+
+
+data Options
+    = Build BuildOptions
+    | Clean
+    | Configure
+  deriving (Show)
+
+data BuildOptions = BuildOptions (Maybe 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 "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"))
-- 
cgit v1.2.3-70-g09d2