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

Type Truth = Enum () :: Constraint data KBool = 'KTrue

| 'KFalse

type family Default (flag :: KBool) (a :: k) (b :: k) :: k
type instance Default 'KTrue a _ = a
type instance Default 'KFalse _ b = b

cmp :: forall (flag :: KBool) a c
. (Default flag Truth (Eq a), c ~ Default flag Int a)
=> c -> c -> c
cmp x y = x == yКак сформулировать тип cmp, чтобы убедить компилятор, что в любом случае Eq c?
Было бы удобно, если бы можно было как-то дикт получить и использовать как док-во, но в constraint я не нашел как из Dict и a получить констрейнт, а у самого мозгов не хватает.

5 ответов

10 просмотров

а никак. типы стираются, и передача значения Int не означает передачу словарика Eq Int

Жук-Короед Автор вопроса
Cheese Syrowiecki
а никак. типы стираются, и передача значения Int н...

Типы-то в рантайме стираются, а тут компайл-тайм вычисления.

Жук Короед
Типы-то в рантайме стираются, а тут компайл-тайм в...

словарики тоже передаются в рантайме. надо во время компиляции так сделать, чтобы словарик был в рантайме. как?

а зачем нужен KBool

Cheese Syrowiecki
словарики тоже передаются в рантайме. надо во врем...

если минимизировать пример, будет cmp :: forall (flag :: Bool) a. If flag (a ~ Int) (Eq a) => a -> a -> Bool cmp x y = x == y Could not deduce (Eq a) arising from a use of ‘==’ from the context: If flag (a ~ Int) (Eq a)

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

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

Какой-то там пердун в 90-х решил, что есть какая-то разная типизация. Кого вообще это волнует?
КТ315
49
void terminal_scroll() { memmove(terminal_buffer, terminal_buffer + VGA_WIDTH, buffer_size - VGA_WIDTH); memset(terminal_buffer + buffer_size - VGA_WIDTH, 0, VGA_WIDTH); ...
Егор
47
Всем привет! Подскажите, пожалуйста, в чем ошибка? Настраиваю подключение к MySQL. Либы лежат рядом с exe. Все как по "учебнику"
Евгений
16
А можете как-то проверить меня по знаниям по ассемблеру?
A A
132
Здравствуйте! У меня появилась возможность купить книгу "Изучай Haskell во имя добра!". Но я где-то слышал, что эта книга устарела. Насколько это правда??
E
22
Здравствуйте! Я вот на stepic решаю задачи на хаскеле https://stepik.org/lesson/8443/step/8?unit=1578 мой код import Data.List (isInfixOf) removing :: String -> [String] ->...
E
10
Камрады, кто тесно работал с vtv, хотел уточнить. Ширина column задаётся жёстко на этапе создания дерева или можно в рантайме ее менять программно (не мышкой)?
Ed Doc
10
да ладно ... что там неочевидного ? глянуть в исх-ки датасета и/или кверика чтобы понять в каком месте и как выполняется обращения к св-вам blablaSQL - минутное дело, даже е...
Сергей
7
Здесь для arm кто-нибудь кодит ?
Nothing
52
Всем привет, у меня есть сервер принимающий входящие HTTP подключения, как проверить, что подключение было через прокси или нет, есть какие то поля в заголовках по которым мо...
Кибер Бомж
8
Карта сайта