juvix/tests/positive/Adt.juvix

module Adt;

type Bool :=
  | true
  | false;

type Pair (A B : Type) := mkPair A B;

type Nat :=
  | zero
  | suc Nat;

c1 : Bool := true;

c2 : Bool := false;

c3 : Pair Bool Bool := mkPair true false;

c4 : Nat := zero;

c5 : Nat := suc zero;
Adt syntax (#2262) - merge #2260 first Allows constructors to be defined using Haskell-like Adt syntax. E.g. ``` module Adt; type Bool := \| true \| false; type Pair (A B : Type) := \| mkPair A B; type Nat := \| zero \| suc Nat; ``` --------- Co-authored-by: Paul Cadman <git@paulcadman.dev> 2023-08-01 15:39:43 +03:00			`module Adt;`

			`type Bool :=`
			`\| true`
			`\| false;`

Improve formatting of single-constructor types and records (#2342) - Closes #2331. The rules implemented in this pr are as follows. 1. If a type definition has only one constructor, no pipe is added. The constructor is printed in the same line if it fits. 2. If a constructor is a record with a single field, the field is printed in the same line if it fits. If the constructor has multiple fields, they are printed aligned and indented after a line break. Examples: ``` type T := constructT : T; type T-wrapper := mkWrapper {unwrap : T}; type EnumRecord := \| --- doc for C1 C1 { c1a : T; c1b : T } \| C2 { c2a : T; c2b : T }; ``` 2023-09-07 17:20:14 +03:00			`type Pair (A B : Type) := mkPair A B;`
Adt syntax (#2262) - merge #2260 first Allows constructors to be defined using Haskell-like Adt syntax. E.g. ``` module Adt; type Bool := \| true \| false; type Pair (A B : Type) := \| mkPair A B; type Nat := \| zero \| suc Nat; ``` --------- Co-authored-by: Paul Cadman <git@paulcadman.dev> 2023-08-01 15:39:43 +03:00
			`type Nat :=`
			`\| zero`
			`\| suc Nat;`

Remove old function syntax (#2305) * Enables new function syntax in local let-declarations * Closes #2251 2023-08-24 12:20:09 +03:00			`c1 : Bool := true;`
Adt syntax (#2262) - merge #2260 first Allows constructors to be defined using Haskell-like Adt syntax. E.g. ``` module Adt; type Bool := \| true \| false; type Pair (A B : Type) := \| mkPair A B; type Nat := \| zero \| suc Nat; ``` --------- Co-authored-by: Paul Cadman <git@paulcadman.dev> 2023-08-01 15:39:43 +03:00
Remove old function syntax (#2305) * Enables new function syntax in local let-declarations * Closes #2251 2023-08-24 12:20:09 +03:00			`c2 : Bool := false;`
Adt syntax (#2262) - merge #2260 first Allows constructors to be defined using Haskell-like Adt syntax. E.g. ``` module Adt; type Bool := \| true \| false; type Pair (A B : Type) := \| mkPair A B; type Nat := \| zero \| suc Nat; ``` --------- Co-authored-by: Paul Cadman <git@paulcadman.dev> 2023-08-01 15:39:43 +03:00
Remove old function syntax (#2305) * Enables new function syntax in local let-declarations * Closes #2251 2023-08-24 12:20:09 +03:00			`c3 : Pair Bool Bool := mkPair true false;`
Adt syntax (#2262) - merge #2260 first Allows constructors to be defined using Haskell-like Adt syntax. E.g. ``` module Adt; type Bool := \| true \| false; type Pair (A B : Type) := \| mkPair A B; type Nat := \| zero \| suc Nat; ``` --------- Co-authored-by: Paul Cadman <git@paulcadman.dev> 2023-08-01 15:39:43 +03:00
Remove old function syntax (#2305) * Enables new function syntax in local let-declarations * Closes #2251 2023-08-24 12:20:09 +03:00			`c4 : Nat := zero;`
Adt syntax (#2262) - merge #2260 first Allows constructors to be defined using Haskell-like Adt syntax. E.g. ``` module Adt; type Bool := \| true \| false; type Pair (A B : Type) := \| mkPair A B; type Nat := \| zero \| suc Nat; ``` --------- Co-authored-by: Paul Cadman <git@paulcadman.dev> 2023-08-01 15:39:43 +03:00
Remove old function syntax (#2305) * Enables new function syntax in local let-declarations * Closes #2251 2023-08-24 12:20:09 +03:00			`c5 : Nat := suc zero;`