stack-clean-old 0.4.2 → 0.4.3

raw patch · 5 files changed

+14/−6 lines, 5 files

Files

ChangeLog.md +5/−0
src/Main.hs +1/−1
src/Remove.hs +6/−3
src/Snapshots.hs +1/−1
stack-clean-old.cabal +1/−1

ChangeLog.md view

@@ -1,5 +1,10 @@ # Release history for stack-clean-old-work +## 0.4.3 (2021-11-23)+- 'delete-work' now prints ".stack-work" would be deleted+- prompts now print what would be deleted+- '--recursive' now prints dirs with '/' appended+ ## 0.4.2 (2021-11-22) - add optional --os-system to fix #7 - list/size snapshots before compilers for --global

src/Main.hs view

@@ -103,7 +103,7 @@               else listStackSubdirs       forM_ dirs $ \dir ->         withCurrentDirectory dir $ do-        putStrLn $ "\n" ++ takeFileName dir+        putStrLn $ "\n" ++ takeFileName dir ++ "/"         act     Nothing -> act

src/Remove.hs view

@@ -23,6 +23,9 @@  prompt :: Deletion -> String -> IO () prompt deletion str =-  when (isDelete deletion) $ do-  putStr $ "Press Enter to delete " ++ str ++ ": "-  void getLine+  if isDelete deletion+  then do+    putStr $ "Press Enter to delete " ++ str ++ ": "+    void getLine+  else+    putStrLn $ str ++ " would be deleted"

src/Snapshots.hs view

@@ -175,5 +175,5 @@  removeStackWork :: Deletion -> IO () removeStackWork deletion = do-  Remove.prompt deletion "this dir"+  Remove.prompt deletion ".stack-work"   Remove.doRemoveDirectory deletion ".stack-work"

stack-clean-old.cabal view

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