Idris2/tests/idris2/reg/reg032/recupdate.idr
2023-09-07 14:57:22 +01:00

7 lines
103 B
Idris

record R (a : Type) where
constructor MkR
x : a
rmap : (a -> b) -> R a -> R b
rmap f = { x $= f }