From e96f08afccf1112598816a47cc9c52b4600cead6 Mon Sep 17 00:00:00 2001 From: Jens Petersen Date: Sat, 4 Jul 2020 16:48:02 +0800 Subject: [PATCH] etc/diskspace: reduce the guestimate on smallest package hash length Failed for genvalidity-path-0.3.0.4-e4VgW10i2EhC0Gr0g1T --- 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 a2cd4e3b..98ffa735 100644 --- a/etc/diskspace/remove-old-stack-work-libs.hs +++ b/etc/diskspace/remove-old-stack-work-libs.hs @@ -28,7 +28,7 @@ main = do extractNameInternal :: String -> String extractNameInternal p = - let (name,match,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String) + let (name,match,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{19,22}" :: (String, String, String) in if null match || null name then error $ p ++ " not in correct name-version-hash format" else name ++ internal