@@ -28,8 +28,9 @@ main = do
29 extractNameInternal :: String -> String
29 extractNameInternal :: String -> String
30 extractNameInternal p =
30 extractNameInternal p =
31− let (name,_,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String)
31+ let (name,match,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String)
32+ in if null match || null name then error $ p ++ " not in correct name-version-hash format"
32− in name ++ internal
33+ else name ++ internal
34 samePkgDynLib d1 d2 = pkgDynName d1 == pkgDynName d2
35 samePkgDynLib d1 d2 = pkgDynName d1 == pkgDynName d2