AV
app = websocketsOr defaultConnectionOptions wsApp $ static $ notFound
Size: a a a
2020 May 27
AV
wsApp pending_conn = do
conn <- acceptRequest pending_conn
forever $ do
sendTextData conn ("Hallo!"::Text)
threadDelay 1_000_000
conn <- acceptRequest pending_conn
forever $ do
sendTextData conn ("Hallo!"::Text)
threadDelay 1_000_000
k
❤️
AV
notFound _ resp = resp $ responseLBS status404 [] "Not found"
AV
будет сервить CWD и бесконечно писать клиенту Hallo!
AV
Обновил код, теперь раз в секунду будет писать Hallo
λ
А она идёт на linux?
эпик на линукс не идёт
DR
Зато теперь есть кому высказывать всё что думаешь про яндекс облако
вы в я.облако уехали?
λ
Только эти хипстеры со своими контр страйками не увидели красоту простого hl
просто хл был чисто фановым дефматчем с одной годной картой, никакой глубины там нет, так что какую бы красоту ты там не увидел — всё равно надолго не задержишься
AV
вы в я.облако уехали?
у нас 2 инстанса разных свой и облако
AV
Ну у нас всегда было 2, но один, к счастью, перетащили в облако, там всё печально по ресурсам и поддержке было, а другой норм, нет большого смысла тащить
AV
просто хл был чисто фановым дефматчем с одной годной картой, никакой глубины там нет, так что какую бы красоту ты там не увидел — всё равно надолго не задержишься
Зато карта глубокая, вот не сразу же узнаёшь, что от ядерного взрыва можно улететь на gauss cannon не залезая в бункер
λ
у меня в коде:
хочется себя за это прибиьт
. fmap (fmap (V.fromList . fmap (\answer ->
несколько строк). fmap snd)
хочется себя за это прибиьт
вынести лямбду в функцию, вынести фмап ехал через фмап в функцию и аннотировать типом
AV
написал тип в комментарии
AV
и чуть-чуть подправил, кажется норм
λ
написал тип в комментарии
тип в комментарии компилятор не проверит 😕
AV
выведет и проверит
λ
ну то есть компилятор не проверит соответствие типа в комментарии выведеному типу
A
тип в комментарии компилятор не проверит 😕
если комментарий через
:: писать то проверитλ
если комментарий через
:: писать то проверитно это уже не комментарий