Add --after option to verify-set (#72)

Author: paf31

app/Main.hs

@@ -443,17 +443,19 @@ verify inputName = case mkPackageName (pack inputName) of
 
         traverse_ (verifyPackage db paths) packages
 
-verifyPackageSet :: IO ()
-verifyPackageSet = do
+verifyPackageSet :: Maybe Text -> IO ()
+verifyPackageSet after = do
   pkg <- readPackageFile
   db <- readPackageSet pkg
-  echoT ("Verifying " <> pack (show (Map.size db)) <> " packages.")
+
+  let filtered = maybe db (\after_ -> Map.filterWithKey (\k _ -> runPackageName k >= after_) db) after
+  echoT ("Verifying " <> pack (show (Map.size filtered)) <> " packages.")
   echoT "Warning: this could take some time!"
 
   let installOrUpdate' (name, pkgInfo) = (name, ) <$> installOrUpdate (set pkg) name pkgInfo
   paths <- Map.fromList <$> traverse installOrUpdate' (Map.toList db)
 
-  for_ (Map.toList db) $ \(name, _) -> verifyPackage db paths name
+  for_ (Map.toList filtered) $ \(name, _) -> verifyPackage db paths name
 
 verifyPackage :: PackageSet -> Map.Map PackageName Turtle.FilePath -> PackageName -> IO ()
 verifyPackage db paths name = do
@@ -525,7 +527,7 @@ main = do
             (Opts.info (checkForUpdates <$> apply <*> applyMajor Opts.<**> Opts.helper)
             (Opts.progDesc "Check all packages in the package set for new releases"))
         , Opts.command "verify-set"
-            (Opts.info (pure verifyPackageSet)
+            (Opts.info (verifyPackageSet <$> optional (fromString <$> after))
             (Opts.progDesc "Verify that the packages in the package set build correctly"))
         , Opts.command "verify"
             (Opts.info (verify <$> pkg Opts.<**> Opts.helper)
@@ -565,3 +567,7 @@ main = do
              Opts.long "sort"
           <> Opts.short 's'
           <> Opts.help "Sort packages in dependency order"
+
+        after = Opts.strOption $
+             Opts.long "after"
+          <> Opts.help "Skip packages before this package during verification"