rejectCommits hashes all@(x:xs) = case find (== commitHash x) hashes of
    Just c -> rejectCommits hashes xs
    Nothing -> x : (rejectCommits hashes xs)
rejectCommits hashes all@(x:xs) = case find (== commitHash x) hashes of
    Just c -> rejectCommits hashes xs
    Nothing -> x : (rejectCommits hashes xs)
rejectCommits hashes all@(x:xs) = case find (== commitHash x) hashes of
    Just c -> rejectCommits hashes xs
    Nothing -> x : (rejectCommits hashes xs)