From 3ced32f3430a2bcfabb314695c837b88693ed68d Mon Sep 17 00:00:00 2001
From: Jens Petersen <juhpetersen@gmail.com>
Date: Tue, 19 May 2020 12:47:25 +0800
Subject: [PATCH] remove-old-stack-work-libs.hs: ignore internal libs for now

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

diff --git a/etc/diskspace/remove-old-stack-work-libs.hs b/etc/diskspace/remove-old-stack-work-libs.hs
index 77388d8e..50009d8d 100755
--- a/etc/diskspace/remove-old-stack-work-libs.hs
+++ b/etc/diskspace/remove-old-stack-work-libs.hs
@@ -14,8 +14,10 @@ import System.FilePath
 main = do
   files <- sort <$> listDirectory "."
   let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
-      pkglibdirs = groupBy samePkgLibDir libdirs
-      pkgdynlibs = groupBy samePkgDynLib dynlibs
+      pkglibdirs = groupBy samePkgLibDir $
+                   filter (not . ("-internal" `isSuffixOf`)) libdirs
+      pkgdynlibs = groupBy samePkgDynLib $
+                   filter (not . ("-internal-" `isInfixOf`)) dynlibs
   mapM_ (removeOlder removeDirectoryRecursive) pkglibdirs
   mapM_ (removeOlder removeFile) pkgdynlibs
   where