From 6a32dda818b3929aa7277efb51f7171f007cf47a Mon Sep 17 00:00:00 2001
From: Ryan Mulligan <ryan@ryantm.com>
Date: Wed, 27 Jul 2022 20:24:10 -0700
Subject: [PATCH] Main: fix update-batch command parser

---
 app/Main.hs | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/app/Main.hs b/app/Main.hs
index 13b60f9..e34318e 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -57,6 +57,12 @@ updateParser =
     <$> updateOptionsParser
     <*> O.strArgument (O.metavar "UPDATE_INFO" <> O.help "update string of the form: 'pkg oldVer newVer update-page'\n\n example: 'tflint 0.15.0 0.15.1 repology.org'")
 
+updateBatchParser :: O.Parser Command
+updateBatchParser =
+  UpdateBatch
+    <$> updateOptionsParser
+    <*> O.strArgument (O.metavar "UPDATE_INFO" <> O.help "update string of the form: 'pkg oldVer newVer update-page'\n\n example: 'tflint 0.15.0 0.15.1 repology.org'")
+
 deleteDoneParser :: O.Parser Command
 deleteDoneParser =
   DeleteDone
@@ -73,7 +79,7 @@ commandParser =
           (O.info (updateParser) (O.progDesc "Update one package"))
         <> O.command
           "update-batch"
-          (O.info (updateParser) (O.progDesc "Update one package in batch mode."))
+          (O.info (updateBatchParser) (O.progDesc "Update one package in batch mode."))
         <> O.command
           "delete-done"
           ( O.info