stack-clean-old 0.4.4 → 0.4.5

raw patch · 3 files changed

+27/−13 lines, 3 files

Files

• ChangeLog.md +3/−0
• src/Main.hs +23/−12
• stack-clean-old.cabal +1/−1

@@ -1,5 +1,8 @@ # Release history for stack-clean-old-work +## 0.4.5 (2022-01-14)+- fix multiple reminders about using --delete+ ## 0.4.4 (2022-01-04) - handle .stack-work/ consistently for --subdir and --recursive - remind user to use '--delete' for removal

@@ -151,6 +151,12 @@ removeCmd :: Deletion -> Mode -> Maybe Recursion -> Version -> Maybe String           -> IO () removeCmd deletion mode mrecursion ghcver msystem = do+  removeRun deletion mode mrecursion ghcver msystem+  remindDelete deletion++removeRun :: Deletion -> Mode -> Maybe Recursion -> Version -> Maybe String+          -> IO ()+removeRun deletion mode mrecursion ghcver msystem =   withRecursion True mrecursion $     case mode of       Project -> do@@ -161,20 +167,26 @@         cwd <- getCurrentDirectory         setStackSnapshotsDir msystem         cleanGhcSnapshots deletion cwd ghcver-      Compilers -> removeGhcVersionInstallation deletion ghcver msystem+      Compilers -> do+        removeGhcVersionInstallation deletion ghcver msystem       GHC -> do-        removeCmd deletion Compilers Nothing ghcver msystem-        removeCmd deletion Snapshots Nothing ghcver msystem+        removeRun deletion Compilers Nothing ghcver msystem+        removeRun deletion Snapshots Nothing ghcver msystem       Default -> do         isProject <- doesDirectoryExist ".stack-work"         if isProject-          then removeCmd deletion Project Nothing ghcver msystem-          else removeCmd deletion GHC Nothing ghcver msystem-  remindDelete deletion+          then removeRun deletion Project Nothing ghcver msystem+          else removeRun deletion GHC Nothing ghcver msystem  removeMinorsCmd :: Deletion -> Mode -> Maybe Recursion -> Maybe Version                 -> Maybe String -> IO () removeMinorsCmd deletion mode mrecursion mver msystem = do+  removeMinorsRun deletion mode mrecursion mver msystem+  remindDelete deletion++removeMinorsRun :: Deletion -> Mode -> Maybe Recursion -> Maybe Version+                -> Maybe String -> IO ()+removeMinorsRun deletion mode mrecursion mver msystem = do   withRecursion True mrecursion $     case mode of       Project -> do@@ -187,14 +199,13 @@         cleanMinorSnapshots deletion cwd mver       Compilers -> removeGhcMinorInstallation deletion mver msystem       GHC -> do-        removeMinorsCmd deletion Compilers Nothing mver msystem-        removeMinorsCmd deletion Snapshots Nothing mver msystem+        removeMinorsRun deletion Compilers Nothing mver msystem+        removeMinorsRun deletion Snapshots Nothing mver msystem       Default -> do         isProject <- doesDirectoryExist ".stack-work"         if isProject-          then removeMinorsCmd deletion Project Nothing mver msystem-          else removeMinorsCmd deletion GHC Nothing mver msystem-  remindDelete deletion+          then removeMinorsRun deletion Project Nothing mver msystem+          else removeMinorsRun deletion GHC Nothing mver msystem  purgeOlderCmd :: Deletion -> Natural -> Maybe Recursion -> Maybe String -> IO () purgeOlderCmd deletion keep mrecursion msystem = do@@ -219,4 +230,4 @@  remindDelete :: Deletion -> IO () remindDelete deletion =-  unless (isDelete deletion) $ putStrLn "\n(use --delete for removal)"+  unless (isDelete deletion) $ putStrLn "\n(use --delete (-d) for removal)"

@@ -1,5 +1,5 @@ name:                stack-clean-old-version:             0.4.4+version:             0.4.5 synopsis:            Clean away old stack build artefacts description:         A tool for removing old .stack-work/install builds and