AS
Size: a a a
AS
AS
AS
JS
AS
AV
funcA :: ReaderT env m [a]Как в funcA превратить` [ReaderT env m a] `
funcA = map funcB [1..]
funcB :: ReaderT env m a
funcB = undefined
в ReaderT env m [a] ? Нужно использовать runReader?JS
main = do
throwIO $ userError "4"
do
print 6
throwIO $ userError "7"
`catch` \(e :: SomeException) -> do
putStrLn $ "caught " ++ show e
throwIO $ userError "10"
AV
AV
IO ..AS
AV
AS
MK
AV
G
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
AV