Skip to content

Commit

Permalink
small refactor
Browse files Browse the repository at this point in the history
  • Loading branch information
Brat-vseznamus authored and hrissan committed Nov 16, 2024
1 parent 522140e commit ff5a35c
Show file tree
Hide file tree
Showing 2 changed files with 3 additions and 3 deletions.
2 changes: 1 addition & 1 deletion internal/tlmodel/README.md
Original file line number Diff line number Diff line change
Expand Up @@ -4,7 +4,7 @@
* В данной модели нет _Boxed_ на момент написания этого файла (13.11.24)
* Для описания типа создайте объект типа `TLType` (разница между union-type и обычными типа лишь в количестве конструкторов)

Пример для `pair {X: Type} {Y: Type} left:X property:Y = Pair;`:
Пример для `pair {X: Type} {Y: Type} left:X right:Y = Pair;`:
```haskell
\func TLPair : TLType => \new TLType {
| typeHeader => tl-new-type 1 (^Type :: (^Type :: nil))
Expand Down
4 changes: 2 additions & 2 deletions internal/tlmodel/src/Types.ard
Original file line number Diff line number Diff line change
Expand Up @@ -67,7 +67,7 @@
| nonEmpty => contradiction
}
-- struct f1:# f2:f1.0?# f3:f2.31?# = Struct;
\func TlNikitaStruct : TLType => \new TLType {
\func TLStructWithDependentFields : TLType => \new TLType {
| typeHeader => tl-new-type 4 nil
| constructorsCount => 1
| constructors =>
Expand Down Expand Up @@ -104,7 +104,7 @@

-- struct f1:int f2:f1.0?# = Struct;
\func NonTLStruct : TLType => \new TLType {
| typeHeader => tl-new-type 1488 nil
| typeHeader => tl-new-type 5 nil
| constructorsCount => 1
| constructors =>
(\new TLConstructor {
Expand Down

0 comments on commit ff5a35c

Please sign in to comment.