From c3ec48dbb03e3f4f9dfd3ac16a6f925daafaa73c Mon Sep 17 00:00:00 2001
From: Nicolas Mattia <nicolas@nmattia.com>
Date: Fri, 22 Nov 2019 16:20:43 +0100
Subject: [PATCH] Add basic CLI for git dependencies

---
 src/Niv/Cli.hs | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/src/Niv/Cli.hs b/src/Niv/Cli.hs
index 3bac9c5..5488dba 100644
--- a/src/Niv/Cli.hs
+++ b/src/Niv/Cli.hs
@@ -208,9 +208,10 @@ cmdInit = do
 parseCmdAdd :: Opts.ParserInfo (IO ())
 parseCmdAdd =
     Opts.info
-      ((uncurry (cmdAdd githubUpdate') <$> parseArgs) <**> Opts.helper) $
+      ((sp <|> (uncurry (cmdAdd githubUpdate') <$> parseArgs)) <**> Opts.helper) $
       mconcat desc
   where
+    sp = Opts.subparser (Opts.hidden <> Opts.commandGroup "Experimental commands:" <> Opts.command "git" parseCmdAddGit)
     parseArgs :: Opts.Parser (PackageName, Attrs)
     parseArgs = collapse <$> parseNameAndGHShortcut <*> parsePackageSpec
     parseNameAndGHShortcut = (,) <$> optName <*> parseGitHubShortcut
@@ -249,6 +250,15 @@ parseCmdAdd =
           "  niv add my-package -v alpha-0.1 -t http://example.com/archive/<version>.zip"
       ]
 
+parseCmdAddGit :: Opts.ParserInfo (IO ())
+parseCmdAddGit =
+    Opts.info
+      (putStrLn <$> parseArgs <**> Opts.helper) $
+      mconcat desc
+  where
+    parseArgs = Opts.strOption (Opts.long "message")
+    desc = [ Opts.progDesc "This echoes \"message\" back." ]
+
 cmdAdd :: Update () a -> PackageName -> Attrs -> IO ()
 cmdAdd updateFunc packageName attrs = do
     job ("Adding package " <> T.unpack (unPackageName packageName)) $ do