Изменение значения нескольких ключей на карте в Haskell

Мне нужно изменить значение на карте для нескольких ключей на заданное значение.

У меня есть этот код:

change :: Map.Map Integer Char -> [Integer] -> Char -> Map.Map Integer Char
change m ns c = foldr (\k mp -> Map.insert k c m) m ns

Меняется только первый ключ в списке. Я могу придумать другие способы сделать это, но я пытаюсь лучше понять складки.

Извините, я исправил код.

Вот сеанс ghci:

*Maps> m
fromList [(3,'?'),(5,'?'),(7,'?'),(9,'?'),(11,'?'),(13,'?'),(15,'?'),(17,'?'),(19,'?'),(21,'?'),(23,'?'),(25,'?'),(27,'?'),(29,'?')]
it :: (Ord k, Num k, Enum k) => Map.Map k Char
(0.02 secs, 149,192 bytes)
*Maps> ns
[9,15,21,27]
it :: Num a => [a]
(0.00 secs, 59,000 bytes)
*Maps> change m ns 'c'
fromList [(3,'?'),(5,'?'),(7,'?'),(9,'c'),(11,'?'),(13,'?'),(15,'?'),(17,'?'),(19,'?'),(21,'?'),(23,'?'),(25,'?'),(27,'?'),(29,'?')]
it :: Map.Map Integer Char
(0.02 secs, 149,752 bytes)

Меняется только значение 9.