@@ -28,8 +28,9 @@ main = do
2828
2929 extractNameInternal :: String -> String
3030 extractNameInternal p =
31− let (name,_,internal) = p =~ "-[0-9.]+-[0-9A-Za-z]{20,22}" :: (String, String, String)
32− in name ++ internal
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"
33+ else name ++ internal
3334
3435 samePkgDynLib d1 d2 = pkgDynName d1 == pkgDynName d2
3536 where