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

Это работает: embed :: (forall f b. Sig

f effs2 => (forall f. Sig f effs1 => f b) -> f b)
-> Eff effs1 a
-> Eff effs2 a
embed weaken (Eff k) = Eff $ \f -> k $ \b -> f (weaken b)

это нет:

embedQC
:: (forall f. Sig f effs2 => Sig f effs1)
=> Eff effs1 a
-> Eff effs2 a
embedQC (Eff k) = Eff $ \f -> k $ \b -> f b

Говорит

• Could not deduce: Sig f effs1 arising from a use of ‘b’
from the context: forall (f :: * -> *). Sig f effs2 => Sig f effs1

ЧЯДНТ?

1 ответов

3 просмотра
Roman- Автор вопроса

короче оказалось, что дело в том, что Sig определена как type family. Если определить как эквивалентный class, то все работает. Кто-нибудь пейпер читал? Оно так и задумано?

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

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

Вопрос по диагностике ошибок (я знаю в чем, в данном конкретном примере, я знаю, как исправить, пример модельный, понятно, что в реальности бывает намного запутаннее). module...
ⰄⰎⰋⰐⰐⰑⰛⰤⰧⰧⰩⰄ ⰊⰑⰁⰓⰡⰛⰦⰕⰫ
10
А чем вам питонисты не угодили?😂
.
79
Есть какой-нибудь для Delphi/FPC T*Compression(Decompression)Stream на базе LZ4/Zstd/любой другой быстрый(и хорошо сжимающий) алгоритм А ещё лучше в pure pascal А ещё лучше од...
notme
48
Есть предложения, как подобное можно упростить?
Hemul GM
12
type TObj = object procedure Init; virtual; end; TObj1 = object(TObj) procedure Init; override; end; procedure TObj1.Init; begin inherited; end; procedur...
Alexander 👋
29
У меня вопросик назрел. Почему, создав класс без наследования и реализации деструктора Destroy, деструктор не вызывался при free. Потом указал наследование от tobject и overri...
Сергей Бычков
9
Такой вопросец - есть функция function MySuperDuperConcat(const a: array of AnsiString): AnsiString; Как мне в её теле сделать вот так? Result:=Concat(a); А не грустный вариан...
notme
15
just use free version ?? pycharm has a free version
Fan / Ac
9
Всем привет, написал код ниже, но он выдает сегфолт, в чем причина? #include <stdio.h> #include <stdlib.h> #include <string.h> struct product { char *name; float price; };...
buzz базз
86
Привет, не могли бы подсказать почему "A tree falls in a forest" не отображается в journalctl? openlog ("exampleprog", LOG_CONS | LOG_PID | LOG_NDELAY, LOG_LOCAL1); syslog (LO...
•_• Asmanov 🎓
3
Карта сайта