[aura] -Cv: Cache clear vcs contents

README.md

@@ -162,6 +162,7 @@ Full usage information can be found in Aura's man page.
 | `aura -C <package>` | Downgrade a package.                                                |
 | `aura -Cs <regex>`  | Search the package cache for files that match a regex.              |
 | `aura -Cc <n>`      | Delete all but the most recent `n` versions of each cached package. |
+| `aura -Cv`          | Delete all of the `/var/cache/aura/vcs` cache                       | 
 
 ### Searching the Pacman Log
 

aura/exec/Aura/Commands/C.hs

@@ -1,6 +1,7 @@
 {-# LANGUAGE LambdaCase         #-}
 {-# LANGUAGE NumericUnderscores #-}
 {-# LANGUAGE TypeApplications   #-}
+{-# LANGUAGE BangPatterns       #-}
 
 -- |
 -- Module    : Aura.Commands.C
@@ -9,16 +10,16 @@
 -- Maintainer: Colin Woodbury <colin@fosskers.ca>
 --
 -- Handle all @-C@ flags - those which involve the package cache.
-
 module Aura.Commands.C
   ( downgradePackages
   , searchCache
   , backupCache
   , cleanCache
   , cleanNotSaved
-  ) where
+  , cleanDir ) where
 
 import           Aura.Cache
+import           Aura.Build (vcsStore)
 import           Aura.Colour (red)
 import           Aura.Core
 import           Aura.IO
@@ -38,9 +39,9 @@ import qualified RIO.Map as M
 import qualified RIO.NonEmpty as NEL
 import qualified RIO.Set as S
 import qualified RIO.Text as T
+import           RIO.FilePath
 
 ---
-
 -- | Interactive. Gives the user a choice as to exactly what versions
 -- they want to downgrade to.
 downgradePackages :: NonEmpty PkgName -> RIO Env ()
@@ -193,3 +194,11 @@ groupByName :: [PackagePath] -> [[PackagePath]]
 groupByName pkgs = L.groupBy sameBaseName $ L.sort pkgs
     where sameBaseName a b = baseName a == baseName b
           baseName p = spName <$> simplepkg p
+
+-- | Delete all the files in the given path dir
+cleanDir :: RIO Env ()
+cleanDir = do
+  ss <- asks settings
+  let !vcsPath = fromMaybe vcsStore . vcsPathOf $ buildConfigOf ss
+  notify ss cleanCache_6
+  listDirectory vcsPath >>= traverse_ (removeDirectoryRecursive . (</>) vcsPath)

aura/exec/Aura/Flags.hs

@@ -274,6 +274,7 @@ data CacheOp
   | CacheClean  !Word !CleanMode
   | CacheCleanNotSaved
   | CacheSearch !Text
+  | CacheCleanVCS
   deriving (Show)
 
 data LogOp
@@ -341,13 +342,14 @@ backups = bigB *> (Backup <$> optional mods)
 cache :: Parser AuraOp
 cache = bigC *> (Cache <$> (fmap Left mods <|> fmap Right somePkgs))
   where bigC = flag' () (long "downgrade" <> short 'C' <> help "Interact with the package cache.")
-        mods = backup <|> clean <|> clean' <|> search
+        mods = backup <|> clean <|> clean' <|> search <|> cleanVCS
         backup = CacheBackup <$> option (eitherReader absFilePath) (long "backup" <> short 'b' <> metavar "PATH" <> help "Backup the package cache to a given directory." <> hidden)
         clean  = CacheClean
           <$> option auto (long "clean" <> short 'c' <> metavar "N" <> help "Save the most recent N versions of a package in the cache, deleting the rest." <> hidden)
           <*> flag Quantity AndUninstalled (long "uninstalled" <> short 'u' <> help "Add to -c. Clears out any uninstalled packages from the cache.")
         clean' = flag' CacheCleanNotSaved (long "notsaved" <> help "Clean out any cached package files which doesn't appear in any saved state." <> hidden)
         search = CacheSearch <$> strOption (long "search" <> short 's' <> metavar "STRING" <> help "Search the package cache via a search string." <> hidden)
+        cleanVCS = flag' CacheCleanVCS (long "vcs" <> short 'v' <> help "Clears the vcs cache directory" <> hidden)
 
 log :: Parser AuraOp
 log = bigL *> (Log <$> optional mods)

aura/exec/aura.hs

@@ -138,6 +138,7 @@ execOpts ops = do
       Left (CacheClean n u)   -> sudo $ C.cleanCache n u
       Left CacheCleanNotSaved -> sudo C.cleanNotSaved
       Left (CacheBackup pth)  -> sudo $ C.backupCache pth
+      Left CacheCleanVCS      -> sudo C.cleanDir
     Right (Log o) -> case o of
       Nothing            -> L.viewLogFile
       Just (LogInfo ps)  -> L.logInfoOnPkg ps