JS
Для каждой базы данных, я получаю список коллекций, а для каждой коллекции — результат.
У меня получается методы:
checkDatabase :: Pipe -> Database -> ReaderT CommandLineArgs IO [CheckResult]
checkDatabase pipe db = do
collections <- -- get collections
mapM (checkCollection pipe db) collections
checkCollection :: Pipe -> Database -> Collection -> ReaderT CommandLineArgs IO CheckResult
checkCollection = undefined
