zipMaybe' :: [a] -> Maybe [b] -> [(a, Maybe b)]
zipMaybe' xs Nothing   = zip xs $ repeat Nothing
zipMaybe' :: [a] -> Maybe [b] -> [(a, Maybe b)]
zipMaybe' xs Nothing   = zip xs $ repeat Nothing
zipMaybe' xs Nothing   = zip xs $ repeat Nothing