From f905c9455dcfb41815174b1beec824232477ec09 Mon Sep 17 00:00:00 2001
From: Jens Petersen <juhpetersen@gmail.com>
Date: Tue, 19 May 2020 14:08:36 +0800
Subject: [PATCH] remove-old-stack-work-libs.hs: need to check regexp match
 result

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

diff --git a/etc/diskspace/remove-old-stack-work-libs.hs b/etc/diskspace/remove-old-stack-work-libs.hs
index 2a85942e..a2cd4e3b 100755
--- a/etc/diskspace/remove-old-stack-work-libs.hs
+++ b/etc/diskspace/remove-old-stack-work-libs.hs
@@ -28,8 +28,9 @@ main = do
 
     extractNameInternal :: String -> String
     extractNameInternal p =
-      let (name,_,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String)
-      in name ++ internal
+      let (name,match,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String)
+      in if null match || null name then error $ p ++ " not in correct name-version-hash format"
+         else name ++ internal
 
     samePkgDynLib d1 d2 = pkgDynName d1 == pkgDynName d2
       where