From 4e43341b34fabfd2616251271346e7bd35c5afad Mon Sep 17 00:00:00 2001 From: Jens Petersen Date: Mon, 18 May 2020 21:17:16 +0800 Subject: [PATCH] remove-old-stack-work-libs.hs: sort directory list for grouping --- etc/diskspace/remove-old-stack-work-libs.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/etc/diskspace/remove-old-stack-work-libs.hs b/etc/diskspace/remove-old-stack-work-libs.hs index 0621490f..7e81b5e7 100755 --- a/etc/diskspace/remove-old-stack-work-libs.hs +++ b/etc/diskspace/remove-old-stack-work-libs.hs @@ -10,7 +10,7 @@ import Data.List import System.Directory main = do - files <- listDirectory "." + files <- sort <$> listDirectory "." (libdirs,dynlibs) <- partitionM doesDirectoryExist files let pkglibdirs = groupBy samePkgLibDir libdirs pkgdynlibs = groupBy samePkgDynLib dynlibs