haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-02-21 18:47:54 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

remove-old-stack-work-libs.hs: need to check regexp match result

Browse Source
This commit is contained in:
Jens Petersen 2020-05-19 14:08:36 +08:00
parent 86e5490e70
commit f905c9455d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
etc/diskspace/remove-old-stack-work-libs.hs
View File

@ -28,8 +28,9 @@ main = do
extractNameInternal :: String -> String extractNameInternal :: String -> String
extractNameInternal p = extractNameInternal p =
let (name,_,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String) let (name,match,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String)
in name ++ internal 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 samePkgDynLib d1 d2 = pkgDynName d1 == pkgDynName d2
where where