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

Констрейнты на роли в текущем хаскеле делаются тривиально - class

(forall a b . Coercible a b => Coercible (f a) (f b)) => Representational f

Проблема в основном в том что это не суперкласс функтора[1]. А так вполне можно сделать

class (forall a b . Coercible a b => Coercible (f a) (f b)) => Representational f

type RLens s t a b = forall f . (Functor f, Representational f) => (a -> f b) -> s -> f t
type RLens' s a = RLens s s a a

class X a where
f :: RLens' a Int

newtype Y a = Y (Int, a)

instance X (Y a) where f = undefined

newtype Z = Z (Int, Bool)

deriving via Y Bool instance X Z

И все будет прекрасно работать. Странно только что не standalone deriving не работает с сouldn't match representation of type, подозреваю что баг

[1]: Кметт говорит что это сильно поломает некоторые оптимизированные монады, так что наверное лучше бы было если бы именно оптика определялась через такой функтор https://www.reddit.com/r/haskell/comments/nyob5b/comment/h1l905t/?utm_source=share&utm_medium=web2x&context=3

1 ответов

9 просмотров

да про это я уже писал

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

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

А случайно нет ли в паскале штатной возможности передать указатель и количество туда где array of в качестве аргумента?
zamtmn
25
Почему Telegram пишет, что объект media не найден, хотя на самом деле я его передаю? Делаю на urllib, без зависимостей, так надо. Вызываю метод sendMediaGroup с таким JSON: ...
Alexey S
1
Anyone here suffers from unexplained aural migraines, who would be up for talking for a bit? Doesn't *have* to be aural, but I am not asking about headaches, I mean actual mi...
Martin Rys
58
Ну раз я пока тут, задам пару глупых вопросов. Зачем писать на ассемблере если компилятор довольно умный, а ассемблер много времени занимает? В каких прикладных задачах сейчас...
Максим Рябцев
20
Я тут за тем, чтобы задать вопрос, так как не знаю ассемблер, учу с/с++. Короче, насколько дорога операция перехода в функцию при ее вызове? Дело в том, что в с++ есть макросы...
Максим Рябцев
12
Привет, нужен совет старших товарищей. Есть глобальная переменная var DefaultDataFolder:string; инициализируем DefaultDataFolder:='a:\_OUT\'; есть примитивная процедур...
Max Otto
14
А какие чаты вообще в ходу? Auto aim? И что еше
do you think you're better off alone? А
13
hello friends. Do you know how can I learn getx? I have a software project that I should deliver it up to 5 weeks later and I need to learn firebase too. I will be thankfull
AmirHossein Razavi
15
Доброе время суток! у меня тут иноды закончились. и понял почему по сути кстит, я периодически очищаю постгрес и сентри контайнер: postgres=# DELETE FROM nodestore_node WHER...
Юсиф Насиров
9
Вопрос. Теоретический. Есть список команд. Команды отправляю в обработку некой функции, по очереди. Разные команды могут давать разные результаты после обработки. В зависимос...
Serjone
7
Карта сайта