Idris2/tests/idris2/reg032/recupdate.idr

7 lines
110 B
Idris
Raw Normal View History

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