@@ -11,6 +11,10 @@ import System.Directory
1111import System.FilePath
1212import Text.Regex.TDFA
1313
14+-- keep 2 latest builds
15+keepBuilds :: Int
16+keepBuilds = 2
17+
1418main = do
1519 files <- sort <$> listDirectory "."
1620 let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
@@ -42,8 +46,7 @@ main = do
4246 removeDashSegment = dropWhileEnd (/= '-')
4347
4448 removeOlder remover files = do
45− -- keep 2 latest builds
46− oldfiles <- drop 2 . reverse <$> sortByAge files
49+ oldfiles <- drop keepBuilds . reverse <$> sortByAge files
4750 mapM_ remover oldfiles
4851
4952 sortByAge files = do