foo

Author: phadej

src/HaskellCI.hs

@@ -88,7 +88,7 @@ main = do
         CommandDumpConfig -> do
             putStr $ unlines $ runDG configGrammar
 
-        CommandDiffConfig _Nothing __Nothing -> do
+        CommandDiffConfig -> do
             let oldConfig = emptyConfig -- default
             newConfig' <- findConfigFile (optConfig opts)
             let newConfig = optConfigMorphism opts newConfig'

src/HaskellCI/Cli.hs

@@ -26,7 +26,7 @@ data Command
     | CommandRegenerate
     | CommandListGHC
     | CommandDumpConfig
-    | CommandDiffConfig (Maybe FilePath) (Maybe FilePath)
+    | CommandDiffConfig
     | CommandVersionInfo
   deriving Show
 
@@ -136,7 +136,7 @@ cliParserInfo = O.info ((,) <$> cmdP <*> optionsP O.<**> versionP O.<**> O.helpe
         , O.command "github"       $ O.info githubP                   $ O.progDesc "Generate GitHub Actions config"
         , O.command "list-ghc"     $ O.info (pure CommandListGHC)     $ O.progDesc "List known GHC versions"
         , O.command "dump-config"  $ O.info (pure CommandDumpConfig)  $ O.progDesc "Dump cabal.haskell-ci config with default values"
-        , O.command "diff-config"  $ O.info diffP                     $ O.progDesc "Diff between configuration files"
+        , O.command "diff-config"  $ O.info diffP                     $ O.progDesc "Diff between default and current configuration"
         , O.command "version-info" $ O.info (pure CommandVersionInfo) $ O.progDesc "Print versions info haskell-ci was compiled with"
         ]) <|> travisP
 
@@ -149,9 +149,7 @@ cliParserInfo = O.info ((,) <$> cmdP <*> optionsP O.<**> versionP O.<**> O.helpe
     githubP = CommandGitHub
         <$> O.strArgument (O.metavar "CABAL.FILE" <> O.action "file" <> O.help "Either <pkg.cabal> or cabal.project")
 
-    diffP = CommandDiffConfig
-        <$> O.optional (O.strArgument (O.metavar "FILE" <> O.action "file" <> O.help "Either a generated CI file or Haskell-CI config file."))
-        <*> O.optional (O.strArgument (O.metavar "FILE" <> O.action "file" <> O.help "Either a generated CI file or Haskell-CI config file."))
+    diffP = pure CommandDiffConfig
 
 -------------------------------------------------------------------------------
 -- Parsing helpers