Idris2/tests/ttimp/record004/Record.yaff
madman-bob 119d8321d4
[ fix ] Use qualified type name for record elaboration (#1871) (#1948)
* [ fix ] Use qualified type name for record elaboration (#1871)

* Clarify record elaboration `Name` arguments
2021-09-24 11:23:46 +01:00

16 lines
221 B
Plaintext

data Nat : Type where
Z : Nat
S : Nat -> Nat
namespace A
public export
record Dup where
constructor MkDup
label : Nat
namespace B
public export
record Dup where
constructor MkDup
label : Nat