t
а амазон - каким образом? это ж просто хостинг-провайдер
Size: a a a
2020 July 11
t
ну и да, люди пишут, что AWS EC2 крутится поверх Xen ¯\_(ツ)_/¯
t
а, в 2019 году на KVM поменяли. ну...
JS
но докер не паравиртуализация. он вообще не виртуализация, у него ядро одно на всех
я это и имел в виду, паравиртуализация массам больше не нужна
t
а как еще эффективно запускать разные ядра, но при этом иметь общую память и скоординированный доступ к железу?
JS
а амазон - каким образом? это ж просто хостинг-провайдер
тоже решает проблему виртуализации железных серверов
JS
а как еще эффективно запускать разные ядра, но при этом иметь общую память и скоординированный доступ к железу?
кому-то это надо?
JS
давайте свернём оффтопик
KZ
Xen вышел из моды. Линукс больше не считается чем-то тяжёлым
Они 2-ю версию вроде запилили уже прост
t
Kirill Zaborsky
Они 2-ю версию вроде запилили уже прост
Последняя версия: 4.13
t
кому-то это надо?
если это не надо лично тебе, это не значит, что это не надо никому ¯\_(ツ)_/¯
JS
если это не надо лично тебе, это не значит, что это не надо никому ¯\_(ツ)_/¯
но и обратного не значит
KV
withAsync ничего не делает, если у него в хэндлере нет wait?
KV
> withAsync is like async, except that the Async is automatically killed (using uninterruptibleCancel) if the enclosing IO operation returns before it has completed.
Видимо, поэтому в ghci сразу убивается
Видимо, поэтому в ghci сразу убивается
JG
Xen вышел из моды. Линукс больше не считается чем-то тяжёлым
Mirage (на OCaml), тем не менее применяется
JG
Теоретически HalVM можно и поверх KVM портировать
JG
Для QubesOS ещё как пример
KV
Ничего не понимаю, запускаю такое:
А хэндлер не срабатывает. Почему не прерывается threadDelay?
asynchronous :: IO ()
asynchronous = withAsync (catchErrorCall (threadDelay $ delay * 2)) $ \a ->
do
throwTo (asyncThreadId a) (ErrorCallWithLocation "Asynchronously thrown." "")
threadDelay delay
where delay = 1000000
А хэндлер не срабатывает. Почему не прерывается threadDelay?
MK
> withAsync (catch (putStrLn "foo" >> threadDelay 2000000) (\e -> putStrLn $ "Exc: " <> displayException (e :: ErrorCall))) $ \a -> threadDelay 1000000 >> throwTo (asyncThreadId a) (ErrorCallWithLocation "aaaaa!" "") >> threadDelay 1000000
foo
Exc: aaaaa!MK
вроде срабатывает