ВЩ
Потому что у левого типа есть элемент, а у правого нет.
f Nothing = (Nothing, [])
f (Just []) = (Nothing, [])
f (Just (x:xs)) = (Just x, xs)
для частного случая точно можно сделать %)Size: a a a
2021 January 31
AP
AP
t a можно toList, отделить голову и сделать pure. Остаётся суметь сбежать из f в кортеж %)YS
что-то новый hls в ghcup не появляется -.-
VS
что-то новый hls в ghcup не появляется -.-
Компилируется
DB
Компилируется
Норм
YS
Компилируется
скомпилировался
A
если я правильно понимаю ситуацию, то когда ResponseTimeout бросается клиентом, постобработка сокета не происходит.
надо теперь в этом убедиться. если это так, то поправить несложно.
надо теперь в этом убедиться. если это так, то поправить несложно.
что-то пока не поддаётся менеджер, пока не вижу, как из кишок достать информацию о сокете без раскрытия кишок, а то они сейчас по умолчанию скрыты и не exposed
2021 February 01
VS
привет, пытаюсь обработать GH hook на серванте
VS
type UpdateR = "update" :> Header "X-Hub-Signature-256" String :> ReqBody '[JSON] String :> Post '[JSON] NoContent
MK
😆
VS
но я так понимаю, что GH подписывает контент, который присылает as is
VS
то есть скорее всего, если я распаршу его, а потом конвертну к строке, то скорее всего подпись не сойдется
VS
а можно как-то сказать серванту, что тип JSON (чтобы он не ругался на media type), но получить его as is в строке?
A
а можно как-то сказать серванту, что тип JSON (чтобы он не ругался на media type), но получить его as is в строке?
Value ?
VS
он теряет форматирование
VS
data TJson
instance Accept TJson where
contentType _ = "application" M.// "json"
instance MimeRender TJson String where
mimeRender _ a = pack a
instance MimeUnrender TJson String where
mimeUnrender _ a = Right $ unpack a
VS
можно написать видимо что-то такое
AK
Парни, можете отключить - чтобы не видеть, кто присоединился?!