adds returning left-over files back to Main.hs from rmGhcupDirs

lib/GHCup.hs

@@ -1367,7 +1367,7 @@ rmGhcupDirs = do
   -- remove bin directory conditionally
   rmBinDir binDir
 
-  liftIO $ print dirs
+  reportRemainingFiles baseDir
 
   where
 
@@ -1401,6 +1401,10 @@ rmGhcupDirs = do
       removeDirIfEmpty binDir
 #endif
 
+    reportRemainingFiles ghcupDir = do
+      remainingFiles <- liftIO $ getDirectoryContentsRecursive ghcupDir
+      pure remainingFiles
+
     deleteFile filepath = do
       hideError InappropriateType $ rmFile filepath