Data.Map.adjust did not create key