Add details for "clear-cache" in --verbose mode

Fixes #2118
fsprojects · Jan 29, 2017 · 5720aa3 · 5720aa3
1 parent 4081e77
commit 5720aa3
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/src/Paket.Core/PublicAPI.fs b/src/Paket.Core/PublicAPI.fs
@@ -20,10 +20,14 @@ type Dependencies(dependenciesFileName: string) =
         |> Seq.toList
 
     /// Clears the NuGet cache
-    static member ClearCache() = 
-        Utils.emptyDir (DirectoryInfo Constants.UserNuGetPackagesFolder)
-        Utils.emptyDir (DirectoryInfo Constants.NuGetCacheFolder)
-        Utils.emptyDir (DirectoryInfo Constants.GitRepoCacheFolder)
+    static member ClearCache() =
+        let emptyDir path =
+            verbosefn "Emptying '%s'" path
+            Utils.emptyDir (DirectoryInfo path)
+
+        emptyDir (Constants.UserNuGetPackagesFolder)
+        emptyDir (Constants.NuGetCacheFolder)
+        emptyDir (Constants.GitRepoCacheFolder)
 
     /// Tries to locate the paket.dependencies file in the current folder or a parent folder.
     static member Locate(): Dependencies = Dependencies.Locate(Directory.GetCurrentDirectory())