@@ -31,7 +31,7 @@ main = do
3131 if length dashes < 2
3232 then error $ p ++ " not in name-version-hash format"
3333 else let final = last dashes in
34− if length p - final `elem` [22,23] then take final p
34+ if length p - final `elem` [23,22,21] then take final p
3535 else error $ p ++ " has incorrect hash length"
3636
3737 removeDashSegment = init . dropWhileEnd (/= '-')