1
1
mirror of https://github.com/idris-lang/Idris2.git synced 2025-01-07 16:26:51 +03:00
Idris2/tests/ttimp/record004/Record.yaff
madman-bob 119d8321d4
[ fix ] Use qualified type name for record elaboration () ()
* [ fix ] Use qualified type name for record elaboration ()

* 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