From 6383d6e6fdf9622baeed8ffa6331b4084685665d Mon Sep 17 00:00:00 2001 From: Jens Petersen Date: Tue, 19 May 2020 12:23:02 +0800 Subject: [PATCH] remove-old-stack-work-libs.hs: hash can also be 20 chars! --- 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 798d4e96..77388d8e 100755 --- a/etc/diskspace/remove-old-stack-work-libs.hs +++ b/etc/diskspace/remove-old-stack-work-libs.hs @@ -31,7 +31,7 @@ main = do if length dashes < 2 then error $ p ++ " not in name-version-hash format" else let final = last dashes in - if length p - final `elem` [22,23] then take final p + if length p - final `elem` [23,22,21] then take final p else error $ p ++ " has incorrect hash length" removeDashSegment = init . dropWhileEnd (/= '-')