Simplify the definition of ‘optParserInfo’

amesgen · Dec 11, 2020 · a63ded8 · a63ded8
1 parent 9cad22a
commit a63ded8
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/app/Main.hs b/app/Main.hs
@@ -97,7 +97,7 @@ formatOne mode config mpath = withPrettyOrmoluExceptions (cfgColorMode config) $
               return (ExitFailure 100)
 
 ----------------------------------------------------------------------------
--- Command line options parsing.
+-- Command line options parsing
 
 data Opts = Opts
   { -- | Mode of operation
@@ -122,10 +122,7 @@ data Mode
 optsParserInfo :: ParserInfo Opts
 optsParserInfo =
   info (helper <*> ver <*> exts <*> optsParser) . mconcat $
-    [ fullDesc,
-      progDesc "",
-      header ""
-    ]
+    [fullDesc]
   where
     ver :: Parser (a -> a)
     ver =