Дорогой друг, читающий эту заметку. Никогда, блять, не пиши ToJSON/FromJSON руками, особенно если оно как-то меняет данные, особенно если пишешь только ToJSON. // а то я тут такими извращениями теперь занимаюсь по типу let valsToTimeDatum = fmap ((map (uncurry TimeDatum)) . (zip timeSeries))

Спасибо.