@@ -28,7 +28,7 @@ main = do
2828
2929 extractNameInternal :: String -> String
3030 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)
3232 in if null match || null name then error $ p ++ " not in correct name-version-hash format"
3333 else name ++ internal
3434