169 похожих чатов

Пробую такую штуку https://stackoverflow.com/a/57336218/1883349 , но что-то не работает. fn ::

JSStatement -> [Constr]
fn = everything (++) ([], const [] `extQ` (\x -> [toConstr (x :: JSStatement)]))

No instance for (Data.Generics.Uniplate.Operations.Biplate
JSStatement b0)
arising from a use of 'everything'

А зачем тут такой инстанс?

Если же пробовать прям точно, как в ответе, то будет несоответствие типов:

fn :: JSStatement -> [Constr]
fn = everything (++) (const [] `extQ` (\x -> [toConstr (x :: JSStatement)]))

Couldn't match expected type `([Constr], a0 -> [Constr])'
with actual type `b0 -> [Constr]'

Может, там какой-то другой `everything`

1 ответов

18 просмотров
Ilya-Chernov Автор вопроса

Так, не тот everything использовал. Тот в Data.Generics.Schemes. @A64m_qb0 , вот вариант без райтера: fn :: JSStatement -> [Constr] fn = everything (++) (const [] `extQ` (\x -> [toConstr (x :: JSStatement)])) По-моему, он лучше, потому что короче и нет лишней операции. Или тут есть какой-то подвох, о котором я не знаю? (Как советует автор, лучше бы, конечно, использовать Map вместо списка. Так и сделаю)

Похожие вопросы

Обсуждают сегодня

30500 за редактор? )
Владимир
47
а через ESC-код ?
Alexey Kulakov
29
Чёт не понял, я ж правильной функцией воспользовался чтобы вывести отладочную информацию? но что-то она не ловится
notme
18
У меня есть функция где происходит это: write_bit(buffer, 1); write_bit(buffer, 0); write_bit(buffer, 1); write_bit(buffer, 1); write_bit(buffer, 1); w...
~
14
Недавно Google Project Zero нашёл багу в SQLite с помощью LLM, о чём достаточно было шумно в определённых интернетах, которые сопровождались рассказами, что скоро всех "ибешни...
Alex Sherbakov
5
Ребят в СИ можно реализовать ООП?
Николай
33
Как передать управляющий символ в открытую через CreateProcess консоль? Собсна, есть процедура: procedure TRedirectThread.WriteData(Data: OEMString); var Written: Cardinal;...
Serjone
6
в JclConsole объявлено так: function CtrlHandler(CtrlType: DWORD): BOOL; stdcall; - где ваше объявление с stdcall? у вас на картинке нет stdcall
Karagy
8
https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_h_common.erl#L174 https://github.com/erlang/otp/blob/OTP-27.1/lib/kernel/src/logger_olp.erl#L76 15 лет назад...
Maksim Lapshin
20
~ 2m21s  nix shell github:nixos/nixpkgs#stack ~  stack ghc -- --version error: … while calling the 'derivationStrict' builtin at /builtin/derivation.nix:...
Rebuild your mind.
6
Карта сайта