Клиент для REST API сайта рейтинга (rating.chgk.info) и функциональности, которой нет в REST API, но которая доступна через экспорт CSV.
Также содержит REST-сервер для дополнительной функциональности, доступной через CSV
Документация по типам параметров и возвращаемых значений находится в RatingChgkInfo.Types
Документация по функциям для работы с REST API находится в RatingChgkInfo.Api
Документация по функциям для работы с CSV находится в RatingChgkInfo.NoApi
Примеры работы с библиотекой находятся в папке examples
В следующем большом релизе планируется заменить в части типов для REST API списки значений на множества (Set), например, для составов команд и т.п. Это должно повысить безопасность библиотеки, и не должно ухудшить возможности работы.
Пример использования:
-- Наша библиотека
import RatingChgkInfo
-- И немного стандартных библиотек
import Control.Monad (forM, void)
import Control.Monad.IO.Class (liftIO)
import Data.List (nub)
import Data.Time (LocalTime(..),fromGregorian,midnight)
-- Точка входа в приложение
main :: IO ()
main = void $ runRatingApi $ do
-- Получим список всех очных турниров
--
-- Функция tournaments получает одну страницу турниров, а функция getAllItems
-- оборачивает подобные функции, чтобы пройтись по всем страницам.
-- Далее из этого списка выбираются очные турниры 2018 года
let s2018 = LocalTime (fromGregorian 2018 1 1) midnight
e2018 = LocalTime (fromGregorian 2019 1 1) midnight
tourns <- filter (\t -> trs_typeName t == Casual &&
trs_dateStart t >= s2018 &&
trs_dateEnd t <= e2018) <$>
getAllItems tournaments
-- Проходимся по полученному списку
ts <- forM tourns $ \t -> do
let ident = trs_idtournament t
-- Получаем результаты турнира
res <- tournamentResults ident
-- Возвращаем названия команд-участниц
pure (map tr_current_name res)
-- Выводим, сколько уникальных названий было по всем турнирам
liftIO (print (length (nub ts)))
