drop old record syntax

This commit is contained in:
2026-03-29 10:27:35 -07:00
parent ee9664838f
commit 2f1185bf4c
3 changed files with 4 additions and 15 deletions

View File

@@ -9,4 +9,4 @@ record Bar where
foo : Foo
blah : Bar Bar
blah x = [ foo $= [ bar := 1]] x
blah x = { foo $= { bar := 1}} x

View File

@@ -8,12 +8,12 @@ record Foo where
baz : Nat
blah : Foo Foo
blah x = [ bar := Z ] x
blah x = { bar := Z } x
main : IO Unit
main = do
let x = blah $ MkFoo (S Z) (S (S Z))
printLn x.bar
-- this is unfortunate, it can't get record type from a meta
let x' = the Foo $ [ baz := Z ] x
let x' = the Foo $ { baz := Z } x
printLn x'.baz