Remove Command WriteAutogenFiles

Author: fendor

Cabal/Distribution/Simple.hs

@@ -179,7 +179,6 @@ defaultMainHelper hooks args = topHandler $
         \fs as -> configureAction hooks fs as >> return ()
       ,buildCommand     progs `commandAddAction` buildAction        hooks
       ,showBuildInfoCommand progs `commandAddAction` showBuildInfoAction    hooks
-      ,writeAutogenFilesCommand progs `commandAddAction` writeAutogenFilesAction  hooks
       ,replCommand      progs `commandAddAction` replAction         hooks
       ,installCommand         `commandAddAction` installAction      hooks
       ,copyCommand            `commandAddAction` copyAction         hooks
@@ -286,13 +285,6 @@ showBuildInfoAction hooks flags args = do
 
   postBuild hooks args flags' pkg_descr lbi'
 
-writeAutogenFilesAction :: UserHooks -> WriteAutogenFilesFlags -> Args -> IO ()
-writeAutogenFilesAction hooks flags _ = do
-  distPref <- findDistPrefOrDefault (wafDistPref flags)
-  let verbosity = fromFlag $ wafVerbosity flags
-  lbi <- getBuildConfig hooks verbosity distPref
-  initialBuildSteps distPref (localPkgDescr lbi) lbi verbosity
-
 replAction :: UserHooks -> ReplFlags -> Args -> IO ()
 replAction hooks flags args = do
   distPref <- findDistPrefOrDefault (replDistPref flags)

Cabal/Distribution/Simple/Build.hs

@@ -25,7 +25,6 @@ module Distribution.Simple.Build (
     initialBuildSteps,
     createInternalPackageDB,
     componentInitialBuildSteps,
-    writeAutogenFiles,
   ) where
 
 import Prelude ()

Cabal/Distribution/Simple/Setup.hs

@@ -47,8 +47,6 @@ module Distribution.Simple.Setup (
   BuildFlags(..),    emptyBuildFlags,    defaultBuildFlags,    buildCommand,
 
   showBuildInfoCommand,
-  writeAutogenFilesCommand,
-  WriteAutogenFilesFlags(..),
   buildVerbose,
   ReplFlags(..),                         defaultReplFlags,     replCommand,
   CleanFlags(..),    emptyCleanFlags,    defaultCleanFlags,    cleanCommand,
@@ -2260,37 +2258,6 @@ showBuildInfoCommand progDb = CommandUI
       ++ buildOptions progDb showOrParseArgs
   }
 
-writeAutogenFilesCommand :: ProgramDb -> CommandUI WriteAutogenFilesFlags
-writeAutogenFilesCommand progDb = CommandUI
-  { commandName         = "write-autogen-files"
-  , commandSynopsis     = "Generate and write out the Paths_<pkg>.hs and cabal_macros.h files"
-  , commandDescription  = Just $ \_ -> wrapText $
-         "Components encompass executables, tests, and benchmarks.\n"
-      ++ "\n"
-      ++ "Affected by configuration options, see `configure`.\n"
-  , commandNotes        = Just $ \pname ->
-       "Examples:\n"
-        ++ "  " ++ pname ++ " write-autogen-files      "
-        ++ "    All the components in the package\n"
-        ++ "  " ++ pname ++ " write-autogen-files foo       "
-        ++ "    A component (i.e. lib, exe, test suite)\n\n"
-        ++ programFlagsDescription progDb
-  , commandUsage        = usageAlternatives "write-autogen-files" $
-      [ "[FLAGS]" ]
-  , commandDefaultFlags = WriteAutogenFilesFlags NoFlag (toFlag normal)
-  , commandOptions      = \showOrParseArgs ->
-      [ optionVerbosity
-        wafVerbosity (\v flags -> flags { wafVerbosity = v })
-
-      , optionDistPref
-        wafDistPref (\d flags -> flags { wafDistPref = d }) showOrParseArgs
-      ]
-  }
-
-data WriteAutogenFilesFlags = WriteAutogenFilesFlags {
-  wafDistPref :: Flag FilePath,
-  wafVerbosity :: Flag Verbosity
-} deriving Show
 -- ------------------------------------------------------------
 -- * Other Utils
 -- ------------------------------------------------------------

cabal-install/Distribution/Client/CmdWriteAutogenFiles.hs

@@ -56,7 +56,6 @@ module Distribution.Client.Setup
     , copyCommand
     , registerCommand
     , showBuildInfoCommand
-    , writeAutogenFilesCommand, WriteAutogenFilesFlags(..)
     , parsePackageArgs
     , liftOptions
     , yesNoOpt
@@ -105,7 +104,6 @@ import Distribution.Simple.Setup
          , SDistFlags(..), HaddockFlags(..)
          , CleanFlags(..), DoctestFlags(..)
          , CopyFlags(..), RegisterFlags(..)
-         , WriteAutogenFilesFlags(..)
          , readPackageDbList, showPackageDbList
          , Flag(..), toFlag, flagToMaybe, flagToList, maybeToFlag
          , BooleanFlag(..), optionVerbosity
@@ -199,7 +197,6 @@ globalCommand commands = CommandUI {
           , "haddock"
           , "hscolour"
           , "show-build-info"
-          , "write-autogen-files"
           , "exec"
           , "new-build"
           , "new-configure"
@@ -287,7 +284,6 @@ globalCommand commands = CommandUI {
         , addCmd "report"
         , par
         , addCmd "show-build-info"
-        , addCmd "write-autogen-files"
         , addCmd "freeze"
         , addCmd "gen-bounds"
         , addCmd "outdated"
@@ -2975,6 +2971,3 @@ showBuildInfoCommand = parent {
     setSnd b (a,_) = (a,b)
 
     parent = Cabal.showBuildInfoCommand defaultProgramDb
-
-writeAutogenFilesCommand :: CommandUI WriteAutogenFilesFlags
-writeAutogenFilesCommand = Cabal.writeAutogenFilesCommand defaultProgramDb

cabal-install/Distribution/Client/Setup.hs

@@ -162,7 +162,6 @@ executable cabal
         Distribution.Client.CmdBuild
         Distribution.Client.CmdClean
         Distribution.Client.CmdShowBuildInfo
-        Distribution.Client.CmdWriteAutogenFiles
         Distribution.Client.CmdConfigure
         Distribution.Client.CmdUpdate
         Distribution.Client.CmdErrorMessages