From 6d7bd96fc7d04c77f9fd8c5561238224b359ca68 Mon Sep 17 00:00:00 2001
From: Jens Petersen <juhpetersen@gmail.com>
Date: Mon, 6 Jul 2020 10:54:41 +0800
Subject: [PATCH] etc/diskspace: factor out keepBuilds: number of pkg build
 versions to keep

---
 etc/diskspace/remove-old-stack-work-libs.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/etc/diskspace/remove-old-stack-work-libs.hs b/etc/diskspace/remove-old-stack-work-libs.hs
index 983826f1..d26fcd06 100644
--- a/etc/diskspace/remove-old-stack-work-libs.hs
+++ b/etc/diskspace/remove-old-stack-work-libs.hs
@@ -11,6 +11,10 @@ import System.Directory
 import System.FilePath
 import Text.Regex.TDFA
 
+-- keep 2 latest builds
+keepBuilds :: Int
+keepBuilds = 2
+
 main = do
   files <- sort <$> listDirectory "."
   let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
@@ -42,8 +46,7 @@ main = do
     removeDashSegment = dropWhileEnd (/= '-')
 
     removeOlder remover files = do
-      -- keep 2 latest builds
-      oldfiles <- drop 2 . reverse <$> sortByAge files
+      oldfiles <- drop keepBuilds . reverse <$> sortByAge files
       mapM_ remover oldfiles
 
     sortByAge files = do