@@ -28,7 +28,7 @@ main = do
29 extractNameInternal :: String -> String
29 extractNameInternal :: String -> String
30 extractNameInternal p =
30 extractNameInternal p =
31− let (name,match,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]{19,22}" :: (String, String, String)
32 in if null match || null name then error $ p ++ " not in correct name-version-hash format"
32 in if null match || null name then error $ p ++ " not in correct name-version-hash format"
33 else name ++ internal
33 else name ++ internal