From c4873f36aa2b3741432cdf53d7201935aa17050a Mon Sep 17 00:00:00 2001
From: Meisam <39205857+MFTabriz@users.noreply.github.com>
Date: Wed, 16 Nov 2022 16:59:22 +0100
Subject: [PATCH] add verbose flag parser

---
 shellcheck.hs | 13 +++++++++++--
 1 file changed, 11 insertions(+), 2 deletions(-)

diff --git a/shellcheck.hs b/shellcheck.hs
index a525251..c048831 100644
--- a/shellcheck.hs
+++ b/shellcheck.hs
@@ -74,7 +74,8 @@ data Options = Options {
     externalSources  :: Bool,
     sourcePaths      :: [FilePath],
     formatterOptions :: FormatterOptions,
-    minSeverity      :: Severity
+    minSeverity      :: Severity,
+    verbose          :: Bool
 }
 
 defaultOptions = Options {
@@ -84,7 +85,8 @@ defaultOptions = Options {
     formatterOptions = newFormatterOptions {
         foColorOption = ColorAuto
     },
-    minSeverity = StyleC
+    minSeverity = StyleC,
+    verbose = False
 }
 
 usageHeader = "Usage: shellcheck [OPTIONS...] FILES..."
@@ -117,6 +119,8 @@ options = [
     Option "S" ["severity"]
         (ReqArg (Flag "severity") "SEVERITY")
         "Minimum severity of errors to consider (error, warning, info, style)",
+    Option "v" ["vebose"]
+        (NoArg $ Flag "verbose" "true") "Verbose mode",
     Option "V" ["version"]
         (NoArg $ Flag "version" "true") "Print version information",
     Option "W" ["wiki-link-count"]
@@ -304,6 +308,11 @@ parseOption flag options =
                 }
             }
 
+        Flag "verbose" _ ->
+            return options {
+                verbose = True
+            }
+
         Flag "version" _ -> do
             liftIO printVersion
             throwError NoProblems