wip

Author: erikd

cabal-install/src/Distribution/Client/CmdOutdated.hs

@@ -141,10 +141,11 @@ outdatedAction flags _extraArgs globalFlags = do
         if v2FreezeFile
           then do
             putStrLn "\n\n***** v2FreezeFile ******\n"
-            let mprojectDir = flagToMaybe . flagProjectDir $ projectFlags flags
-                mprojectFile = flagToMaybe . flagProjectFile $ projectFlags flags
-            when (isJust mprojectDir || isJust mprojectFile) $
+            let mprojectDir = flagToMaybe $ flagProjectDir (projectFlags flags)
+                mprojectFile = flagToMaybe $ flagProjectFile (projectFlags flags)
+            when (not newFreezeFile && (isJust mprojectDir || isJust mprojectFile)) $
               dieWithException verbosity OutdatedAction
+
             (comp, platform, _progdb) <- runRebuild (distProjectRootDirectory $ distDirLayout prjBasedCtxt) $
               configureCompiler verbosity (distDirLayout prjBasedCtxt) (projectConfig prjBasedCtxt)
             V1Outdated.depsFromNewFreezeFile verbosity globalFlags comp platform mprojectDir mprojectFile
@@ -173,12 +174,14 @@ outdatedAction flags _extraArgs globalFlags = do
     outdatedFlags :: OutdatedFlags
     outdatedFlags = extraFlags flags
 
-    v2FreezeFile, simpleOutput, exitCode, quiet :: Bool
+    v2FreezeFile, newFreezeFile, simpleOutput, exitCode, quiet :: Bool
     v2FreezeFile = fromFlagOrDefault False $ outdatedNewFreezeFile outdatedFlags
+    newFreezeFile = fromFlagOrDefault False $ outdatedNewFreezeFile outdatedFlags
     simpleOutput = fromFlagOrDefault False $ outdatedSimpleOutput outdatedFlags
     exitCode = fromFlagOrDefault quiet $ outdatedExitCode outdatedFlags
     quiet = fromFlagOrDefault False $ outdatedQuiet outdatedFlags
 
+
     ignorePred :: PackageName -> Bool
     ignorePred =
       let ignoreSet = Set.fromList $ outdatedIgnore outdatedFlags